0 MODE7:ONERROR RUN 1 PRINT'"Four short programs from John Ilsley."''" Enter 1 - 4. ESCAPE to return here"''"1. Dots" 2 PRINT"2. Reactions" 3 PRINT"3. Lines" 4 PRINT"4. Text" 5 A$=GET$ 6 IF A$="2"GOTO2000 7 IF A$="3"GOTO3000 8 IF A$="4"GOTO4000 9 IF A$<>"1"RUN 10 *FX4,1 20 MODE7 30 PRINTTAB(10,10) 40 A$=GET$ 50 IF A$="‹" PRINTTAB((POS-1),(VPOS-1));"."; 60 IF A$="Š" PRINTTAB((POS-1),(VPOS+1));"."; 70 IF A$="‰" PRINTTAB((POS+0),VPOS);"."; 80 IF A$="ˆ" PRINTTAB((POS-2),VPOS);"."; 90 GOTO 40 100 : 110 REM ********************************: 120 : 2000 REM A REACTION PROGRAM 2010 Q=1000 2020 MODE7 2030 PRINT"Somewhere on the screen there will be" 2040 PRINT"a dot, like this ";CHR$255;" and as soon as" 2050 PRINT"you see that, you must hit a key."' 2060 PRINT"Your reaction time will then be printed" 2070 PRINT"on the screen."''"Press Space to continue" 2080 REPEATUNTILGET=32 2090 MODE7 2100 VDU23;8202;0;0;0; 2110 A=RND(500) 2120 X=RND(39) 2130 Y=RND(20) 2140 TIME=0 2150 REPEATUNTIL TIME=(A+20) 2160 PRINTTAB(X,Y);CHR$255 2170 *FX15,1 2180 TIME=0 2190 REPEATUNTILGET<>-1 2200 T=TIME 2210 IF TQ Q=Q:PRINT'"Too slow....!":GOTO 2240 2230 IF T=Q PRINT"Equal best....":GOTO2240 2240 A=TIME DIV 100 MOD 60 2250 B=TIME DIV 1 MOD 100 2260 PRINTTAB(0,Y+1);"You took ";A;".";B;" seconds." 2270 PRINT''"PRESS A KEY TO CONTINUE" 2280 A$=GET$:GOTO 2090 2290 : 2300 REM **************************** 2310 : 3000 MODE0 3010 X=640:Y=512 3020 MOVE X,Y 3030 *FX4,1 3040 IF INKEY(-58) Y=Y+1 3050 IF INKEY(-42) Y=Y-1 3060 IF INKEY(-26) X=X-1 3070 IF INKEY(-122) X=X+1 3080 DRAW X,Y 3090 GOTO 3030 3100 : 3110 REM *************************** 3120 : 4000 MODE7 4010 INPUT"Enter text line:-"a$ 4020 m%=2 4030 IF LEN(a$)>20 THEN m%=1 4040 IF LEN(a$)>40 THEN PRINT"Too long... Max 20 or 40":GOTO 4010 4050 REM ON ERROR VDU4:REPORT:PRINTERL:END 4060 MODE m% 4070 X=0:L=5:S=2 4080 Y=800:O=5:U=3 4090 VDU5 4100 FOR K=X TO X-L STEP -S 4110 FOR J=Y TO Y+O STEP U 4120 MOVE K,J 4130 PRINTa$ 4140 NEXT:NEXT 4150 GCOL0,RND(16) 4160 MOVE K,J 4170 PRINTa$ 4180 VDU4 4190 GOTO 4010