100 MAXFILES=1:CLEAR1200:IFPEEK(1)=171THENM=640:CALL20318ELSEM=320:CALL16959:'Screen Lock, 200 else 100/102
200 CLS:PRINT@48,"CARD FILE TEMPLATE MAKER":PRINT
202
203 INPUT" Filename to Create";F$
206 INPUT" Number of entries on card";N
209 GOSUB1000
210
212 CLS:FORA=1TON
215 P(A)=P(A-1)+LEN(A$(A-1))
218 GOSUB1100
220
221 NEXT
222
224 CLS:PRINT@41,"Let's review what your prompt screen    will look like. Press ENTER when you    are ready to continue.  ";
227 Q$=INPUT$(1)
230 CLS:FORA=1TON
233 PRINT@P(A),A$(A);
236 NEXT
239 PRINT@M-15,"ALL OK? (Y/N)";:Q$=INPUT$(1)
240
242 PRINT@M-15,SPACE$(13);:IFQ$=""THEN0
244
245 ONINSTR(" YyNn",Q$)/2GOTO266,248:GOTO239
246
248 CLS:FORA=1TON
250
251 PRINT@P(A),CHR$(27);"p";A$(A);CHR$(27);"q";
252
254 PRINT"OK?(Y/N)";:Q$=INPUT$(1):PRINT@P(A),A$(A);SPACE$(8);
256
257 IFINSTR("Yy",Q$)THEN263
258
260 PRINT@P(A),SPACE$(LEN(A$(A))):GOSUB1100
263 NEXT:GOTO230
262
264
266 CLS:PRINT:PRINT" File now being created..."
269 OPENF$FOROUTPUTAS1
270
272 PRINT#1,N
274
275 FORA=1TON:PRINT#1,A$(A):PRINT#1,P(A):NEXT
276
1100 'Template Format
1102
1104
1105 PRINT@P(A),"*";
1106
1108
1110 Q$=INKEY$:IFQ$=""THEN1110ELSEQ=ASC(Q$):PRINT@P(A)," ";
1115 IFQ=8THENR$=LEFT$(R$,LEN(R$)-1):PRINT@P(A),R$"* ";:GOTO1155
1120 IFQ=13THENR$=R$+": "+CHR$(32):PRINT@P(A),R$;:GOTO1160
1125 IFQ=27THENP(A)=((P(A)+39)\40)*40
1130 IFQ=9THENPRINT@P(A)," ";:P(A)=(P(A)+8)-(P(A)MOD8):GOTO1105
1135 P(A)=P(A)+40*((Q=30)-(Q=31))+(Q=29)-(Q=28)
1140 P(A)=P(A)+((P(A)>M)-(P(A)<0))*40
1145 IF(Q<32)*(Q<>13)THEN1105ELSER$=R$+Q$
1150 PRINT@P(A),R$"*";
1155 IFQ<>13THEN1110
1160 A$(A)=LEFT$(R$,LEN(R$)-1):R$="":RETURN