home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 3.0 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
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 3a 3a 52 45 4d | 20 53 54 41 52 20 47 45 |10 ::REM| STAR GE|
|00000010| 4d 49 4e 49 20 31 30 58 | 20 55 54 49 4c 49 54 59 |MINI 10X| UTILITY|
|00000020| 0a 31 35 20 52 4f 24 3d | 43 48 52 24 28 31 38 29 |.15 RO$=|CHR$(18)|
|00000030| 3a 52 43 24 3d 43 48 52 | 24 28 31 34 36 29 3a 56 |:RC$=CHR|$(146):V|
|00000040| 24 3d 43 48 52 24 28 31 | 34 32 29 3a 59 24 3d 43 |$=CHR$(1|42):Y$=C|
|00000050| 48 52 24 28 31 34 29 0a | 32 30 20 4f 50 45 4e 34 |HR$(14).|20 OPEN4|
|00000060| 2c 34 2c 34 3a 50 24 3d | 43 48 52 24 28 32 37 29 |,4,4:P$=|CHR$(27)|
|00000070| 3a 50 3d 31 35 39 39 3a | 41 24 3d 22 22 3a 4f 50 |:P=1599:|A$="":OP|
|00000080| 45 4e 32 2c 30 3a 50 52 | 49 4e 54 23 34 2c 50 24 |EN2,0:PR|INT#4,P$|
|00000090| 43 48 52 24 28 36 34 29 | 3b 0a 33 30 20 42 24 3d |CHR$(64)|;.30 B$=|
|000000a0| 22 1d 22 3a 50 52 49 4e | 54 43 48 52 24 28 31 34 |".":PRIN|TCHR$(14|
|000000b0| 29 43 48 52 24 28 31 34 | 37 29 3b 3a 50 4f 4b 45 |)CHR$(14|7);:POKE|
|000000c0| 50 2c 36 32 0a 34 30 20 | 50 52 49 4e 54 42 24 22 |P,62.40 |PRINTB$"|
|000000d0| 92 20 20 20 20 20 20 20 | 20 20 20 c7 c5 cd c9 ce |. | .....|
|000000e0| c9 20 20 d3 45 54 54 45 | 52 00 0a 35 30 20 52 45 |. .ETTE|R..50 RE|
|000000f0| 4d 20 50 52 49 4e 54 0a | 36 30 20 50 52 49 4e 54 |M PRINT.|60 PRINT|
|00000100| 42 24 22 12 20 cf 4e 45 | 20 4c 45 54 54 45 52 20 |B$". .NE| LETTER |
|00000110| 41 46 54 45 52 20 41 4e | 4f 54 48 45 52 3a 20 d1 |AFTER AN|OTHER: .|
|00000120| 20 52 45 53 54 41 52 54 | 53 20 92 22 0a 37 30 20 | RESTART|S .".70 |
|00000130| 50 52 49 4e 54 42 24 22 | 12 20 cc 20 92 20 4c 45 |PRINTB$"|. . . LE|
|00000140| 46 54 20 4d 41 52 47 49 | 4e 20 20 20 20 12 20 d2 |FT MARGI|N . .|
|00000150| 20 92 20 52 49 47 48 54 | 20 4d 41 52 47 20 20 20 | . RIGHT| MARG |
|00000160| 12 20 20 92 22 0a 38 30 | 20 50 52 49 4e 54 42 24 |. .".80| PRINTB$|
|00000170| 22 12 20 d4 20 92 20 54 | 4f 50 20 20 4d 41 52 47 |". . . T|OP MARG|
|00000180| 49 4e 20 20 20 20 12 20 | c2 20 92 20 42 54 4d 41 |IN . |. . BTMA|
|00000190| 52 47 3a 53 4b 50 45 52 | 46 12 20 20 92 22 0a 39 |RG:SKPER|F. .".9|
|000001a0| 30 20 50 52 49 4e 54 42 | 24 22 12 20 5e 20 92 20 |0 PRINTB|$". ^ . |
|000001b0| 53 55 50 45 52 53 43 52 | 49 50 54 20 20 20 20 12 |SUPERSCR|IPT .|
|000001c0| 20 5f 20 92 20 53 55 42 | 53 43 52 49 50 54 20 20 | _ . SUB|SCRIPT |
|000001d0| 20 20 12 20 20 92 22 0a | 31 30 30 20 50 52 49 4e | . .".|100 PRIN|
|000001e0| 54 42 24 22 12 20 23 20 | 92 20 55 4e 49 44 49 52 |TB$". # |. UNIDIR|
|000001f0| 45 43 54 49 4f 4e 20 20 | 20 12 20 58 20 92 20 58 |ECTION | . X . X|
|00000200| 2f 31 34 34 20 4c 49 20 | 53 50 43 20 12 20 20 92 |/144 LI |SPC . .|
|00000210| 22 0a 31 31 30 20 50 52 | 49 4e 54 42 24 22 12 20 |".110 PR|INTB$". |
|00000220| 24 20 92 20 46 4f 52 4d | 20 4c 45 4e 20 28 49 4e |$ . FORM| LEN (IN|
|00000230| 29 20 20 12 20 38 20 92 | 20 4c 49 20 46 45 45 44 |) . 8 .| LI FEED|
|00000240| 3d 31 2f 38 20 20 12 20 | 20 92 00 0a 31 32 30 20 |=1/8 . | ...120 |
|00000250| 50 52 49 4e 54 42 24 22 | 12 20 2a 20 92 20 21 c5 |PRINTB$"|. * . !.|
|00000260| cd d0 c8 c1 d3 c9 da c5 | 21 20 20 20 20 12 20 c4 |........|! . .|
|00000270| 20 92 20 c4 c2 cc 2f d3 | d4 d2 c9 cb c5 20 20 20 | . .../.|..... |
|00000280| 12 20 20 92 22 0a 31 33 | 30 20 50 52 49 4e 54 42 |. .".13|0 PRINTB|
|00000290| 24 22 12 20 c3 20 92 20 | 43 4f 4e 44 45 4e 53 45 |$". . . |CONDENSE|
|000002a0| 44 20 20 20 20 20 20 12 | 20 d7 20 92 20 57 20 20 |D .| . . W |
|000002b0| 49 20 20 44 20 20 45 20 | 20 20 12 20 20 92 22 0a |I D E | . .".|
|000002c0| 31 34 30 20 50 52 49 4e | 54 42 24 22 12 20 c9 20 |140 PRIN|TB$". . |
|000002d0| 92 20 49 54 41 4c 49 43 | 53 20 20 20 20 20 20 20 |. ITALIC|S |
|000002e0| 20 12 20 c5 20 92 20 45 | 4c 49 54 45 20 54 59 50 | . . . E|LITE TYP|
|000002f0| 45 20 20 20 12 20 20 92 | 22 0a 31 35 30 20 52 45 |E . .|".150 RE|
|00000300| 4d 20 4f 55 54 20 53 45 | 4e 53 4f 52 3d 50 52 49 |M OUT SE|NSOR=PRI|
|00000310| 4e 54 20 45 56 45 4e 20 | 49 46 20 50 41 50 45 52 |NT EVEN |IF PAPER|
|00000320| 20 20 20 20 20 20 20 20 | 20 27 4f 55 54 27 53 45 | | 'OUT'SE|
|00000330| 4e 53 4f 52 20 53 57 49 | 54 43 48 20 49 53 20 4f |NSOR SWI|TCH IS O|
|00000340| 4e 2e 0a 31 36 30 20 50 | 52 49 4e 54 42 24 22 12 |N..160 P|RINTB$".|
|00000350| 20 cf 20 92 20 4f 55 54 | 20 53 45 4e 53 4f 52 20 | . . OUT| SENSOR |
|00000360| 4f 46 46 20 12 20 d1 20 | 92 20 53 54 41 52 54 20 |OFF . . |. START |
|00000370| 4f 56 45 52 20 2a 20 12 | 20 20 92 00 0a 31 37 30 |OVER * .| ...170|
|00000380| 20 50 52 49 4e 54 42 24 | 22 12 20 d5 20 92 20 55 | PRINTB$|". . . U|
|00000390| 4e 44 45 52 4c 49 4e 45 | 20 20 20 20 20 20 12 20 |NDERLINE| . |
|000003a0| c6 20 92 20 46 49 4e 49 | 53 48 45 44 20 2a 20 2a |. . FINI|SHED * *|
|000003b0| 20 12 20 20 92 22 0a 31 | 38 30 20 50 52 49 4e 54 | . .".1|80 PRINT|
|000003c0| 42 24 22 12 20 c5 4e 54 | 45 52 20 4c 54 52 53 2f |B$". .NT|ER LTRS/|
|000003d0| 53 59 4d 42 53 3a ce cf | 20 d2 c5 d4 2e 2e cd 41 |SYMBS:..| ......A|
|000003e0| 4b 45 20 4c 41 53 54 20 | c6 20 92 22 3a 50 52 49 |KE LAST |. .":PRI|
|000003f0| 4e 54 3a 50 52 49 4e 54 | 53 50 43 28 31 36 29 22 |NT:PRINT|SPC(16)"|
|00000400| 12 22 3b 0a 31 39 30 20 | 47 45 54 23 32 2c 51 24 |.";.190 |GET#2,Q$|
|00000410| 3a 49 46 51 24 3d 22 22 | 54 48 45 4e 31 39 30 0a |:IFQ$=""|THEN190.|
|00000420| 32 30 30 20 49 46 51 24 | 3d 43 48 52 24 28 31 33 |200 IFQ$|=CHR$(13|
|00000430| 29 54 48 45 4e 31 39 30 | 20 0a 32 31 30 20 49 46 |)THEN190| .210 IF|
|00000440| 51 24 3d 22 51 22 54 48 | 45 4e 20 52 55 4e 0a 32 |Q$="Q"TH|EN RUN.2|
|00000450| 32 30 20 49 46 51 24 3d | 22 46 22 54 48 45 4e 41 |20 IFQ$=|"F"THENA|
|00000460| 24 3d 41 24 2b 51 24 3a | 50 52 49 4e 54 51 24 3a |$=A$+Q$:|PRINTQ$:|
|00000470| 47 4f 54 4f 32 34 30 0a | 32 33 30 20 50 52 49 4e |GOTO240.|230 PRIN|
|00000480| 54 51 24 3b 3a 41 24 3d | 41 24 2b 51 24 3a 47 4f |TQ$;:A$=|A$+Q$:GO|
|00000490| 54 4f 31 39 30 0a 32 34 | 30 20 4c 3d 4c 45 4e 28 |TO190.24|0 L=LEN(|
|000004a0| 41 24 29 3a 46 4f 52 20 | 54 3d 31 54 4f 4c 3a 5a |A$):FOR |T=1TOL:Z|
|000004b0| 24 3d 4d 49 44 24 28 41 | 24 2c 54 2c 31 29 0a 32 |$=MID$(A|$,T,1).2|
|000004c0| 35 30 20 49 46 5a 24 3d | 22 55 22 54 48 45 4e 42 |50 IFZ$=|"U"THENB|
|000004d0| 3d 34 35 3a 4e 3d 31 3a | 47 4f 53 55 42 34 35 30 |=45:N=1:|GOSUB450|
|000004e0| 0a 32 36 30 20 49 46 5a | 24 3d 22 5e 22 54 48 45 |.260 IFZ|$="^"THE|
|000004f0| 4e 42 3d 38 33 3a 4e 3d | 30 3a 47 4f 53 55 42 34 |NB=83:N=|0:GOSUB4|
|00000500| 35 30 0a 32 37 30 20 49 | 46 5a 24 3d 22 5f 22 54 |50.270 I|FZ$="_"T|
|00000510| 48 45 4e 42 3d 38 33 3a | 4e 3d 31 3a 47 4f 53 55 |HENB=83:|N=1:GOSU|
|00000520| 42 34 35 30 0a 32 38 30 | 20 49 46 5a 24 3d 22 4c |B450.280| IFZ$="L|
|00000530| 22 54 48 45 4e 09 0a 32 | 39 30 20 49 46 5a 24 3d |"THEN..2|90 IFZ$=|
|00000540| 22 38 22 54 48 45 4e 42 | 3d 34 38 3a 47 4f 53 55 |"8"THENB|=48:GOSU|
|00000550| 42 34 36 30 0a 33 30 30 | 20 49 46 5a 24 3d 22 cf |B460.300| IFZ$=".|
|00000560| 22 54 48 45 4e 42 3d 35 | 36 3a 47 4f 53 55 42 34 |"THENB=5|6:GOSUB4|
|00000570| 36 30 0a 33 31 30 20 49 | 46 5a 24 3d 22 24 22 54 |60.310 I|FZ$="$"T|
|00000580| 48 45 4e 42 3d 36 37 3a | 47 4f 53 55 42 34 38 30 |HENB=67:|GOSUB480|
|00000590| 0a 33 32 30 20 49 46 5a | 24 3d 22 52 22 54 48 45 |.320 IFZ|$="R"THE|
|000005a0| 4e 42 3d 38 31 3a 47 4f | 53 55 42 34 38 30 0a 33 |NB=81:GO|SUB480.3|
|000005b0| 33 30 20 49 46 5a 24 3d | 22 54 22 54 48 45 4e 42 |30 IFZ$=|"T"THENB|
|000005c0| 3d 38 32 3a 47 4f 53 55 | 42 34 38 30 0a 33 34 30 |=82:GOSU|B480.340|
|000005d0| 20 49 46 5a 24 3d 22 42 | 22 54 48 45 4e 42 3d 37 | IFZ$="B|"THENB=7|
|000005e0| 38 3a 47 4f 53 55 42 34 | 38 30 0a 33 35 30 20 49 |8:GOSUB4|80.350 I|
|000005f0| 46 5a 24 3d 22 23 22 54 | 48 45 4e 42 3d 38 35 3a |FZ$="#"T|HENB=85:|
|00000600| 4e 3d 31 3a 47 4f 53 55 | 42 34 35 30 0a 33 36 30 |N=1:GOSU|B450.360|
|00000610| 20 49 46 5a 24 3d 22 58 | 22 54 48 45 4e 42 3d 35 | IFZ$="X|"THENB=5|
|00000620| 31 3a 47 4f 53 55 42 34 | 38 30 0a 33 37 30 20 49 |1:GOSUB4|80.370 I|
|00000630| 46 5a 24 3d 22 43 22 54 | 48 45 4e 42 3d 36 36 3a |FZ$="C"T|HENB=66:|
|00000640| 4e 3d 33 3a 47 4f 53 55 | 42 34 35 30 0a 33 38 30 |N=3:GOSU|B450.380|
|00000650| 20 49 46 5a 24 3d 22 57 | 22 54 48 45 4e 42 3d 38 | IFZ$="W|"THENB=8|
|00000660| 37 3a 4e 3d 31 3a 47 4f | 53 55 42 34 35 30 0a 33 |7:N=1:GO|SUB450.3|
|00000670| 39 30 20 49 46 5a 24 3d | 22 2a 22 54 48 45 4e 42 |90 IFZ$=|"*"THENB|
|00000680| 3d 36 39 3a 47 4f 53 55 | 42 34 36 30 0a 34 30 30 |=69:GOSU|B460.400|
|00000690| 20 49 46 5a 24 3d 22 44 | 22 54 48 45 4e 42 3d 37 | IFZ$="D|"THENB=7|
|000006a0| 31 3a 47 4f 53 55 42 34 | 36 30 0a 34 31 30 20 49 |1:GOSUB4|60.410 I|
|000006b0| 46 5a 24 3d 22 45 22 54 | 48 45 4e 42 3d 36 36 3a |FZ$="E"T|HENB=66:|
|000006c0| 4e 3d 32 3a 47 4f 53 55 | 42 34 35 30 0a 34 32 30 |N=2:GOSU|B450.420|
|000006d0| 20 49 46 5a 24 3d 22 49 | 22 54 48 45 4e 42 3d 35 | IFZ$="I|"THENB=5|
|000006e0| 32 3a 47 4f 53 55 42 34 | 35 30 0a 34 33 30 20 49 |2:GOSUB4|50.430 I|
|000006f0| 46 5a 24 3d 22 46 22 54 | 48 45 4e 34 39 30 0a 34 |FZ$="F"T|HEN490.4|
|00000700| 34 30 20 4e 45 58 54 0a | 34 34 35 20 52 45 4d 45 |40 NEXT.|445 REME|
|00000710| 4e 44 0a 34 35 30 20 50 | 52 49 4e 54 23 34 2c 50 |ND.450 P|RINT#4,P|
|00000720| 24 43 48 52 24 28 42 29 | 43 48 52 24 28 4e 29 3b |$CHR$(B)|CHR$(N);|
|00000730| 3a 50 3d 50 2b 31 3a 50 | 4f 4b 45 50 2c 31 32 32 |:P=P+1:P|OKEP,122|
|00000740| 3a 52 45 54 55 52 4e 0a | 34 36 30 20 50 52 49 4e |:RETURN.|460 PRIN|
|00000750| 54 23 34 2c 50 24 43 48 | 52 24 28 42 29 3b 3a 50 |T#4,P$CH|R$(B);:P|
|00000760| 3d 50 2b 31 3a 50 4f 4b | 45 50 2c 31 32 32 20 3a |=P+1:POK|EP,122 :|
|00000770| 52 45 54 55 52 4e 0a 34 | 37 30 20 50 4f 4b 45 31 |RETURN.4|70 POKE1|
|00000780| 37 31 38 2c 33 32 0a 34 | 38 30 20 50 52 49 4e 54 |718,32.4|80 PRINT|
|00000790| 59 24 22 20 20 48 4f 57 | 20 4d 55 43 48 20 46 4f |Y$" HOW| MUCH FO|
|000007a0| 52 3a 20 22 5a 24 3b 3a | 49 4e 50 55 54 4e 3a 50 |R: "Z$;:|INPUTN:P|
|000007b0| 52 49 4e 54 52 4f 24 22 | 12 22 20 20 22 92 22 3b |RINTRO$"|." ".";|
|000007c0| 3a 47 4f 54 4f 34 35 30 | 20 0a 34 39 30 20 50 52 |:GOTO450| .490 PR|
|000007d0| 49 4e 54 22 20 20 57 49 | 53 48 20 54 4f 20 53 09 |INT" WI|SH TO S.|
|000007e0| 00 20 48 4f 52 49 5a 4f | 4e 54 41 4c 20 54 41 42 |. HORIZO|NTAL TAB|
|000007f0| 53 20 59 2f 4e 20 3f 22 | 0a 35 30 30 20 47 45 54 |S Y/N ?"|.500 GET|
|00000800| 54 24 3a 49 46 54 24 3d | 22 22 54 48 45 4e 35 30 |T$:IFT$=|""THEN50|
|00000810| 30 0a 35 31 30 20 49 46 | 54 24 3d 22 59 22 54 48 |0.510 IF|T$="Y"TH|
|00000820| 45 4e 35 33 30 0a 35 32 | 30 20 50 52 49 4e 54 22 |EN530.52|0 PRINT"|
|00000830| 20 c4 4f 4e 45 2e 22 3a | 50 52 49 4e 54 23 34 3a | .ONE.":|PRINT#4:|
|00000840| 43 4c 4f 53 45 34 3a 43 | 4c 4f 53 45 32 3a 45 4e |CLOSE4:C|LOSE2:EN|
|00000850| 44 0a 35 33 30 20 52 45 | 4d 20 53 45 43 4f 4e 44 |D.530 RE|M SECOND|
|00000860| 50 41 47 45 20 4f 46 20 | 4d 45 4e 55 0a 35 34 30 |PAGE OF |MENU.540|
|00000870| 20 41 24 3d 22 22 3a 48 | 24 3d 43 48 52 24 28 32 | A$="":H|$=CHR$(2|
|00000880| 37 29 2b 43 48 52 24 28 | 36 38 29 0a 35 35 30 20 |7)+CHR$(|68).550 |
|00000890| 50 52 49 4e 54 22 93 22 | 3a 50 4f 4b 45 31 35 35 |PRINT"."|:POKE155|
|000008a0| 39 2c 36 32 3a 50 3d 31 | 36 38 30 0a 35 36 30 20 |9,62:P=1|680.560 |
|000008b0| 50 52 49 4e 54 42 24 22 | 20 20 20 20 20 20 20 12 |PRINTB$"| .|
|000008c0| 20 c5 4e 54 45 52 20 54 | 41 42 53 20 22 3a 50 52 | .NTER T|ABS ":PR|
|000008d0| 49 4e 54 0a 35 37 30 20 | 50 52 49 4e 54 42 24 22 |INT.570 |PRINTB$"|
|000008e0| 20 20 20 12 20 31 20 92 | 20 d3 45 54 20 54 41 42 | . 1 .| .ET TAB|
|000008f0| 20 31 20 20 20 20 12 20 | 38 20 92 20 d3 45 54 20 | 1 . |8 . .ET |
|00000900| 54 41 42 20 38 00 0a 35 | 38 30 20 50 52 49 4e 54 |TAB 8..5|80 PRINT|
|00000910| 42 24 22 20 20 20 12 20 | 32 20 92 20 d3 45 54 20 |B$" . |2 . .ET |
|00000920| 54 41 42 20 32 20 20 20 | 20 12 20 39 20 92 20 d3 |TAB 2 | . 9 . .|
|00000930| 45 54 20 54 41 42 20 39 | 00 0a 35 39 30 20 50 52 |ET TAB 9|..590 PR|
|00000940| 49 4e 54 42 24 22 20 20 | 20 12 20 33 20 92 20 d3 |INTB$" | . 3 . .|
|00000950| 45 54 20 54 41 42 20 33 | 20 20 20 20 12 20 c1 20 |ET TAB 3| . . |
|00000960| 92 20 d3 45 54 20 54 41 | 42 20 31 30 00 0a 36 30 |. .ET TA|B 10..60|
|00000970| 30 20 50 52 49 4e 54 42 | 24 22 20 20 20 12 20 34 |0 PRINTB|$" . 4|
|00000980| 20 92 20 d3 45 54 20 54 | 41 42 20 34 20 20 20 20 | . .ET T|AB 4 |
|00000990| 12 20 c2 20 92 20 d3 45 | 54 20 54 41 42 20 31 31 |. . . .E|T TAB 11|
|000009a0| 00 0a 36 31 30 20 50 52 | 49 4e 54 42 24 22 20 20 |..610 PR|INTB$" |
|000009b0| 20 12 20 35 20 92 20 d3 | 45 54 20 54 41 42 20 35 | . 5 . .|ET TAB 5|
|000009c0| 20 20 20 20 12 20 c3 20 | 92 20 d3 45 54 20 54 41 | . . |. .ET TA|
|000009d0| 42 20 31 32 00 0a 36 32 | 30 20 50 52 49 4e 54 42 |B 12..62|0 PRINTB|
|000009e0| 24 22 20 20 20 12 20 36 | 20 92 20 d3 45 54 20 54 |$" . 6| . .ET T|
|000009f0| 41 42 20 36 20 20 20 20 | 12 20 c4 20 92 20 d3 45 |AB 6 |. . . .E|
|00000a00| 54 20 54 41 42 20 31 33 | 00 0a 36 33 30 20 50 52 |T TAB 13|..630 PR|
|00000a10| 49 4e 54 42 24 22 20 20 | 20 12 20 37 20 92 20 d3 |INTB$" | . 7 . .|
|00000a20| 45 54 20 54 41 42 20 37 | 20 20 20 20 12 20 c5 20 |ET TAB 7| . . |
|00000a30| 92 20 d3 45 54 09 00 41 | 42 20 31 34 00 0a 36 34 |. .ET..A|B 14..64|
|00000a40| 30 20 50 52 49 4e 54 3a | 50 52 49 4e 54 22 20 c5 |0 PRINT:|PRINT" .|
|00000a50| 4e 54 45 52 20 12 20 55 | 50 20 54 4f 20 31 34 20 |NTER . U|P TO 14 |
|00000a60| 54 41 42 53 2e 92 20 cd | 41 4b 45 20 4c 41 53 54 |TABS.. .|AKE LAST|
|00000a70| 20 12 c6 92 22 3a 50 52 | 49 4e 54 3a 50 52 49 4e | ...":PR|INT:PRIN|
|00000a80| 54 53 50 43 28 31 36 29 | 22 12 22 3b 0a 36 35 30 |TSPC(16)|".";.650|
|00000a90| 20 47 45 54 23 32 2c 51 | 24 3a 49 46 51 24 3d 22 | GET#2,Q|$:IFQ$="|
|00000aa0| 22 54 48 45 4e 36 35 30 | 0a 36 36 30 20 49 46 51 |"THEN650|.660 IFQ|
|00000ab0| 24 3d 22 46 22 54 48 45 | 4e 41 24 3d 41 24 2b 51 |$="F"THE|NA$=A$+Q|
|00000ac0| 24 3a 50 52 49 4e 54 3a | 47 4f 54 4f 36 38 30 0a |$:PRINT:|GOTO680.|
|00000ad0| 36 37 30 20 50 52 49 4e | 54 51 24 3b 3a 41 24 3d |670 PRIN|TQ$;:A$=|
|00000ae0| 41 24 2b 51 24 3a 47 4f | 54 4f 36 35 30 0a 36 38 |A$+Q$:GO|TO650.68|
|00000af0| 30 20 4c 3d 4c 45 4e 28 | 41 24 29 3a 46 4f 52 20 |0 L=LEN(|A$):FOR |
|00000b00| 54 3d 31 54 4f 4c 3a 5a | 24 3d 4d 49 44 24 28 41 |T=1TOL:Z|$=MID$(A|
|00000b10| 24 2c 54 2c 31 29 0a 36 | 39 30 20 49 46 5a 24 3d |$,T,1).6|90 IFZ$=|
|00000b20| 22 46 22 54 48 45 4e 37 | 35 30 20 0a 37 30 30 20 |"F"THEN7|50 .700 |
|00000b30| 47 4f 53 55 42 37 34 30 | 20 0a 37 31 30 20 4e 45 |GOSUB740| .710 NE|
|00000b40| 58 54 0a 37 32 30 20 48 | 24 3d 48 24 2b 43 48 52 |XT.720 H|$=H$+CHR|
|00000b50| 24 28 4e 29 3a 52 45 54 | 55 52 4e 0a 37 33 30 20 |$(N):RET|URN.730 |
|00000b60| 50 4f 4b 45 31 37 31 38 | 2c 33 32 0a 37 34 30 20 |POKE1718|,32.740 |
|00000b70| 50 52 49 4e 54 59 24 53 | 50 43 28 32 29 22 48 4f |PRINTY$S|PC(2)"HO|
|00000b80| 57 20 4d 55 43 48 20 46 | 4f 52 3a 20 22 5a 24 3b |W MUCH F|OR: "Z$;|
|00000b90| 3a 49 4e 50 55 54 4e 3a | 50 52 49 4e 54 52 4f 24 |:INPUTN:|PRINTRO$|
|00000ba0| 22 12 22 20 20 22 92 22 | 3b 3a 47 4f 53 55 42 37 |"." "."|;:GOSUB7|
|00000bb0| 32 30 3a 52 45 54 55 52 | 4e 0a 37 35 30 20 50 52 |20:RETUR|N.750 PR|
|00000bc0| 49 4e 54 23 34 2c 48 24 | 2b 43 48 52 24 28 30 29 |INT#4,H$|+CHR$(0)|
|00000bd0| 3a 43 4c 4f 53 45 34 3a | 43 4c 4f 53 45 32 0a 37 |:CLOSE4:|CLOSE2.7|
|00000be0| 36 30 20 45 4e 44 0a 36 | 36 38 32 20 1a 1a 1a 1a |60 END.6|682 ....|
|00000bf0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000c00| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000c10| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000c20| 1a 1a 1a 1a 0a | |..... | |
+--------+-------------------------+-------------------------+--------+--------+
