home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 2.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '10 REM ** MATHS MAZE MODIFIED FOR THE **
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 52 45 4d 20 2a | 2a 20 4d 41 54 48 53 20 |10 REM *|* MATHS |
|00000010| 4d 41 5a 45 20 4d 4f 44 | 49 46 49 45 44 20 46 4f |MAZE MOD|IFIED FO|
|00000020| 52 20 54 48 45 20 2a 2a | 0a 32 30 20 52 45 4d 20 |R THE **|.20 REM |
|00000030| 2a 20 43 4f 4d 4d 4f 44 | 4f 52 45 20 36 34 20 42 |* COMMOD|ORE 64 B|
|00000040| 59 20 44 2e 48 41 4c 4c | 20 46 45 42 20 38 33 20 |Y D.HALL| FEB 83 |
|00000050| 2a 0a 33 30 20 52 45 4d | 20 2a 2a 2a 2a 2a 2a 2a |*.30 REM| *******|
|00000060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 31 30 30 20 52 |********|**.100 R|
|00000080| 45 4d 20 2a 2a 2a 20 49 | 4e 49 54 49 41 4c 49 5a |EM *** I|NITIALIZ|
|00000090| 45 20 2a 2a 2a 0a 31 31 | 30 20 52 45 24 3d 43 48 |E ***.11|0 RE$=CH|
|000000a0| 52 24 28 31 33 29 3a 51 | 55 24 3d 43 48 52 24 28 |R$(13):Q|U$=CHR$(|
|000000b0| 33 34 29 0a 31 32 30 20 | 56 54 24 3d 22 13 11 11 |34).120 |VT$="...|
|000000c0| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|000000d0| 11 11 22 0a 31 33 30 20 | 53 50 24 3d 22 20 20 20 |..".130 |SP$=" |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000100| 20 20 20 22 0a 31 34 30 | 20 44 45 46 46 4e 52 28 | ".140| DEFFNR(|
|00000110| 58 29 3d 49 4e 54 28 52 | 4e 44 28 31 29 2a 58 2b |X)=INT(R|ND(1)*X+|
|00000120| 31 29 0a 31 35 30 20 50 | 4c 3d 31 32 32 35 0a 32 |1).150 P|L=1225.2|
|00000130| 30 30 20 52 45 4d 20 2a | 2a 2a 20 44 52 41 57 20 |00 REM *|** DRAW |
|00000140| 4d 41 5a 45 20 2a 2a 2a | 0a 32 30 35 20 54 31 3d |MAZE ***|.205 T1=|
|00000150| 54 49 0a 32 31 30 20 50 | 4f 4b 45 35 33 32 38 30 |TI.210 P|OKE53280|
|00000160| 2c 38 3a 50 4f 4b 45 35 | 33 32 38 31 2c 30 3a 50 |,8:POKE5|3281,0:P|
|00000170| 52 49 4e 54 22 93 05 22 | 0a 32 31 32 20 50 52 49 |RINT".."|.212 PRI|
|00000180| 4e 54 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |NT" | |
|00000190| 20 20 20 20 a6 a6 d7 a6 | a6 22 0a 32 31 34 20 50 | ....|.".214 P|
|000001a0| 52 49 4e 54 22 20 20 20 | 20 20 20 20 20 20 20 20 |RINT" | |
|000001b0| 20 20 a6 a6 d7 a6 a6 20 | 20 20 a6 a6 d7 a6 a6 22 | ..... | ....."|
|000001c0| 0a 32 31 36 20 50 52 49 | 4e 54 22 20 20 20 20 20 |.216 PRI|NT" |
|000001d0| 20 20 20 20 a6 a6 d7 a6 | a6 20 20 20 a6 a6 d7 a6 | ....|. ....|
|000001e0| a6 20 20 20 a6 a6 d7 a6 | a6 00 0a 32 31 38 20 50 |. ....|...218 P|
|000001f0| 52 49 4e 54 22 20 20 20 | 20 20 a6 a6 d7 a6 a6 20 |RINT" | ..... |
|00000200| 20 20 a6 a6 d7 a6 a6 20 | 20 20 a6 a6 d7 a6 a6 20 | ..... | ..... |
|00000210| 20 20 a6 a6 d7 a6 a6 00 | 0a 32 32 30 20 50 52 49 | ......|.220 PRI|
|00000220| 4e 54 22 20 a6 a6 d7 a6 | a6 20 20 20 a6 a6 d7 a6 |NT" ....|. ....|
|00000230| a6 20 20 20 a6 a6 d7 a6 | a6 20 20 20 a6 a6 d7 a6 |. ....|. ....|
|00000240| a6 20 20 20 a6 a6 d7 a6 | a6 da 22 0a 32 32 32 20 |. ....|..".222 |
|00000250| 50 52 49 4e 54 22 20 20 | 20 20 20 a6 a6 d7 a6 a6 |PRINT" | .....|
|00000260| 20 20 20 a6 a6 d7 a6 a6 | 20 20 20 a6 a6 d7 a6 a6 | .....| .....|
|00000270| 20 20 20 a6 a6 d7 a6 a6 | 22 0a 32 32 34 20 50 52 | .....|".224 PR|
|00000280| 49 4e 54 22 20 20 20 20 | 20 20 20 20 20 a6 a6 d7 |INT" | ...|
|00000290| a6 a6 20 20 20 a6 a6 d7 | a6 a6 20 20 20 a6 a6 a6 |.. ...|.. ...|
|000002a0| d7 a6 22 0a 32 32 36 20 | 50 52 49 4e 54 22 20 20 |..".226 |PRINT" |
|000002b0| 20 20 20 20 20 20 20 20 | 20 20 20 a6 a6 d7 a6 a6 | | .....|
|000002c0| 20 20 20 a6 a6 d7 a6 a6 | 22 0a 32 32 38 20 50 52 | .....|".228 PR|
|000002d0| 49 4e 54 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |INT" | |
|000002e0| 20 20 20 20 20 a6 a6 d7 | a6 a6 22 0a 32 33 30 20 | ...|..".230 |
|000002f0| 50 52 49 4e 54 22 20 20 | 20 20 4e 22 0a 32 33 32 |PRINT" | N".232|
|00000300| 20 50 52 49 4e 54 22 20 | 20 20 20 dd 22 0a 32 33 | PRINT" | .".23|
|00000310| 34 20 50 52 49 4e 54 22 | 20 57 20 c3 db c3 20 45 |4 PRINT"| W ... E|
|00000320| 22 0a 32 33 36 20 50 52 | 49 4e 54 22 20 20 20 20 |".236 PR|INT" |
|00000330| dd 22 0a 32 33 38 20 50 | 52 49 4e 54 22 20 20 20 |.".238 P|RINT" |
|00000340| 20 53 00 0a 32 35 30 20 | 52 45 4d 20 2a 2a 2a 20 | S..250 |REM *** |
|00000350| 53 45 54 20 55 50 20 49 | 4e 49 54 49 41 4c 20 50 |SET UP I|NITIAL P|
|00000360| 4f 53 49 54 49 4f 4e 20 | 2a 2a 2a 0a 32 36 30 20 |OSITION |***.260 |
|00000370| 50 4c 3d 31 32 32 35 3a | 50 50 3d 50 45 45 4b 28 |PL=1225:|PP=PEEK(|
|00000380| 50 4c 29 3a 50 4f 4b 45 | 50 4c 2c 34 32 0a 33 30 |PL):POKE|PL,42.30|
|00000390| 30 20 52 45 4d 20 2a 2a | 2a 20 4d 4f 56 45 20 2a |0 REM **|* MOVE *|
|000003a0| 2a 2a 0a 33 31 30 20 50 | 52 49 4e 54 56 54 24 3b |**.310 P|RINTVT$;|
|000003b0| 53 50 24 3b 53 50 24 3b | 53 50 24 3b 56 54 24 3b |SP$;SP$;|SP$;VT$;|
|000003c0| 22 20 57 48 49 43 48 20 | 44 49 52 45 43 54 49 4f |" WHICH |DIRECTIO|
|000003d0| 4e 20 3f 22 0a 33 32 30 | 20 5a 24 3d 22 4e 53 45 |N ?".320| Z$="NSE|
|000003e0| 57 22 3a 47 4f 53 55 42 | 31 30 30 30 0a 33 33 30 |W":GOSUB|1000.330|
|000003f0| 20 4d 56 3d 56 41 4c 28 | 4d 49 44 24 28 22 2d 34 | MV=VAL(|MID$("-4|
|00000400| 30 2b 34 30 2b 30 31 2d | 30 31 22 2c 5a 2a 33 2d |0+40+01-|01",Z*3-|
|00000410| 32 2c 33 29 29 0a 33 34 | 30 20 50 4f 4b 45 50 4c |2,3)).34|0 POKEPL|
|00000420| 2c 50 50 3a 50 4c 3d 50 | 4c 2b 4d 56 3a 50 50 3d |,PP:PL=P|L+MV:PP=|
|00000430| 50 45 45 4b 28 50 4c 29 | 3a 50 4f 4b 45 50 4c 2c |PEEK(PL)|:POKEPL,|
|00000440| 34 32 0a 33 35 30 20 52 | 45 4d 20 2a 2a 2a 20 41 |42.350 R|EM *** A|
|00000450| 43 43 45 53 53 20 4d 4f | 56 45 20 2a 2a 2a 0a 33 |CCESS MO|VE ***.3|
|00000460| 36 30 20 49 46 50 50 3d | 39 30 54 48 45 4e 39 30 |60 IFPP=|90THEN90|
|00000470| 30 0a 33 37 30 20 49 46 | 50 50 3d 33 32 54 48 45 |0.370 IF|PP=32THE|
|00000480| 4e 34 30 30 0a 33 38 30 | 20 49 46 50 50 3d 31 30 |N400.380| IFPP=10|
|00000490| 32 54 48 45 4e 33 30 30 | 0a 33 39 30 20 47 4f 54 |2THEN300|.390 GOT|
|000004a0| 4f 34 35 30 0a 34 30 30 | 20 52 45 4d 20 2a 2a 2a |O450.400| REM ***|
|000004b0| 20 46 45 4c 4c 20 4f 46 | 20 54 48 45 20 50 41 54 | FELL OF| THE PAT|
|000004c0| 48 20 2a 2a 2a 0a 34 31 | 30 20 50 52 49 4e 54 56 |H ***.41|0 PRINTV|
|000004d0| 54 24 3b 53 50 24 3b 53 | 50 24 3b 56 54 24 3b 22 |T$;SP$;S|P$;VT$;"|
|000004e0| 20 4f 48 20 44 45 41 52 | 20 59 4f 55 20 46 45 4c | OH DEAR| YOU FEL|
|000004f0| 4c 20 4f 46 20 54 48 45 | 20 50 41 54 48 22 0a 34 |L OF THE| PATH".4|
|00000500| 31 35 20 50 52 49 4e 54 | 22 20 42 41 43 4b 20 54 |15 PRINT|" BACK T|
|00000510| 09 00 53 54 41 52 54 20 | 21 21 20 22 0a 34 32 30 |..START |!! ".420|
|00000520| 20 58 3d 32 3a 47 4f 53 | 55 42 31 31 30 30 3a 47 | X=2:GOS|UB1100:G|
|00000530| 4f 54 4f 32 31 30 0a 34 | 35 30 20 52 45 4d 20 2a |OTO210.4|50 REM *|
|00000540| 2a 2a 20 53 45 4c 45 43 | 54 20 50 52 4f 42 4c 45 |** SELEC|T PROBLE|
|00000550| 4d 20 2a 2a 2a 0a 34 36 | 30 20 50 54 3d 46 4e 52 |M ***.46|0 PT=FNR|
|00000560| 28 34 29 3a 4f 4e 50 54 | 47 4f 54 4f 35 30 30 2c |(4):ONPT|GOTO500,|
|00000570| 35 35 30 2c 36 30 30 2c | 36 35 30 0a 35 30 30 20 |550,600,|650.500 |
|00000580| 52 45 4d 20 2a 2a 2a 20 | 41 44 44 20 2a 2a 2a 0a |REM *** |ADD ***.|
|00000590| 35 31 30 20 41 3d 46 4e | 52 28 39 29 3a 42 3d 46 |510 A=FN|R(9):B=F|
|000005a0| 4e 52 28 39 29 3a 43 3d | 41 2b 42 3a 4f 50 24 3d |NR(9):C=|A+B:OP$=|
|000005b0| 22 2b 22 3a 47 4f 54 4f | 38 30 30 0a 35 35 30 20 |"+":GOTO|800.550 |
|000005c0| 52 45 4d 20 2a 2a 2a 20 | 53 55 42 54 52 41 43 54 |REM *** |SUBTRACT|
|000005d0| 20 2a 2a 2a 0a 35 36 30 | 20 41 3d 46 4e 52 28 39 | ***.560| A=FNR(9|
|000005e0| 39 29 3a 42 3d 46 4e 52 | 28 39 29 3a 49 46 42 3e |9):B=FNR|(9):IFB>|
|000005f0| 41 54 48 45 4e 46 3d 41 | 3a 41 3d 42 3a 42 3d 46 |ATHENF=A|:A=B:B=F|
|00000600| 0a 35 37 30 20 43 3d 41 | 2d 42 3a 4f 50 24 3d 22 |.570 C=A|-B:OP$="|
|00000610| 2d 22 3a 47 4f 54 4f 38 | 30 30 0a 36 30 30 20 52 |-":GOTO8|00.600 R|
|00000620| 45 4d 20 2a 2a 2a 20 4d | 55 4c 54 49 50 4c 59 20 |EM *** M|ULTIPLY |
|00000630| 2a 2a 2a 0a 36 31 30 20 | 41 3d 46 4e 52 28 39 29 |***.610 |A=FNR(9)|
|00000640| 3a 42 3d 46 4e 52 28 39 | 29 0a 36 32 30 20 43 3d |:B=FNR(9|).620 C=|
|00000650| 41 2a 42 3a 4f 50 24 3d | 22 2a 22 3a 47 4f 54 4f |A*B:OP$=|"*":GOTO|
|00000660| 38 30 30 0a 36 35 30 20 | 52 45 4d 20 2a 2a 2a 20 |800.650 |REM *** |
|00000670| 52 41 4e 44 4f 4d 20 44 | 49 47 49 54 53 20 2a 2a |RANDOM D|IGITS **|
|00000680| 2a 0a 36 36 30 20 50 52 | 49 4e 54 56 54 24 3b 53 |*.660 PR|INTVT$;S|
|00000690| 50 24 3b 53 50 24 3b 56 | 54 24 3b 22 20 41 44 44 |P$;SP$;V|T$;" ADD|
|000006a0| 20 54 48 45 53 45 20 4e | 55 4d 42 45 52 53 20 22 | THESE N|UMBERS "|
|000006b0| 3b 0a 36 37 30 20 58 3d | 32 3a 47 4f 53 55 42 31 |;.670 X=|2:GOSUB1|
|000006c0| 31 30 30 3a 43 3d 30 0a | 36 38 30 20 46 4f 52 49 |100:C=0.|680 FORI|
|000006d0| 3d 31 54 4f 33 3a 44 50 | 3d 46 4e 52 28 39 29 3a |=1TO3:DP|=FNR(9):|
|000006e0| 44 50 3d 35 2d 44 50 0a | 36 39 30 20 58 3d 46 4e |DP=5-DP.|690 X=FN|
|000006f0| 52 28 39 29 3a 50 4f 4b | 45 31 38 38 30 2b 44 50 |R(9):POK|E1880+DP|
|00000700| 2c 58 2b 34 38 3a 43 3d | 43 2b 58 3a 58 3d 2e 38 |,X+48:C=|C+X:X=.8|
|00000710| 3a 47 4f 53 55 42 31 31 | 30 30 0a 36 39 35 20 50 |:GOSUB11|00.695 P|
|00000720| 4f 4b 45 31 38 38 30 2b | 44 50 2c 33 32 3a 4e 45 |OKE1880+|DP,32:NE|
|00000730| 58 54 49 3a 47 4f 54 4f | 38 35 30 0a 38 30 30 20 |XTI:GOTO|850.800 |
|00000740| 52 45 4d 20 2a 2a 2a 20 | 53 45 54 20 54 48 45 20 |REM *** |SET THE |
|00000750| 50 52 4f 42 4c 45 4d 53 | 09 0a 38 31 30 20 50 52 |PROBLEMS|..810 PR|
|00000760| 49 4e 54 56 54 24 3b 53 | 50 24 3b 53 50 24 3b 56 |INTVT$;S|P$;SP$;V|
|00000770| 54 24 3b 0a 38 32 30 20 | 41 24 3d 4d 49 44 24 28 |T$;.820 |A$=MID$(|
|00000780| 53 54 52 24 28 41 29 2c | 32 29 0a 38 33 30 20 42 |STR$(A),|2).830 B|
|00000790| 24 3d 4d 49 44 24 28 53 | 54 52 24 28 42 29 2c 32 |$=MID$(S|TR$(B),2|
|000007a0| 29 0a 38 34 30 20 50 52 | 49 4e 54 22 20 57 48 41 |).840 PR|INT" WHA|
|000007b0| 54 20 49 53 20 22 3b 41 | 24 3b 22 20 22 3b 4f 50 |T IS ";A|$;" ";OP|
|000007c0| 24 3b 22 20 22 3b 42 24 | 3b 22 3f 20 22 3b 0a 38 |$;" ";B$|;"? ";.8|
|000007d0| 35 30 20 47 4f 53 55 42 | 31 32 30 30 0a 38 36 30 |50 GOSUB|1200.860|
|000007e0| 20 49 46 41 4e 3c 3e 43 | 54 48 45 4e 38 38 30 0a | IFAN<>C|THEN880.|
|000007f0| 38 37 30 20 50 52 49 4e | 54 22 20 43 4f 52 52 45 |870 PRIN|T" CORRE|
|00000800| 43 54 22 3a 58 3d 2e 35 | 3a 47 4f 53 55 42 31 31 |CT":X=.5|:GOSUB11|
|00000810| 30 30 3a 47 4f 54 4f 33 | 30 30 0a 38 38 30 20 50 |00:GOTO3|00.880 P|
|00000820| 52 49 4e 54 22 91 20 57 | 52 4f 4e 47 20 21 20 20 |RINT". W|RONG ! |
|00000830| 49 54 20 57 41 53 20 22 | 3b 43 0a 38 38 35 20 58 |IT WAS "|;C.885 X|
|00000840| 3d 31 3a 47 4f 53 55 42 | 31 31 30 30 3a 50 52 49 |=1:GOSUB|1100:PRI|
|00000850| 4e 54 56 54 24 3b 53 50 | 24 3b 53 50 24 3b 56 54 |NTVT$;SP|$;SP$;VT|
|00000860| 24 0a 38 39 30 20 47 4f | 54 4f 34 35 30 0a 39 30 |$.890 GO|TO450.90|
|00000870| 30 20 52 45 4d 20 2a 2a | 2a 20 45 4e 44 20 4f 46 |0 REM **|* END OF|
|00000880| 20 47 41 4d 45 20 2a 2a | 2a 0a 39 31 30 20 54 32 | GAME **|*.910 T2|
|00000890| 3d 54 49 3a 50 52 49 4e | 54 56 54 24 3b 53 50 24 |=TI:PRIN|TVT$;SP$|
|000008a0| 3b 53 50 24 3b 56 54 24 | 3b 0a 39 32 30 20 50 52 |;SP$;VT$|;.920 PR|
|000008b0| 49 4e 54 22 20 57 45 4c | 4c 20 44 4f 4e 45 20 21 |INT" WEL|L DONE !|
|000008c0| 21 20 59 4f 55 20 43 4f | 4d 50 4c 45 54 45 44 20 |! YOU CO|MPLETED |
|000008d0| 54 48 45 20 4d 41 5a 45 | 20 49 4e 20 22 3b 49 4e |THE MAZE| IN ";IN|
|000008e0| 54 28 28 54 32 2d 54 31 | 29 2f 36 30 29 3b 22 53 |T((T2-T1|)/60);"S|
|000008f0| 45 43 4f 4e 44 53 22 3b | 0a 39 33 30 20 50 52 49 |ECONDS";|.930 PRI|
|00000900| 4e 54 22 20 2d 20 54 52 | 59 20 41 47 41 49 4e 20 |NT" - TR|Y AGAIN |
|00000910| 3f 20 28 59 2f 4e 29 22 | 0a 39 34 30 20 47 45 54 |? (Y/N)"|.940 GET|
|00000920| 41 24 3a 49 46 41 24 3c | 3e 22 59 22 41 4e 44 41 |A$:IFA$<|>"Y"ANDA|
|00000930| 24 3c 3e 22 4e 22 54 48 | 45 4e 39 34 30 0a 39 35 |$<>"N"TH|EN940.95|
|00000940| 30 20 49 46 41 24 3d 22 | 59 22 54 48 45 4e 52 55 |0 IFA$="|Y"THENRU|
|00000950| 4e 0a 39 39 30 20 50 52 | 49 4e 54 22 93 22 3a 45 |N.990 PR|INT".":E|
|00000960| 4e 44 0a 31 30 30 30 20 | 52 45 4d 20 2a 2a 2a 20 |ND.1000 |REM *** |
|00000970| 41 57 41 49 54 20 49 4e | 50 55 54 20 2a 2a 2a 0a |AWAIT IN|PUT ***.|
|00000980| 31 30 31 30 20 47 45 54 | 41 24 3a 49 46 41 24 3d |1010 GET|A$:IFA$=|
|00000990| 22 22 54 48 45 4e 31 30 | 35 30 0a 31 30 32 30 20 |""THEN10|50.1020 |
|000009a0| 46 4f 52 5a 3d 31 54 4f | 4c 45 4e 28 5a 24 29 0a |FORZ=1TO|LEN(Z$).|
|000009b0| 31 30 33 30 20 49 46 4d | 49 44 24 28 5a 24 2c 5a |1030 IFM|ID$(Z$,Z|
|000009c0| 2c 31 29 3d 09 0a 31 30 | 34 30 20 4e 45 58 54 5a |,1)=..10|40 NEXTZ|
|000009d0| 3a 47 4f 54 4f 31 30 31 | 30 0a 31 30 35 30 20 50 |:GOTO101|0.1050 P|
|000009e0| 4f 4b 45 50 4c 2c 33 32 | 3a 58 3d 2e 30 31 3a 47 |OKEPL,32|:X=.01:G|
|000009f0| 4f 53 55 42 31 31 30 30 | 0a 31 30 36 30 20 50 4f |OSUB1100|.1060 PO|
|00000a00| 4b 45 50 4c 2c 34 32 3a | 58 3d 2e 30 31 3a 47 4f |KEPL,42:|X=.01:GO|
|00000a10| 53 55 42 31 31 30 30 0a | 31 30 37 30 20 47 4f 54 |SUB1100.|1070 GOT|
|00000a20| 4f 31 30 31 30 0a 31 31 | 30 30 20 52 45 4d 20 2a |O1010.11|00 REM *|
|00000a30| 2a 20 44 45 4c 41 59 20 | 58 20 53 45 43 4f 4e 44 |* DELAY |X SECOND|
|00000a40| 53 20 2a 2a 2a 0a 31 31 | 31 30 20 46 4f 52 54 3d |S ***.11|10 FORT=|
|00000a50| 31 54 4f 58 2a 31 30 30 | 30 3a 4e 45 58 54 54 3a |1TOX*100|0:NEXTT:|
|00000a60| 52 45 54 55 52 4e 0a 31 | 32 30 30 20 52 45 4d 20 |RETURN.1|200 REM |
|00000a70| 2a 2a 2a 20 41 57 41 49 | 54 20 47 45 54 53 20 55 |*** AWAI|T GETS U|
|00000a80| 4e 54 49 4c 20 52 45 54 | 55 52 4e 20 2a 2a 2a 0a |NTIL RET|URN ***.|
|00000a90| 31 32 31 30 20 41 4e 3d | 30 0a 31 32 32 30 20 5a |1210 AN=|0.1220 Z|
|00000aa0| 24 3d 22 30 31 32 33 34 | 35 36 37 38 39 22 2b 52 |$="01234|56789"+R|
|00000ab0| 45 24 2b 43 48 52 24 28 | 32 30 29 3a 47 4f 53 55 |E$+CHR$(|20):GOSU|
|00000ac0| 42 31 30 30 30 0a 31 32 | 33 30 20 49 46 5a 3d 31 |B1000.12|30 IFZ=1|
|00000ad0| 32 41 4e 44 41 4e 3e 30 | 54 48 45 4e 50 52 49 4e |2ANDAN>0|THENPRIN|
|00000ae0| 54 43 48 52 24 28 32 30 | 29 3b 3a 41 4e 3d 49 4e |TCHR$(20|);:AN=IN|
|00000af0| 54 28 41 4e 2f 31 30 29 | 3a 47 4f 54 4f 31 32 32 |T(AN/10)|:GOTO122|
|00000b00| 30 0a 31 32 34 30 20 49 | 46 5a 3d 31 32 54 48 45 |0.1240 I|FZ=12THE|
|00000b10| 4e 31 32 32 30 0a 31 32 | 35 30 20 50 52 49 4e 54 |N1220.12|50 PRINT|
|00000b20| 41 24 3b 3a 49 46 5a 3d | 31 31 54 48 45 4e 52 45 |A$;:IFZ=|11THENRE|
|00000b30| 54 55 52 4e 0a 31 32 36 | 30 20 41 4e 3d 41 4e 2a |TURN.126|0 AN=AN*|
|00000b40| 31 30 2b 5a 2d 31 3a 44 | 45 3d 44 45 2b 31 3a 47 |10+Z-1:D|E=DE+1:G|
|00000b50| 4f 54 4f 31 32 32 30 0a | |OTO1220.| |
+--------+-------------------------+-------------------------+--------+--------+
