home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 3.4 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: '0 IFLC'
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 49 46 4c 43 3d 31 | 54 48 45 4e 53 59 53 35 |0 IFLC=1|THENSYS5|
|00000010| 31 30 36 3a 47 4f 54 4f | 35 37 0a 31 20 50 4f 4b |106:GOTO|57.1 POK|
|00000020| 45 38 30 38 2c 32 33 34 | 3a 50 4f 4b 45 35 33 32 |E808,234|:POKE532|
|00000030| 38 30 2c 30 3a 50 4f 4b | 45 35 33 32 38 31 2c 30 |80,0:POK|E53281,0|
|00000040| 3a 50 52 49 4e 54 22 93 | 22 43 48 52 24 28 31 34 |:PRINT".|"CHR$(14|
|00000050| 29 0a 32 20 4c 43 3d 31 | 3a 4c 46 24 3d 22 13 11 |).2 LC=1|:LF$="..|
|00000060| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 22 0a |........|......".|
|00000070| 33 20 53 50 31 24 3d 22 | 1d 1d 1d 1d 1d 1d 1d 1d |3 SP1$="|........|
|00000080| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 22 3a 50 52 |........|....":PR|
|00000090| 49 4e 54 54 41 42 28 39 | 29 22 1c a6 a6 a6 a6 a6 |INTTAB(9|)"......|
|000000a0| a6 a6 a6 a6 a6 a6 a6 a6 | a6 a6 a6 a6 a6 a6 a6 a6 |........|........|
|000000b0| a6 a6 a6 22 0a 34 20 50 | 52 49 4e 54 54 41 42 28 |...".4 P|RINTTAB(|
|000000c0| 39 29 22 a6 20 20 20 20 | 20 20 20 20 20 20 20 20 |9)". | |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 a6 22 0a 35 20 50 | | .".5 P|
|000000e0| 52 49 4e 54 54 41 42 28 | 39 29 22 a6 20 20 20 20 |RINTTAB(|9)". |
|000000f0| 20 20 9e cc 41 42 45 4c | 20 cd 41 4b 45 52 1c 20 | ..ABEL| .AKER. |
|00000100| 20 20 20 20 a6 22 0a 36 | 20 50 52 49 4e 54 54 41 | .".6| PRINTTA|
|00000110| 42 28 39 29 22 a6 20 20 | 20 20 20 20 20 20 20 20 |B(9)". | |
|00000120| 20 20 20 20 20 20 20 20 | 20 20 20 20 a6 22 0a 37 | | .".7|
|00000130| 20 50 52 49 4e 54 54 41 | 42 28 39 29 22 a6 20 20 | PRINTTA|B(9)". |
|00000140| 20 20 20 20 20 20 9f d6 | 49 53 49 54 53 20 20 20 | ..|ISITS |
|00000150| 20 20 20 20 20 1c a6 22 | 0a 38 20 50 52 49 4e 54 | .."|.8 PRINT|
|00000160| 54 41 42 28 39 29 22 a6 | 20 20 20 20 20 20 20 20 |TAB(9)".| |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 a6 22 | | ."|
|00000180| 0a 39 20 50 52 49 4e 54 | 54 41 42 28 39 29 22 a6 |.9 PRINT|TAB(9)".|
|00000190| 20 20 20 20 20 1e d4 48 | 45 20 d0 52 49 4e 54 20 | ..H|E .RINT |
|000001a0| d3 48 4f 50 20 20 20 1c | a6 22 0a 31 30 20 50 52 |.HOP .|.".10 PR|
|000001b0| 49 4e 54 54 41 42 28 39 | 29 22 a6 20 20 20 20 20 |INTTAB(9|)". |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001d0| 20 a6 22 0a 31 31 20 50 | 52 49 4e 54 54 41 42 28 | .".11 P|RINTTAB(|
|000001e0| 39 29 22 a6 a6 a6 a6 a6 | a6 a6 a6 a6 a6 a6 a6 a6 |9)".....|........|
|000001f0| a6 a6 a6 a6 a6 a6 a6 a6 | a6 a6 a6 22 0a 31 32 20 |........|...".12 |
|00000200| 50 52 49 4e 54 54 41 42 | 28 31 34 29 22 11 11 11 |PRINTTAB|(14)"...|
|00000210| 9a 42 59 20 ca 4f 48 4e | 20 d3 50 49 43 45 52 22 |.BY .OHN| .PICER"|
|00000220| 0a 31 33 20 50 52 49 4e | 54 54 41 42 28 35 29 22 |.13 PRIN|TTAB(5)"|
|00000230| 11 11 11 97 cd 2f cc 20 | d3 55 42 2d d2 4f 55 54 |...../. |.UB-.OUT|
|00000240| 49 4e 45 20 42 59 20 c2 | 52 49 41 4e 20 c7 45 59 |INE BY .|RIAN .EY|
|00000250| 42 4f 45 52 22 0a 31 34 | 20 50 52 49 4e 54 54 41 |BOER".14| PRINTTA|
|00000260| 42 28 31 30 29 22 11 11 | 11 11 11 9f d0 52 45 53 |B(10)"..|.....RES|
|00000270| 53 20 41 4e 59 20 4b 45 | 59 20 54 4f 20 53 54 41 |S ANY KE|Y TO STA|
|00000280| 52 54 22 0a 31 35 20 47 | 45 54 41 24 3a 49 46 41 |RT".15 G|ETA$:IFA|
|00000290| 24 3d 22 22 54 48 45 4e | 31 35 0a 31 36 20 44 49 |$=""THEN|15.16 DI|
|000002a0| 4d 58 25 28 35 36 2c 31 | 31 29 2c 59 25 28 36 2c |MX%(56,1|1),Y%(6,|
|000002b0| 38 37 29 2c 46 53 24 28 | 31 32 29 0a 31 37 20 45 |87),FS$(|12).17 E|
|000002c0| 24 3d 43 48 52 24 28 32 | 37 29 0a 31 38 20 46 53 |$=CHR$(2|7).18 FS|
|000002d0| 24 28 31 29 3d 45 24 2b | 22 48 22 0a 31 39 20 46 |$(1)=E$+|"H".19 F|
|000002e0| 53 24 28 32 29 3d 46 53 | 24 28 31 29 2b 43 48 52 |S$(2)=FS|$(1)+CHR|
|000002f0| 24 28 31 34 29 0a 32 30 | 20 46 53 24 28 33 29 3d |$(14).20| FS$(3)=|
|00000300| 43 48 52 24 28 31 35 29 | 0a 32 31 20 46 53 24 28 |CHR$(15)|.21 FS$(|
|00000310| 34 29 3d 46 53 24 28 31 | 29 2b 45 24 2b 22 45 22 |4)=FS$(1|)+E$+"E"|
|00000320| 2b 43 48 52 24 28 31 29 | 2b 43 48 52 24 28 31 35 |+CHR$(1)|+CHR$(15|
|00000330| 29 0a 32 32 20 46 53 24 | 28 35 29 3d 46 53 24 28 |).22 FS$|(5)=FS$(|
|00000340| 31 29 2b 45 24 2b 43 48 | 52 24 28 35 32 29 0a 32 |1)+E$+CH|R$(52).2|
|00000350| 33 20 46 53 24 28 36 29 | 3d 46 53 24 28 32 29 2b |3 FS$(6)|=FS$(2)+|
|00000360| 46 53 24 28 35 29 0a 32 | 34 20 46 53 24 28 37 29 |FS$(5).2|4 FS$(7)|
|00000370| 3d 46 53 24 28 33 29 2b | 45 24 2b 43 48 52 24 28 |=FS$(3)+|E$+CHR$(|
|00000380| 35 32 29 0a 32 35 20 46 | 53 24 28 38 29 3d 46 53 |52).25 F|S$(8)=FS|
|00000390| 24 28 34 29 2b 46 53 24 | 28 35 29 0a 32 36 20 45 |$(4)+FS$|(5).26 E|
|000003a0| 4c 24 3d 45 24 2b 43 48 | 52 24 28 38 34 29 2b 45 |L$=E$+CH|R$(84)+E|
|000003b0| 24 2b 43 48 52 24 28 35 | 33 29 2b 43 48 52 24 28 |$+CHR$(5|3)+CHR$(|
|000003c0| 31 38 29 2b 45 24 2b 43 | 48 52 24 28 37 30 29 2b |18)+E$+C|HR$(70)+|
|000003d0| 43 48 52 24 28 31 30 29 | 2b 43 48 52 24 28 31 33 |CHR$(10)|+CHR$(13|
|000003e0| 29 0a 32 37 20 50 52 49 | 4e 54 22 93 22 3a 50 52 |).27 PRI|NT".":PR|
|000003f0| 49 4e 54 54 41 42 28 31 | 33 29 22 11 11 9e c1 56 |INTTAB(1|3)"....V|
|00000400| 41 49 4c 41 42 4c 45 20 | c6 4f 4e 54 53 22 3a 50 |AILABLE |.ONTS":P|
|00000410| 52 49 4e 54 22 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |RINT"...|........|
|00000420| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |........|........|
|00000430| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 22 3b 0a |........|.....";.|
|00000440| 32 38 20 50 52 49 4e 54 | 22 1c 3c 31 3e 9a 20 ce |28 PRINT|".<1>. .|
|00000450| 4f 52 4d 41 4c 20 20 20 | 20 20 20 20 1c 3c 35 3e |ORMAL | .<5>|
|00000460| 9a 20 c9 54 41 4c 49 43 | 53 22 0a 32 39 20 50 52 |. .TALIC|S".29 PR|
|00000470| 49 4e 54 22 1c 3c 32 3e | 9a 20 c5 58 50 41 4e 44 |INT".<2>|. .XPAND|
|00000480| 45 44 20 20 20 20 20 1c | 3c 36 3e 9a 20 c5 58 50 |ED .|<6>. .XP|
|00000490| 41 4e 44 45 44 20 c9 54 | 41 4c 49 43 53 22 0a 33 |ANDED .T|ALICS".3|
|000004a0| 30 20 50 52 49 4e 54 22 | 1c 3c 33 3e 9a 20 c3 4f |0 PRINT"|.<3>. .O|
|000004b0| 4e 44 45 4e 53 45 44 20 | 20 20 20 1c 3c 37 3e 9a |NDENSED | .<7>.|
|000004c0| 20 c3 4f 4e 44 45 4e 53 | 45 44 20 c9 54 41 4c 49 | .ONDENS|ED .TALI|
|000004d0| 43 53 22 0a 33 31 20 50 | 52 49 4e 54 22 1c 3c 34 |CS".31 P|RINT".<4|
|000004e0| 3e 9a 20 c5 4d 50 48 41 | 53 49 5a 45 44 20 20 20 |>. .MPHA|SIZED |
|000004f0| 1c 3c 38 3e 9a 20 c5 4d | 50 48 41 53 49 09 00 44 |.<8>. .M|PHASI..D|
|00000500| 20 c9 54 41 4c 49 43 53 | 22 0a 33 32 20 50 52 49 | .TALICS|".32 PRI|
|00000510| 4e 54 22 11 9e a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |NT".....|........|
|00000520| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |........|........|
|00000530| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 22 0a 33 |........|.....".3|
|00000540| 33 20 50 52 49 4e 54 4c | 46 24 22 9a b0 c0 c0 c0 |3 PRINTL|F$".....|
|00000550| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 b2 |........|........|
|00000560| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000570| c0 c0 ae 22 0a 33 34 20 | 50 52 49 4e 54 22 dd 20 |...".34 |PRINT". |
|00000580| 9e d0 52 49 4e 54 20 d3 | 48 4f 50 20 c6 49 4c 45 |..RINT .|HOP .ILE|
|00000590| 9a 20 20 dd 20 20 20 20 | 20 20 20 20 20 20 20 20 |. . | |
|000005a0| 20 20 20 20 20 20 dd 22 | 0a 33 35 20 50 52 49 4e | ."|.35 PRIN|
|000005b0| 54 22 ad c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |T"......|........|
|000005c0| c0 c0 c0 c0 c0 b1 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|000005d0| c0 c0 c0 c0 c0 c0 c0 c0 | bd 22 0a 33 36 20 50 52 |........|.".36 PR|
|000005e0| 49 4e 54 22 b0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 b2 c0 |INT"....|........|
|000005f0| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000600| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 ae 22 0a 33 37 20 |........|...".37 |
|00000610| 50 52 49 4e 54 22 dd 20 | 9e cc 49 4e 45 20 20 9a |PRINT". |..INE .|
|00000620| 20 20 dd 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 dd 22 | | ."|
|00000640| 0a 33 38 20 50 52 49 4e | 54 22 ad c0 c0 c0 c0 c0 |.38 PRIN|T"......|
|00000650| c0 c0 c0 c0 b1 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000660| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000670| bd 22 0a 33 39 20 50 52 | 49 4e 54 22 b0 c0 c0 c0 |.".39 PR|INT"....|
|00000680| c0 c0 c0 c0 b2 c0 c0 ae | 20 20 20 20 20 20 20 20 |........| |
|00000690| 20 20 20 b0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 b2 c0 | .....|........|
|000006a0| c0 c0 ae 22 0a 34 30 20 | 50 52 49 4e 54 22 dd 20 |...".40 |PRINT". |
|000006b0| 9e c6 4f 4e 54 9a 20 20 | dd 20 20 dd 20 20 20 20 |..ONT. |. . |
|000006c0| 20 20 20 20 20 20 20 dd | 20 9e d1 55 41 4e 54 49 | .| ..UANTI|
|000006d0| 54 59 9a 20 dd 20 20 20 | dd 22 0a 34 31 20 50 52 |TY. . |.".41 PR|
|000006e0| 49 4e 54 22 ad c0 c0 c0 | c0 c0 c0 c0 b1 c0 c0 bd |INT"....|........|
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 ad c0 c0 c0 c0 | | .....|
|00000700| c0 c0 c0 c0 c0 c0 b1 c0 | c0 c0 bd 22 0a 34 32 20 |........|...".42 |
|00000710| 50 52 49 4e 54 4c 46 24 | 22 11 22 3b 53 50 09 0a |PRINTLF$|".";SP..|
|00000720| 34 33 20 46 4f 52 41 3d | 30 54 4f 36 0a 34 34 20 |43 FORA=|0TO6.44 |
|00000730| 50 52 49 4e 54 4c 46 24 | 22 11 11 11 11 1d 1d 1d |PRINTLF$|".......|
|00000740| 1d 1d 1d 9e 22 41 22 1d | 05 1d 1d 20 20 20 20 20 |...."A".|... |
|00000750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000760| 20 20 20 20 9d 9d 9d 9d | 9d 9d 9d 9d 9d 9d 9d 9d | ....|........|
|00000770| 9d 9d 9d 9d 9d 9d 9d 9d | 9d 9d 9d 9d 9d 22 3b 0a |........|.....";.|
|00000780| 34 35 20 4c 4e 3d 32 35 | 3a 47 4f 53 55 42 36 37 |45 LN=25|:GOSUB67|
|00000790| 3a 4c 24 28 41 29 3d 49 | 24 3a 49 46 49 24 3d 22 |:L$(A)=I|$:IFI$="|
|000007a0| 22 54 48 45 4e 50 52 49 | 4e 54 4c 46 24 22 11 11 |"THENPRI|NTLF$"..|
|000007b0| 11 11 11 11 11 1d 1d 1d | 1d 1d 1d 1d 1d 1d 20 22 |........|...... "|
|000007c0| 3a 47 4f 54 4f 34 39 0a | 34 36 20 50 52 49 4e 54 |:GOTO49.|46 PRINT|
|000007d0| 4c 46 24 22 11 11 11 11 | 11 11 11 1d 1d 1d 1d 1d |LF$"....|........|
|000007e0| 1d 1d 1d 1d 05 22 3b 3a | 4c 4e 3d 31 0a 34 37 20 |.....";:|LN=1.47 |
|000007f0| 47 4f 53 55 42 36 37 3a | 46 24 28 41 29 3d 49 24 |GOSUB67:|F$(A)=I$|
|00000800| 3a 49 46 41 24 3d 43 48 | 52 24 28 31 33 29 54 48 |:IFA$=CH|R$(13)TH|
|00000810| 45 4e 34 39 0a 34 38 20 | 49 46 56 41 4c 28 46 24 |EN49.48 |IFVAL(F$|
|00000820| 28 41 29 29 3c 31 4f 52 | 56 41 4c 28 46 24 28 41 |(A))<1OR|VAL(F$(A|
|00000830| 29 29 3e 38 54 48 45 4e | 34 36 0a 34 39 20 4e 45 |))>8THEN|46.49 NE|
|00000840| 58 54 41 0a 35 30 20 50 | 52 49 4e 54 4c 46 24 22 |XTA.50 P|RINTLF$"|
|00000850| 11 11 11 11 11 11 11 22 | 53 50 31 24 22 1d 1d 1d |......."|SP1$"...|
|00000860| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 20 20 9d 9d |........|.... ..|
|00000870| 22 3b 3a 4c 4e 3d 32 3a | 47 4f 53 55 42 36 37 3a |";:LN=2:|GOSUB67:|
|00000880| 4e 4c 3d 56 41 4c 28 49 | 24 29 0a 35 31 20 49 46 |NL=VAL(I|$).51 IF|
|00000890| 4e 4c 3c 30 4f 52 4e 4c | 3e 39 39 54 48 45 4e 35 |NL<0ORNL|>99THEN5|
|000008a0| 30 0a 35 32 20 49 46 4e | 4c 3d 30 54 48 45 4e 34 |0.52 IFN|L=0THEN4|
|000008b0| 32 0a 35 33 20 4f 50 45 | 4e 38 2c 38 2c 38 2c 47 |2.53 OPE|N8,8,8,G|
|000008c0| 24 2b 22 2c 50 2c 52 22 | 3a 47 45 54 23 38 2c 41 |$+",P,R"|:GET#8,A|
|000008d0| 24 3a 43 4c 4f 53 45 38 | 0a 35 34 20 49 46 53 54 |$:CLOSE8|.54 IFST|
|000008e0| 54 48 45 4e 50 52 49 4e | 54 22 93 11 11 11 1c 20 |THENPRIN|T"..... |
|000008f0| 20 20 20 20 20 20 c1 20 | c4 49 53 4b 20 c5 52 52 | . |.ISK .RR|
|00000900| 4f 52 20 c8 41 53 20 cf | 43 43 55 52 45 44 22 3a |OR .AS .|CCURED":|
|00000910| 46 4f 52 54 3d 31 54 4f | 31 35 30 30 3a 4e 45 58 |FORT=1TO|1500:NEX|
|00000920| 54 3a 47 4f 54 4f 32 37 | 0a 35 35 20 50 52 49 4e |T:GOTO27|.55 PRIN|
|00000930| 54 22 93 22 3a 50 52 49 | 4e 54 54 41 42 28 31 31 |T".":PRI|NTTAB(11|
|00000940| 29 22 11 11 11 9e d7 20 | 4f 20 52 20 4b 20 49 20 |)"..... |O R K I |
|00000950| 4e 20 47 20 2e 20 09 00 | 2e 22 0a 35 36 20 4c 4f |N G . ..|.".56 LO|
|00000960| 41 44 47 24 2c 38 2c 31 | 0a 35 37 20 4f 50 45 4e |ADG$,8,1|.57 OPEN|
|00000970| 35 2c 34 2c 38 0a 35 38 | 20 4f 50 45 4e 34 2c 34 |5,4,8.58| OPEN4,4|
|00000980| 2c 35 3a 50 52 49 4e 54 | 23 34 2c 43 48 52 24 28 |,5:PRINT|#4,CHR$(|
|00000990| 32 37 29 3b 43 48 52 24 | 28 36 35 29 3b 43 48 52 |27);CHR$|(65);CHR|
|000009a0| 24 28 38 29 0a 35 39 20 | 46 4f 52 45 3d 31 54 4f |$(8).59 |FORE=1TO|
|000009b0| 4e 4c 0a 36 30 20 46 4f | 52 41 3d 30 54 4f 36 3a |NL.60 FO|RA=0TO6:|
|000009c0| 50 52 49 4e 54 23 34 2c | 43 48 52 24 28 32 37 29 |PRINT#4,|CHR$(27)|
|000009d0| 3b 43 48 52 24 28 37 36 | 29 3b 43 48 52 24 28 38 |;CHR$(76|);CHR$(8|
|000009e0| 38 29 3b 43 48 52 24 28 | 30 29 3b 3a 43 3d 32 31 |8);CHR$(|0);:C=21|
|000009f0| 37 36 30 2b 28 41 2a 38 | 38 29 3a 44 3d 43 2b 38 |760+(A*8|8):D=C+8|
|00000a00| 37 0a 36 31 20 46 4f 52 | 42 3d 43 54 4f 44 3a 50 |7.61 FOR|B=CTOD:P|
|00000a10| 52 49 4e 54 23 34 2c 43 | 48 52 24 28 50 45 45 4b |RINT#4,C|HR$(PEEK|
|00000a20| 28 42 29 29 3b 3a 4e 45 | 58 54 0a 36 32 20 50 52 |(B));:NE|XT.62 PR|
|00000a30| 49 4e 54 23 34 2c 22 20 | 22 46 53 24 28 56 41 4c |INT#4," |"FS$(VAL|
|00000a40| 28 46 24 28 41 29 29 29 | 3b 3a 50 52 49 4e 54 23 |(F$(A)))|;:PRINT#|
|00000a50| 35 2c 4c 24 28 41 29 3a | 50 52 49 4e 54 23 34 2c |5,L$(A):|PRINT#4,|
|00000a60| 45 4c 24 3a 4e 45 58 54 | 0a 36 33 20 50 52 49 4e |EL$:NEXT|.63 PRIN|
|00000a70| 54 23 35 2c 43 48 52 24 | 28 31 30 29 3b 43 48 52 |T#5,CHR$|(10);CHR|
|00000a80| 24 28 31 30 29 0a 36 34 | 20 4e 45 58 54 3a 49 4e |$(10).64| NEXT:IN|
|00000a90| 50 55 54 22 93 13 11 11 | 11 11 11 11 11 11 11 11 |PUT"....|........|
|00000aa0| 9e 20 20 20 20 d0 52 49 | 4e 54 20 54 48 45 20 53 |. .RI|NT THE S|
|00000ab0| 41 4d 45 20 cc 41 42 45 | 4c 20 41 47 41 49 4e 22 |AME .ABE|L AGAIN"|
|00000ac0| 3b 41 24 0a 36 35 20 49 | 46 41 24 3d 22 59 22 54 |;A$.65 I|FA$="Y"T|
|00000ad0| 48 45 4e 4e 4c 3d 31 3a | 47 4f 54 4f 35 39 0a 36 |HENNL=1:|GOTO59.6|
|00000ae0| 36 20 43 4c 4f 53 45 34 | 3a 43 4c 4f 53 45 35 3a |6 CLOSE4|:CLOSE5:|
|00000af0| 47 4f 54 4f 32 37 0a 36 | 37 20 49 24 3d 22 22 0a |GOTO27.6|7 I$="".|
|00000b00| 36 38 20 50 52 49 4e 54 | 3b 3a 50 52 49 4e 54 22 |68 PRINT|;:PRINT"|
|00000b10| a4 9d 22 3b 0a 36 39 20 | 47 45 54 41 24 3a 49 46 |..";.69 |GETA$:IF|
|00000b20| 41 24 3d 22 22 54 48 45 | 4e 36 39 0a 37 30 20 49 |A$=""THE|N69.70 I|
|00000b30| 46 41 24 3d 43 48 52 24 | 28 32 30 29 41 4e 44 4c |FA$=CHR$|(20)ANDL|
|00000b40| 45 4e 28 49 24 29 3e 30 | 54 48 45 4e 50 52 49 4e |EN(I$)>0|THENPRIN|
|00000b50| 54 22 20 9d 9d 22 3b 3a | 49 24 3d 4c 45 46 54 24 |T" ..";:|I$=LEFT$|
|00000b60| 28 49 24 2c 4c 45 4e 28 | 49 24 29 2d 31 29 3a 47 |(I$,LEN(|I$)-1):G|
|00000b70| 4f 54 4f 36 38 0a 37 31 | 20 49 46 41 24 3d 43 48 |OTO68.71| IFA$=CH|
|00000b80| 52 24 28 32 30 29 54 48 | 45 4e 36 39 0a 37 32 20 |R$(20)TH|EN69.72 |
|00000b90| 49 46 41 24 3d 43 48 52 | 24 28 31 33 29 54 48 45 |IFA$=CHR|$(13)THE|
|00000ba0| 4e 50 52 49 4e 54 22 20 | 22 3a 52 45 54 55 52 4e |NPRINT" |":RETURN|
|00000bb0| 0a 37 33 20 49 46 41 24 | 3e 43 48 52 24 28 33 31 |.73 IFA$|>CHR$(31|
|00000bc0| 29 41 4e 44 41 24 3c 43 | 48 52 24 28 39 36 29 54 |)ANDA$<C|HR$(96)T|
|00000bd0| 48 45 4e 37 37 0a 37 34 | 20 49 46 41 24 3e 43 48 |HEN77.74| IFA$>CH|
|00000be0| 52 24 28 31 39 32 29 41 | 4e 44 41 24 3c 43 48 52 |R$(192)A|NDA$<CHR|
|00000bf0| 24 28 32 31 39 29 54 48 | 45 4e 37 37 0a 37 35 20 |$(219)TH|EN77.75 |
|00000c00| 47 4f 54 4f 36 39 0a 37 | 37 20 49 46 4c 45 4e 28 |GOTO69.7|7 IFLEN(|
|00000c10| 49 24 29 09 0a 37 38 20 | 49 46 41 24 3d 43 48 52 |I$)..78 |IFA$=CHR|
|00000c20| 24 28 33 34 29 54 48 45 | 4e 50 52 49 4e 54 22 27 |$(34)THE|NPRINT"'|
|00000c30| 22 3b 3a 49 24 3d 49 24 | 2b 41 24 3a 47 4f 54 4f |";:I$=I$|+A$:GOTO|
|00000c40| 36 39 0a 37 39 20 49 24 | 3d 49 24 2b 41 24 3a 50 |69.79 I$|=I$+A$:P|
|00000c50| 52 49 4e 54 41 24 3b 3a | 47 4f 54 4f 36 38 0a 38 |RINTA$;:|GOTO68.8|
|00000c60| 30 20 50 52 49 4e 54 22 | 93 22 0a 38 31 20 4f 50 |0 PRINT"|.".81 OP|
|00000c70| 45 4e 31 2c 38 2c 30 2c | 22 24 30 22 3a 4e 24 3d |EN1,8,0,|"$0":N$=|
|00000c80| 43 48 52 24 28 30 29 3a | 47 45 54 23 31 2c 41 24 |CHR$(0):|GET#1,A$|
|00000c90| 3a 47 45 54 23 31 2c 41 | 24 0a 38 32 20 47 45 54 |:GET#1,A|$.82 GET|
|00000ca0| 23 31 2c 41 24 3a 47 45 | 54 23 31 2c 41 24 3a 49 |#1,A$:GE|T#1,A$:I|
|00000cb0| 46 41 24 3d 22 22 54 48 | 45 4e 38 37 0a 38 33 20 |FA$=""TH|EN87.83 |
|00000cc0| 47 45 54 23 31 2c 41 24 | 3a 47 45 54 23 31 2c 42 |GET#1,A$|:GET#1,B|
|00000cd0| 24 3a 50 52 49 4e 54 54 | 41 42 28 35 29 41 53 43 |$:PRINTT|AB(5)ASC|
|00000ce0| 28 41 24 2b 4e 24 29 2b | 41 53 43 28 42 24 2b 4e |(A$+N$)+|ASC(B$+N|
|00000cf0| 24 29 2a 32 35 36 3b 0a | 38 34 20 47 45 54 23 31 |$)*256;.|84 GET#1|
|00000d00| 2c 41 24 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 50 |,A$:IFA$|=""THENP|
|00000d10| 52 49 4e 54 3a 47 4f 54 | 4f 38 32 0a 38 35 20 50 |RINT:GOT|O82.85 P|
|00000d20| 52 49 4e 54 41 24 3b 3a | 47 45 54 49 24 3a 49 46 |RINTA$;:|GETI$:IF|
|00000d30| 49 24 3d 22 58 22 54 48 | 45 4e 43 4c 4f 53 45 31 |I$="X"TH|ENCLOSE1|
|00000d40| 3a 50 52 49 4e 54 22 93 | 22 3a 47 4f 54 4f 32 37 |:PRINT".|":GOTO27|
|00000d50| 0a 38 36 20 47 4f 54 4f | 38 34 0a 38 37 20 50 52 |.86 GOTO|84.87 PR|
|00000d60| 49 4e 54 54 41 42 28 38 | 29 22 11 11 1c c8 49 54 |INTTAB(8|)"....IT|
|00000d70| 20 41 4e 59 20 cb 45 59 | 20 54 4f 20 43 4f 4e 54 | ANY .EY| TO CONT|
|00000d80| 49 4e 55 45 22 0a 38 38 | 20 47 45 54 41 24 3a 49 |INUE".88| GETA$:I|
|00000d90| 46 41 24 3d 22 22 54 48 | 45 4e 38 38 0a 38 39 20 |FA$=""TH|EN88.89 |
|00000da0| 43 4c 4f 53 45 31 3a 47 | 4f 54 4f 32 37 0a |CLOSE1:G|OTO27. |
+--------+-------------------------+-------------------------+--------+--------+
