| |
| | [No title] (Site not responding. Last check: 2007-10-17) |
 | | #6;"[":NEXT I1820 GOSUB 2500:REM JUMP TO INPUT ROUTINE1840 NEXT LOOP1860 GOTO 31001880 REM SET UP FOR LEVELS IV, V1940 RAM$(265,472)=RAM$(777,984)1960 GRAPHICS 2:POKE 756,GRTOP1980 FOR I=0 TO 3:SETCOLOR I,0,14:NEXT I:SETCOLOR 4,CHOICE*2,82000 SETCOLOR 2,CHOICE*2,82020 REM POKE 16,112:POKE 53774,1122040 WRONG=02060 FOR LOOP=1 TO 10:SAME=INT(26*RND(0))2080 DIFF=INT(26*RND(0)):IF SAME=DIFF THEN 20802100 ODD=INT(4*RND(0))2120 FOR I=0 TO 3:P=(I=ODD)*DIFF+(I |
 | | #6;"[":NEXT I2160 GOSUB 2500:REM JUMP TO INPUT ROUTINE2180 NEXT LOOP2200 GOTO 31002220 REM SET UP FOR LEVELS VI, VII2240 GRAPHICS 2:POKE 756,GRTOP:GOTO 22602260 FOR I=0 TO 3:SETCOLOR I,0,14:NEXT I:SETCOLOR 4,CHOICE*2,82280 SETCOLOR 2,CHOICE*2,82300 REM POKE 16,112:POKE 53774,1122320 WRONG=0:M=10:N=0:IF CHOICE=7 THEN M=900:N=1002340 FOR LOOP=1 TO 10:SAME=INT(M*RND(0))+N2360 DIFF=INT(M*RND(0))+N:IF SAME=DIFF THEN 23602380 ODD=INT(4*RND(0))2400 FOR I=0 TO 3:P=(I=ODD)*DIFF+(I |
 | | #6;"[":NEXT I2440 GOSUB 2500:REM JUMP TO INPUT ROUTINE2460 NEXT LOOP2480 GOTO 31002500 REM JOYSTICK MOVE AND INPUT ROUTINE2520 POKE 752,1:FLAG=02540 POS=3:POKE 656,0:POKE 657,POS+12560 ? |
| www.atarimagazines.com /software/84-01/ODDMAN3.LST (236 words) |
|