Source Code
0 % % %M%I%N%I%C%A%L%C% % % %W%R%I%T%T%E%N% %B%Y% % % %G%E%N%E% %B%U%Z%A%
10 FAST
20 DIM A$(7,3,32)
30 LET A=1
40 LET B=1
100 GOSUB 1000
110 SLOW
120 LET B$=INKEY$
130 PRINT AT A*3-1,10*B-8;"\.'";AT A*3-1,10*B-8;"\'.";AT A*3-1,10*B-8;" "
140 IF B$="" THEN GOTO 120
150 IF CODE B$=112 THEN GOTO 500
160 IF CODE B$=113 THEN GOTO 600
170 IF CODE B$=114 THEN GOTO 700
180 IF CODE B$=115 THEN GOTO 800
200 IF B$="F" THEN GOTO 2000
210 IF B$="C" THEN GOTO 3000
220 IF B$="V" THEN GOTO 4000
230 IF B$="D" THEN GOTO 7000
240 IF B$="R" THEN GOTO 6000
250 IF B$="S" THEN GOTO 9000
260 IF B$="B" THEN GOTO 8000
270 IF B$="N" THEN GOTO 8100
400 GOTO 120
500 REM %C%U%R%S%O%R% %U%P
510 IF A=1 THEN GOTO 120
520 LET A=A-1
530 GOTO 120
600 REM %C%U%R%S%O%R% %D%O%W%N
610 IF A=7 THEN GOTO 120
620 LET A=A+1
630 GOTO 120
700 REM %C%U%R%S%O%R% %L%E%F%T
710 IF B=1 THEN GOTO 120
720 LET B=B-1
730 GOTO 120
800 REM %C%U%R%S%O%R% %R%I%G%H%T
810 IF B=3 THEN GOTO 120
820 LET B=B+1
830 GOTO 120
\n1000 FAST
\n1010 CLS
\n1020 FOR N=1 TO 19 STEP 3
\n1030 PRINT AT N,1;"\ :\''\''\''\''\''\''\''\''\''\':\''\''\''\''\''\''\''\''\''\':\''\''\''\''\''\''\''\''\''\': \ : \ : \ : \ : \ :\..\..\..\..\..\..\..\..\..\.:\..\..\..\..\..\..\..\..\..\.:\..\..\..\..\..\..\..\..\..\.:";AT N+1,0;(N-1)/3+1
\n1040 NEXT N
\n1050 PRINT AT 0,6;"%A %B %C"
\n1060 RETURN
\n2000 PRINT AT 0,0;"%F"
\n2010 INPUT B$
\n2020 IF LEN B$>31 THEN GOTO 2020
\n2030 LET A$(A,B)="%F"+B$
\n2040 PRINT AT A*3-1,10*B-7;"%F"
\n2050 PRINT AT 0,0;" "
\n2060 GOTO 120
\n3000 IF A$(A,B,1)<>"%F" THEN GOTO 120
\n3010 PRINT AT 0,0;"%C"
\n3020 LET B$=A$(A,B,2 TO )
\n3025 LET R=LEN B$
\n3030 LET N=1
\n3040 GOTO 5000
\n3050 LET N=N+1
\n3055 IF N<LEN B$ THEN GOTO 3040
\n3060 SLOW
\n3070 PRINT AT A*3-1,10*B-7;VAL B$
\n3080 PAUSE 40000
\n3090 PRINT AT A*3-1,10*B-7;"%F \ :";AT 0,0;" "
\n3100 GOTO 120
\n4000 PRINT AT 0,0;"%V"
\n4010 INPUT V
\n4020 LET B$=STR$ V
\n4030 LET A$(A,B)="%V"+B$
\n4040 PRINT AT A*3-1,10*B-7;VAL A$(A,B,2 TO 9)
\n4050 PRINT AT 0,0;" "
\n4060 GOTO 120
\n5000 FAST
\n5010 LET L=LEN B$
\n5100 IF B$(N)="A" THEN LET B$=B$( TO N-1)+"VAL A$("+B$(N+1)+",1,2 TO )"+B$(N+2 TO )
\n5110 IF B$(N)="B" THEN LET B$=B$( TO N-1)+"VAL A$("+B$(N+1)+",2,2 TO )"+B$(N+2 TO )
\n5120 IF B$(N)="C" THEN LET B$=B$( TO N-1)+"VAL A$("+B$(N+1)+",3,2 TO )"+B$(N+2 TO )
\n5130 LET N=N+LEN B$-L
\n5220 LET R=R+LEN B$-L
\n5230 GOTO 3050
\n6000 GOSUB 1000
\n6010 FOR A=1 TO 7
\n6020 FOR B=1 TO 3
\n6100 IF A$(A,B,1)="%V" THEN PRINT AT A*3-1,10*B-7;VAL A$(A,B,2 TO 9)
\n6110 IF A$(A,B,1)="%F" THEN PRINT AT A*3-1,10*B-7;"%F"
\n6200 NEXT B
\n6210 NEXT A
\n6220 LET A=1
\n6230 LET B=1
\n6240 GOTO 110
\n7000 IF A$(A,B,1)<>"%F" THEN GOTO 120
\n7010 POKE 16418,0
\n7020 PRINT AT 23,0;A$(A,B,2 TO 32);
\n7030 PAUSE 40000
\n7040 PRINT AT 23,0;" ";
\n7050 POKE 16418,2
\n7060 GOTO 120
\n8000 LET A=1
\n8010 LET B=1
\n8020 GOTO 120
\n8100 LET A=7
\n8110 LET B=3
\n8120 GOTO 120
\n9000 FAST
\n9010 CLS
\n9020 PRINT AT 10,0;"ENTER NAME OF FILE, SET UP RECORDER AND PRESS %E%N%T%E%R :::"
\n9030 SLOW
\n9040 INPUT Y$
\n9050 SAVE Y$
\n9060 GOTO 6000
\n9997 STOP
\n9998 SAVE "MINICAL%C"
\n9999 GOTO 1
