Source Code
10 FAST
20 DIM A$(22,30)
30 DIM B$(22,30)
40 LET R1=0
100 FAST
110 CLS
120 PRINT AT 1,7;"% %T%H%I%N%G%S% %T%O% %D%O% "
130 PRINT AT 5,0;"TO CREATE OR ADD TO FILE;";TAB 30;1
140 PRINT AT 7,0;"TO SET PRIORITIES";TAB 30;2
150 PRINT AT 9,0;"TO DELETE FROM FILE";TAB 30;3
160 PRINT AT 11,0;"TO CLEAR FILE";TAB 30;4
170 PRINT AT 13,0;"TO SEE FILE";TAB 30;5
180 PRINT AT 15,0;"TO SAVE FILE ON TAPE";TAB 30;6
300 POKE 16418,0
310 SLOW
320 PRINT AT 22,3;"% %E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% ";AT 22,3;" ENTER ONE OF ABOVE "
330 LET Y$=INKEY$
340 IF CODE Y$<29 OR CODE Y$>34 THEN GOTO 320
350 FAST
360 CLS
370 POKE 16418,2
380 GOTO VAL Y$*1000
\n1000 PRINT AT 18,0;"ENTER ITEMS ONE BY ONE (30 CHAR.MAX. IF YOU HAVE NO MORE TO ENTER, JUST PRESS ENTER :::"
\n1005 SLOW
\n1010 FOR N=R1+1 TO 22
\n1020 SCROLL
\n1030 PRINT N;" ";
\n1040 INPUT A$(N)
\n1050 IF A$(N,1)=" " THEN GOTO 1100
\n1060 PRINT A$(N)
\n1070 NEXT N
\n1100 LET R1=N-1
\n1110 GOTO 100
\n2000 FOR I=1 TO R1
\n2010 GOSUB 2500
\n2015 SLOW
\n2020 INPUT A
\n2025 FAST
\n2030 LET B$(I)=A$(A)
\n2040 LET A$(A)=""
\n2050 NEXT I
\n2060 FOR N=1 TO R1
\n2070 LET A$(N)=B$(N)
\n2080 LET B$(N)=""
\n2090 NEXT N
\n2100 GOSUB 2500
\n2110 PAUSE 40000
\n2120 IF INKEY$="Z" THEN COPY
\n2130 GOTO 100
\n2500 CLS
\n2510 FOR N=1 TO R1
\n2520 PRINT N;" ";A$(N)
\n2530 NEXT N
\n2540 RETURN
\n3000 FAST
\n3003 GOSUB 2500
\n3005 SLOW
\n3010 INPUT A
\n3015 FAST
\n3020 FOR N=A TO R1-1
\n3030 LET A$(N)=A$(N+1)
\n3040 NEXT N
\n3050 LET R1=R1-1
\n3060 CLS
\n3070 GOTO 5000
\n4000 RUN
\n5000 GOSUB 2500
\n5030 PAUSE 40000
\n5040 IF INKEY$="Z" THEN COPY
\n5050 GOTO 100
\n6000 PRINT AT 10,0;"ENTER NAME OF FILE, PREPARE RECORDER AND PRESS ENTER :::"
\n6010 INPUT F$
\n6020 SAVE F$
\n6030 GOTO 100
\n9998 SAVE "TT%D"
\n9999 RUN
