Things To Do

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
1000 PRINT AT 18,0;"ENTER ITEMS ONE BY ONE (30 CHAR.MAX. IF YOU  HAVE NO MORE TO    ENTER, JUST PRESS ENTER :::"
1005 SLOW 
1010 FOR N=R1+1 TO 22
1020 SCROLL 
1030 PRINT N;" ";
1040 INPUT A$(N)
1050 IF A$(N,1)=" " THEN GOTO 1100
1060 PRINT A$(N)
1070 NEXT N
1100 LET R1=N-1
1110 GOTO 100
2000 FOR I=1 TO R1
2010 GOSUB 2500
2015 SLOW 
2020 INPUT A
2025 FAST 
2030 LET B$(I)=A$(A)
2040 LET A$(A)=""
2050 NEXT I
2060 FOR N=1 TO R1
2070 LET A$(N)=B$(N)
2080 LET B$(N)=""
2090 NEXT N
2100 GOSUB 2500
2110 PAUSE 40000
2120 IF INKEY$="Z" THEN COPY 
2130 GOTO 100
2500 CLS 
2510 FOR N=1 TO R1
2520 PRINT N;" ";A$(N)
2530 NEXT N
2540 RETURN 
3000 FAST 
3003 GOSUB 2500
3005 SLOW 
3010 INPUT A
3015 FAST 
3020 FOR N=A TO R1-1
3030 LET A$(N)=A$(N+1)
3040 NEXT N
3050 LET R1=R1-1
3060 CLS 
3070 GOTO 5000
4000 RUN 
5000 GOSUB 2500
5030 PAUSE 40000
5040 IF INKEY$="Z" THEN COPY 
5050 GOTO 100
6000 PRINT AT 10,0;"ENTER NAME OF FILE, PREPARE     RECORDER AND PRESS ENTER :::"
6010 INPUT F$
6020 SAVE F$
6030 GOTO 100
9998 SAVE "TT%D"
9999 RUN