home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / ADDRESS.BOOK / c64.bas
Unknown  |  2019-04-13  |  7.6 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.

ConfidenceProgramDetectionMatch TypeSupport
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: '1 REM' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 22 8d 1e | 91 20 20 20 41 44 44 52 |1 REM"..|. ADDR|
|00000010| 45 53 53 20 42 4f 4f 4b | 00 0a 32 20 52 45 4d 22 |ESS BOOK|..2 REM"|
|00000020| 8d 91 9e 42 59 20 44 45 | 4e 4e 49 53 20 54 48 4f |...BY DE|NNIS THO|
|00000030| 52 4e 4c 45 59 00 0a 33 | 20 52 45 4d 22 8d 9a 91 |RNLEY..3| REM"...|
|00000040| 20 20 20 20 20 20 31 39 | 38 39 00 0a 34 20 52 45 | 19|89..4 RE|
|00000050| 4d 22 8d 1c 91 a4 a4 a4 | a4 a4 a4 a4 a4 a4 a4 a4 |M"......|........|
|00000060| a4 a4 a4 a4 a4 a4 a4 00 | 0a 35 20 52 45 4d 22 8d |........|.5 REM".|
|00000070| 1e 91 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |........|........|
|00000080| a3 a3 a3 a3 00 0a 36 20 | 50 4f 4b 45 35 33 32 38 |......6 |POKE5328|
|00000090| 31 2c 30 3a 50 4f 4b 45 | 35 33 32 38 30 2c 30 3a |1,0:POKE|53280,0:|
|000000a0| 50 52 49 4e 54 22 93 22 | 0a 37 20 43 4c 52 3a 52 |PRINT"."|.7 CLR:R|
|000000b0| 45 53 54 4f 52 45 3a 43 | 52 24 3d 43 48 52 24 28 |ESTORE:C|R$=CHR$(|
|000000c0| 31 33 29 3a 53 50 24 3d | 43 48 52 24 28 33 32 29 |13):SP$=|CHR$(32)|
|000000d0| 3a 43 4f 24 3d 43 48 52 | 24 28 34 34 29 3a 55 24 |:CO$=CHR|$(44):U$|
|000000e0| 3d 43 48 52 24 28 31 34 | 29 3a 4f 50 45 4e 20 31 |=CHR$(14|):OPEN 1|
|000000f0| 35 2c 38 2c 31 35 0a 38 | 20 54 3d 30 39 3a 41 3d |5,8,15.8| T=09:A=|
|00000100| 31 3a 42 3d 32 3a 43 3d | 33 3a 44 3d 34 3a 45 3d |1:B=2:C=|3:D=4:E=|
|00000110| 35 0a 39 20 50 52 49 4e | 54 22 93 22 3a 50 52 49 |5.9 PRIN|T".":PRI|
|00000120| 4e 54 43 48 52 24 28 31 | 34 32 29 0a 31 30 20 50 |NTCHR$(1|42).10 P|
|00000130| 52 49 4e 54 22 13 11 11 | 1c 20 20 20 20 12 a9 20 |RINT"...|. .. |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 df 22 0a | | .".|
|00000160| 31 31 20 50 52 49 4e 54 | 22 9a 20 20 20 12 a9 20 |11 PRINT|". .. |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 df | | .|
|00000190| 22 0a 31 32 20 50 52 49 | 4e 54 22 1e 20 20 20 12 |".12 PRI|NT". .|
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 41 44 44 52 45 53 | | ADDRES|
|000001b0| 53 20 42 4f 4f 4b 20 20 | 20 20 20 20 20 20 20 20 |S BOOK | |
|000001c0| 20 20 22 0a 31 33 20 50 | 52 49 4e 54 22 9e 20 20 | ".13 P|RINT". |
|000001d0| 20 df 12 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | .. | |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001f0| 20 20 20 92 a9 22 0a 31 | 34 20 50 52 49 4e 54 22 | ..".1|4 PRINT"|
|00000200| 1f 20 20 20 20 df 12 20 | 20 20 20 20 20 20 20 20 |. .. | |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000220| 20 20 20 20 20 92 a9 22 | 0a 31 35 20 50 52 49 4e | .."|.15 PRIN|
|00000230| 54 3a 50 52 49 4e 54 3a | 50 52 49 4e 54 0a 31 36 |T:PRINT:|PRINT.16|
|00000240| 20 41 3d 41 2b 31 3a 42 | 3d 42 2b 31 3a 43 3d 43 | A=A+1:B|=B+1:C=C|
|00000250| 2b 31 3a 44 3d 44 2b 31 | 3a 45 3d 45 2b 31 3a 46 |+1:D=D+1|:E=E+1:F|
|00000260| 4f 52 58 3d 31 54 4f 30 | 3a 4e 45 58 54 0a 31 37 |ORX=1TO0|:NEXT.17|
|00000270| 20 49 46 20 41 3d 31 35 | 54 48 45 4e 20 41 3d 31 | IF A=15|THEN A=1|
|00000280| 0a 31 38 20 49 46 20 42 | 3d 31 35 20 54 48 45 4e |.18 IF B|=15 THEN|
|00000290| 20 42 3d 31 0a 31 39 20 | 49 46 20 43 3d 31 35 20 | B=1.19 |IF C=15 |
|000002a0| 54 48 45 4e 20 43 3d 31 | 0a 32 30 20 49 46 20 44 |THEN C=1|.20 IF D|
|000002b0| 3d 31 35 20 54 48 45 4e | 20 44 3d 31 0a 32 31 20 |=15 THEN| D=1.21 |
|000002c0| 49 46 20 45 3d 31 35 20 | 54 48 45 4e 20 45 3d 31 |IF E=15 |THEN E=1|
|000002d0| 0a 32 32 20 50 52 49 4e | 54 22 13 11 11 11 11 11 |.22 PRIN|T"......|
|000002e0| 11 11 11 22 0a 32 33 20 | 50 4f 4b 45 36 34 36 2c |...".23 |POKE646,|
|000002f0| 41 3a 50 52 49 4e 54 54 | 41 42 28 31 31 29 22 12 |A:PRINTT|AB(11)".|
|00000300| 31 2e 92 20 9a 57 52 49 | 54 45 20 41 20 46 49 4c |1.. .WRI|TE A FIL|
|00000310| 45 00 0a 32 34 20 50 4f | 4b 45 36 34 36 2c 42 3a |E..24 PO|KE646,B:|
|00000320| 50 52 49 4e 54 54 41 42 | 28 31 31 29 22 12 32 2e |PRINTTAB|(11)".2.|
|00000330| 92 20 9a 52 45 41 44 20 | 41 20 46 49 4c 45 00 0a |. .READ |A FILE..|
|00000340| 32 35 20 50 4f 4b 45 36 | 34 36 2c 43 3a 50 52 49 |25 POKE6|46,C:PRI|
|00000350| 4e 54 54 41 42 28 31 31 | 29 22 12 33 2e 92 20 9a |NTTAB(11|)".3.. .|
|00000360| 53 43 41 4e 20 46 49 4c | 45 53 00 0a 32 36 20 50 |SCAN FIL|ES..26 P|
|00000370| 4f 4b 45 36 34 36 2c 44 | 3a 50 52 49 4e 54 54 41 |OKE646,D|:PRINTTA|
|00000380| 42 28 31 31 29 22 12 34 | 2e 92 20 9a 45 44 49 54 |B(11)".4|.. .EDIT|
|00000390| 20 41 20 46 49 4c 45 00 | 0a 32 37 20 50 4f 4b 45 | A FILE.|.27 POKE|
|000003a0| 36 34 36 2c 45 3a 50 52 | 49 4e 54 54 41 42 28 31 |646,E:PR|INTTAB(1|
|000003b0| 31 29 22 12 35 2e 92 20 | 9a 44 49 53 4b 20 53 45 |1)".5.. |.DISK SE|
|000003c0| 54 2d 55 50 00 0a 32 38 | 20 50 52 49 4e 54 22 13 |T-UP..28| PRINT".|
|000003d0| 9a 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|000003e0| 20 20 20 20 50 4c 45 41 | 53 45 20 45 4e 54 45 52 | PLEA|SE ENTER|
|000003f0| 20 59 4f 55 52 20 53 45 | 4c 45 43 54 49 4f 4e 22 | YOUR SE|LECTION"|
|00000400| 3b 0a 32 39 20 50 4f 4b | 45 36 34 36 2c 41 3a 50 |;.29 POK|E646,A:P|
|00000410| 52 49 4e 54 22 20 28 31 | 2d 35 29 22 0a 33 30 20 |RINT" (1|-5)".30 |
|00000420| 50 52 49 4e 54 22 1e 20 | 20 20 20 a4 a4 a4 a4 a4 |PRINT". | .....|
|00000430| a4 a4 a4 a4 a4 a4 a4 a4 | a4 a4 a4 a4 a4 a4 a4 a4 |........|........|
|00000440| a4 a4 a4 a4 a4 a4 a4 a4 | a4 a4 a4 00 0a 33 31 20 |........|.....31 |
|00000450| 50 52 49 4e 54 22 1c 20 | 20 20 20 a3 a3 a3 a3 a3 |PRINT". | .....|
|00000460| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |........|........|
|00000470| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 00 0a 33 32 20 |........|.....32 |
|00000480| 47 45 54 20 41 24 3a 49 | 46 20 41 24 3d 22 22 20 |GET A$:I|F A$="" |
|00000490| 54 48 45 4e 31 36 20 0a | 33 33 20 49 46 20 41 24 |THEN16 .|33 IF A$|
|000004a0| 3d 22 31 22 20 54 48 45 | 4e 20 50 52 49 4e 54 22 |="1" THE|N PRINT"|
|000004b0| 13 11 11 11 11 11 11 11 | 11 11 22 54 41 42 28 31 |........|.."TAB(1|
|000004c0| 31 29 22 12 9e 31 2e 20 | 57 52 49 54 45 20 41 20 |1)"..1. |WRITE A |
|000004d0| 46 49 4c 45 22 3a 47 4f | 54 4f 33 39 20 20 0a 33 |FILE":GO|TO39 .3|
|000004e0| 34 20 49 46 20 41 24 3d | 22 32 22 20 54 48 45 4e |4 IF A$=|"2" THEN|
|000004f0| 20 50 52 49 4e 54 22 13 | 11 11 11 11 11 11 11 11 | PRINT".|........|
|00000500| 11 11 22 54 41 42 28 31 | 31 29 22 12 9e 32 2e 20 |.."TAB(1|1)"..2. |
|00000510| 52 45 41 44 20 41 20 46 | 49 4c 45 22 3a 47 4f 54 |READ A F|ILE":GOT|
|00000520| 4f 37 30 20 20 20 0a 33 | 35 20 49 46 20 41 24 3d |O70 .3|5 IF A$=|
|00000530| 22 33 22 20 54 48 45 4e | 20 50 52 49 4e 54 22 13 |"3" THEN| PRINT".|
|00000540| 11 11 11 11 11 11 11 11 | 11 11 11 22 54 41 42 28 |........|..."TAB(|
|00000550| 31 31 29 22 9e 12 33 2e | 20 53 43 41 4e 20 46 49 |11)"..3.| SCAN FI|
|00000560| 4c 45 53 22 3a 47 4f 54 | 4f 32 30 35 20 20 20 0a |LES":GOT|O205 .|
|00000570| 33 36 20 49 46 20 41 24 | 3d 22 34 22 20 54 48 45 |36 IF A$|="4" THE|
|00000580| 4e 20 50 52 49 4e 54 22 | 13 11 11 11 11 11 11 11 |N PRINT"|........|
|00000590| 11 11 11 11 11 22 54 41 | 42 28 31 31 29 22 9e 12 |....."TA|B(11)"..|
|000005a0| 34 2e 20 45 44 49 54 20 | 41 20 46 49 4c 45 22 3a |4. EDIT |A FILE":|
|000005b0| 47 4f 54 4f 31 34 31 20 | 0a 33 37 20 49 46 20 41 |GOTO141 |.37 IF A|
|000005c0| 24 3d 22 35 22 20 54 48 | 45 4e 20 50 52 49 4e 54 |$="5" TH|EN PRINT|
|000005d0| 22 13 11 11 11 11 11 11 | 11 11 11 11 11 11 11 22 |".......|......."|
|000005e0| 54 41 42 28 31 31 29 22 | 9e 12 35 2e 20 44 49 53 |TAB(11)"|..5. DIS|
|000005f0| 4b 20 53 45 54 2d 55 50 | 22 3a 47 4f 54 4f 31 31 |K SET-UP|":GOTO11|
|00000600| 38 20 0a 33 38 20 47 4f | 54 4f 33 32 20 0a 33 39 |8 .38 GO|TO32 .39|
|00000610| 20 52 45 4d 22 8d 91 12 | 9e 2a 2a 2a 2a 2a 2a 20 | REM"...|.****** |
|00000620| 57 52 49 54 45 20 41 20 | 46 49 4c 45 20 2a 2a 2a |WRITE A |FILE ***|
|00000630| 2a 2a 2a 00 0a 34 30 20 | 46 4f 52 58 3d 31 54 4f |***..40 |FORX=1TO|
|00000640| 32 30 30 30 3a 4e 45 58 | 54 0a 34 31 20 50 52 49 |2000:NEX|T.41 PRI|
|00000650| 4e 54 22 93 9a 22 3a 50 | 52 49 4e 54 43 48 52 24 |NT"..":P|RINTCHR$|
|00000660| 28 31 34 29 0a 34 32 20 | 50 4f 4b 45 20 31 39 2c |(14).42 |POKE 19,|
|00000670| 36 35 0a 34 33 20 49 4e | 50 55 54 22 9a cc 41 53 |65.43 IN|PUT"..AS|
|00000680| 54 20 4e 41 4d 45 3a 20 | 9e 22 3b 4c 24 3a 50 52 |T NAME: |.";L$:PR|
|00000690| 49 4e 54 43 52 24 0a 34 | 34 20 49 4e 50 55 54 22 |INTCR$.4|4 INPUT"|
|000006a0| 9a c6 49 52 53 54 20 ce | 41 4d 45 3a 20 9e 22 3b |..IRST .|AME: .";|
|000006b0| 46 24 3a 50 52 49 4e 54 | 43 52 24 0a 34 35 20 49 |F$:PRINT|CR$.45 I|
|000006c0| 4e 50 55 54 22 9a d3 54 | 52 45 45 54 3a 20 9e 22 |NPUT"..T|REET: ."|
|000006d0| 3b 53 24 3a 50 52 49 4e | 54 43 52 24 0a 34 36 20 |;S$:PRIN|TCR$.46 |
|000006e0| 49 4e 50 55 54 22 9a c3 | 49 54 59 3a 20 9e 22 3b |INPUT"..|ITY: .";|
|000006f0| 43 24 3a 50 52 49 4e 54 | 43 52 24 0a 34 37 20 49 |C$:PRINT|CR$.47 I|
|00000700| 4e 50 55 54 22 9a d3 54 | 41 54 45 3a 20 9e 22 3b |NPUT"..T|ATE: .";|
|00000710| 53 53 24 3a 50 52 49 4e | 54 43 52 24 0a 34 38 20 |SS$:PRIN|TCR$.48 |
|00000720| 49 4e 50 55 54 22 9a da | 49 50 20 c3 4f 44 45 3a |INPUT"..|IP .ODE:|
|00000730| 20 9e 22 3b 5a 24 3a 50 | 52 49 4e 54 43 52 24 0a | .";Z$:P|RINTCR$.|
|00000740| 34 39 20 49 4e 50 55 54 | 22 9a d4 45 4c 45 50 48 |49 INPUT|"..ELEPH|
|00000750| 4f 4e 45 3a 20 9e 22 3b | 54 24 3a 50 52 49 4e 54 |ONE: .";|T$:PRINT|
|00000760| 43 52 24 0a 35 30 20 48 | 24 3d 4c 24 2b 53 50 24 |CR$.50 H|$=L$+SP$|
|00000770| 2b 4c 45 46 54 24 28 46 | 24 2c 33 29 0a 35 31 20 |+LEFT$(F|$,3).51 |
|00000780| 50 52 49 4e 54 22 93 22 | 3a 50 4f 4b 45 31 39 2c |PRINT"."|:POKE19,|
|00000790| 30 0a 35 32 20 50 52 49 | 4e 54 3a 50 52 49 4e 54 |0.52 PRI|NT:PRINT|
|000007a0| 0a 35 33 20 50 52 49 4e | 54 46 24 53 50 24 4c 24 |.53 PRIN|TF$SP$L$|
|000007b0| 0a 35 34 20 50 52 49 4e | 54 53 24 0a 35 35 20 50 |.54 PRIN|TS$.55 P|
|000007c0| 52 49 4e 54 43 24 22 2c | 22 53 53 24 53 50 24 5a |RINTC$",|"SS$SP$Z|
|000007d0| 24 0a 35 36 20 50 52 49 | 4e 54 42 24 0a 35 37 20 |$.56 PRI|NTB$.57 |
|000007e0| 50 52 49 4e 54 46 43 24 | 0a 35 38 20 50 52 49 4e |PRINTFC$|.58 PRIN|
|000007f0| 54 3a 50 52 49 4e 54 3a | 50 52 49 4e 54 0a 35 39 |T:PRINT:|PRINT.59|
|00000800| 20 50 52 49 4e 54 22 13 | 11 11 11 11 11 11 11 11 | PRINT".|........|
|00000810| 11 11 20 20 20 20 20 20 | 20 20 20 20 20 20 9e 12 |.. | ..|
|00000820| 49 53 20 54 48 49 53 20 | c3 cf d2 d2 c5 c3 d4 92 |IS THIS |........|
|00000830| 20 59 9d 22 3b 0a 36 30 | 20 50 4f 4b 45 20 31 39 | Y.";.60| POKE 19|
|00000840| 2c 36 35 0a 36 31 20 49 | 4e 50 55 54 22 9a 22 3b |,65.61 I|NPUT".";|
|00000850| 56 24 0a 36 32 20 50 4f | 4b 45 20 31 39 2c 30 0a |V$.62 PO|KE 19,0.|
|00000860| 36 33 20 49 46 20 56 24 | 3d 22 59 22 20 54 48 45 |63 IF V$|="Y" THE|
|00000870| 4e 36 35 20 20 20 0a 36 | 34 20 49 46 20 56 24 3d |N65 .6|4 IF V$=|
|00000880| 22 4e 22 20 54 48 45 4e | 50 52 49 4e 54 22 93 22 |"N" THEN|PRINT"."|
|00000890| 3a 47 4f 54 4f 34 31 20 | 20 20 0a 36 35 20 50 52 |:GOTO41 | .65 PR|
|000008a0| 49 4e 54 22 93 11 11 11 | 11 1d 1d 1d 1d 1d d3 41 |INT"....|.......A|
|000008b0| 56 49 4e 47 20 46 49 4c | 45 2e 2e 2e 2e 2e 22 3a |VING FIL|E.....":|
|000008c0| 43 4c 4f 53 45 38 3a 4f | 50 45 4e 38 2c 38 2c 38 |CLOSE8:O|PEN8,8,8|
|000008d0| 2c 22 30 3a 22 2b 48 24 | 2b 22 2c 53 2c 57 22 0a |,"0:"+H$|+",S,W".|
|000008e0| 36 36 20 50 52 49 4e 54 | 23 38 2c 4c 24 3b 43 52 |66 PRINT|#8,L$;CR|
|000008f0| 24 3b 46 24 3b 43 52 24 | 3b 53 24 3b 43 52 24 3b |$;F$;CR$|;S$;CR$;|
|00000900| 43 24 3b 43 52 24 3b 53 | 53 24 3b 43 52 24 3b 5a |C$;CR$;S|S$;CR$;Z|
|00000910| 24 3b 43 52 24 3b 54 24 | 3b 43 52 24 3b 42 24 3b |$;CR$;T$|;CR$;B$;|
|00000920| 43 52 24 3b 46 43 24 0a | 36 37 20 43 4c 4f 53 45 |CR$;FC$.|67 CLOSE|
|00000930| 20 38 3a 50 52 49 4e 54 | 22 93 22 3a 49 46 20 56 | 8:PRINT|".":IF V|
|00000940| 3d 32 20 54 48 45 4e 20 | 52 45 54 55 52 4e 0a 36 |=2 THEN |RETURN.6|
|00000950| 38 20 50 52 49 4e 54 22 | 93 22 3a 43 4c 4f 53 45 |8 PRINT"|.":CLOSE|
|00000960| 38 3a 47 4f 54 4f 37 20 | 0a 36 39 20 52 45 4d 22 |8:GOTO7 |.69 REM"|
|00000970| 8d 81 12 91 2a 2a 2a 2a | 2a 2a 20 52 45 41 44 20 |....****|** READ |
|00000980| 41 20 46 49 4c 45 20 2a | 2a 2a 2a 2a 2a 00 0a 37 |A FILE *|*****..7|
|00000990| 30 20 3a 50 52 49 4e 54 | 43 48 52 24 28 31 34 29 |0 :PRINT|CHR$(14)|
|000009a0| 3a 49 46 20 56 3d 31 31 | 54 48 45 4e 37 33 20 20 |:IF V=11|THEN73 |
|000009b0| 20 0a 37 31 20 49 46 20 | 56 3d 31 33 20 54 48 45 | .71 IF |V=13 THE|
|000009c0| 4e 37 34 20 20 3a 46 4f | 52 58 3d 31 54 4f 32 30 |N74 :FO|RX=1TO20|
|000009d0| 30 30 3a 4e 45 58 54 3a | 50 52 49 4e 54 55 24 3a |00:NEXT:|PRINTU$:|
|000009e0| 0a 37 32 20 50 52 49 4e | 54 22 93 1e 12 20 20 20 |.72 PRIN|T"... |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 d2 45 41 44 20 | | .EAD |
|00000a00| 41 20 c6 49 4c 45 20 20 | 20 20 20 20 20 20 20 20 |A .ILE | |
|00000a10| 20 20 20 20 20 22 0a 37 | 33 20 49 46 20 56 3d 31 | ".7|3 IF V=1|
|00000a20| 31 20 54 48 45 4e 20 50 | 52 49 4e 54 22 13 1c 12 |1 THEN P|RINT"...|
|00000a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 d3 43 | | .C|
|00000a40| 52 41 54 43 48 20 41 20 | 46 49 4c 45 20 20 20 20 |RATCH A |FILE |
|00000a50| 20 20 20 20 20 20 20 20 | 22 0a 37 34 20 49 46 20 | |".74 IF |
|00000a60| 56 3d 31 33 20 54 48 45 | 4e 20 50 52 49 4e 54 22 |V=13 THE|N PRINT"|
|00000a70| 93 1c 12 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00000a80| 20 20 20 20 c5 44 49 54 | 20 41 20 46 49 4c 45 20 | .DIT| A FILE |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 22 0a 37 35 20 | | ".75 |
|00000aa0| 50 52 49 4e 54 22 9a 11 | 11 11 11 11 22 3a 50 4f |PRINT"..|....":PO|
|00000ab0| 4b 45 31 39 2c 36 35 0a | 37 36 20 49 4e 50 55 54 |KE19,65.|76 INPUT|
|00000ac0| 22 9a cc 41 53 54 20 ce | 41 4d 45 3a 9e 22 3b 4c |"..AST .|AME:.";L|
|00000ad0| 24 3a 50 52 49 4e 54 43 | 52 24 0a 37 37 20 49 4e |$:PRINTC|R$.77 IN|
|00000ae0| 50 55 54 22 9a c6 49 52 | 53 54 20 ce 41 4d 45 3a |PUT"..IR|ST .AME:|
|00000af0| 9e 22 3b 53 43 24 3a 50 | 52 49 4e 54 43 52 24 0a |.";SC$:P|RINTCR$.|
|00000b00| 37 38 20 50 4f 4b 45 31 | 39 2c 30 0a 37 39 20 48 |78 POKE1|9,0.79 H|
|00000b10| 24 3d 4c 24 2b 53 50 24 | 2b 4c 45 46 54 24 28 53 |$=L$+SP$|+LEFT$(S|
|00000b20| 43 24 2c 33 29 0a 38 30 | 20 43 4c 4f 53 45 38 3a |C$,3).80| CLOSE8:|
|00000b30| 4f 50 45 4e 20 38 2c 38 | 2c 38 2c 22 30 3a 22 2b |OPEN 8,8|,8,"0:"+|
|00000b40| 48 24 2b 22 2c 53 2c 52 | 22 3a 47 4f 53 55 42 31 |H$+",S,R|":GOSUB1|
|00000b50| 39 39 20 20 0a 38 31 20 | 49 4e 50 55 54 23 38 2c |99 .81 |INPUT#8,|
|00000b60| 4c 24 2c 46 24 2c 53 24 | 2c 43 24 2c 53 53 24 2c |L$,F$,S$|,C$,SS$,|
|00000b70| 5a 24 2c 54 24 2c 42 24 | 2c 46 43 24 0a 38 32 20 |Z$,T$,B$|,FC$.82 |
|00000b80| 52 53 3d 53 54 3a 0a 38 | 33 20 49 46 20 53 43 24 |RS=ST:.8|3 IF SC$|
|00000b90| 3c 3e 46 24 20 54 48 45 | 4e 20 49 46 20 52 53 3d |<>F$ THE|N IF RS=|
|00000ba0| 30 20 47 4f 54 4f 38 31 | 20 20 20 0a 38 34 20 3a |0 GOTO81| .84 :|
|00000bb0| 0a 38 35 20 4c 24 28 31 | 29 3d 4c 24 3a 46 24 28 |.85 L$(1|)=L$:F$(|
|00000bc0| 31 29 3d 46 24 3a 53 24 | 28 31 29 3d 53 24 3a 43 |1)=F$:S$|(1)=S$:C|
|00000bd0| 24 28 31 29 3d 43 24 3a | 53 53 24 28 31 29 3d 53 |$(1)=C$:|SS$(1)=S|
|00000be0| 53 24 3a 5a 24 28 31 29 | 3d 5a 24 3a 54 24 28 31 |S$:Z$(1)|=Z$:T$(1|
|00000bf0| 29 3d 54 24 0a 38 36 20 | 50 52 49 4e 54 22 93 11 |)=T$.86 |PRINT"..|
|00000c00| 11 11 11 11 11 22 3a 50 | 52 49 4e 54 54 41 42 28 |.....":P|RINTTAB(|
|00000c10| 54 29 46 24 53 50 24 4c | 24 0a 38 37 20 50 52 49 |T)F$SP$L|$.87 PRI|
|00000c20| 4e 54 54 41 42 28 54 29 | 53 24 0a 38 38 20 50 52 |NTTAB(T)|S$.88 PR|
|00000c30| 49 4e 54 54 41 42 28 54 | 29 43 24 22 2c 22 53 53 |INTTAB(T|)C$","SS|
|00000c40| 24 53 50 24 5a 24 0a 38 | 39 20 50 52 49 4e 54 54 |$SP$Z$.8|9 PRINTT|
|00000c50| 41 42 28 54 29 54 24 3a | 49 46 20 56 3d 3e 31 30 |AB(T)T$:|IF V=>10|
|00000c60| 20 54 48 45 4e 20 52 45 | 54 55 52 4e 0a 39 30 20 | THEN RE|TURN.90 |
|00000c70| 50 52 49 4e 54 22 11 11 | 22 54 41 42 28 30 37 29 |PRINT"..|"TAB(07)|
|00000c80| 22 1e a4 a4 a4 a4 a4 a4 | a4 a4 a4 a4 a4 a4 a4 a4 |".......|........|
|00000c90| a4 a4 a4 a4 a4 a4 a4 a4 | a4 a4 a4 a4 a4 22 0a 39 |........|.....".9|
|00000ca0| 31 20 50 52 49 4e 54 54 | 41 42 28 30 37 29 22 9e |1 PRINTT|AB(07)".|
|00000cb0| 12 20 d0 52 45 53 53 20 | 1c c6 31 9e 20 d4 4f 20 |. .RESS |..1. .O |
|00000cc0| 52 45 54 55 52 4e 20 54 | 4f 20 cd 45 4e 55 22 0a |RETURN T|O .ENU".|
|00000cd0| 39 32 20 50 52 49 4e 54 | 54 41 42 28 30 37 29 22 |92 PRINT|TAB(07)"|
|00000ce0| 1c a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |........|........|
|00000cf0| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 22 0a 39 33 |........|....".93|
|00000d00| 20 50 52 49 4e 54 54 41 | 42 28 30 37 29 22 1c a4 | PRINTTA|B(07)"..|
|00000d10| a4 a4 a4 a4 a4 a4 a4 a4 | a4 a4 a4 a4 a4 a4 a4 a4 |........|........|
|00000d20| a4 a4 a4 a4 a4 a4 a4 a4 | a4 a4 22 0a 39 34 20 50 |........|..".94 P|
|00000d30| 52 49 4e 54 54 41 42 28 | 30 37 29 22 9e 12 20 d0 |RINTTAB(|07)".. .|
|00000d40| 52 45 53 53 20 1c c6 33 | 9e 20 d4 4f 20 d0 52 49 |RESS ..3|. .O .RI|
|00000d50| 4e 54 20 c1 44 44 52 45 | 53 53 20 22 0a 39 35 20 |NT .DDRE|SS ".95 |
|00000d60| 50 52 49 4e 54 54 41 42 | 28 30 37 29 22 1e a3 a3 |PRINTTAB|(07)"...|
|00000d70| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |........|........|
|00000d80| a3 a3 a3 a3 a3 a3 a3 a3 | a3 22 0a 39 36 20 47 45 |........|.".96 GE|
|00000d90| 54 20 4d 24 3a 49 46 20 | 4d 24 3d 22 22 20 54 48 |T M$:IF |M$="" TH|
|00000da0| 45 4e 39 36 20 20 20 0a | 39 37 20 49 46 20 4d 24 |EN96 .|97 IF M$|
|00000db0| 3d 22 85 22 20 54 48 45 | 4e 20 47 4f 54 4f 31 30 |="." THE|N GOTO10|
|00000dc0| 30 20 20 0a 39 38 20 49 | 46 20 4d 24 3d 22 86 22 |0 .98 I|F M$="."|
|00000dd0| 20 54 48 45 4e 31 30 34 | 20 20 0a 39 39 20 47 4f | THEN104| .99 GO|
|00000de0| 54 4f 39 36 20 20 20 0a | 31 30 30 20 49 46 20 52 |TO96 .|100 IF R|
|00000df0| 53 3d 30 20 54 48 45 4e | 20 47 4f 54 4f 38 31 20 |S=0 THEN| GOTO81 |
|00000e00| 20 20 0a 31 30 31 20 47 | 4f 54 4f 37 20 20 0a 31 | .101 G|OTO7 .1|
|00000e10| 30 32 20 50 52 49 4e 54 | 22 20 20 20 20 20 20 20 |02 PRINT|" |
|00000e20| 20 20 20 20 20 20 1e a3 | a3 a3 a3 a3 a3 a3 a3 a3 | ..|........|
|00000e30| a3 a3 a3 a3 22 0a 31 30 | 33 20 46 4f 52 58 3d 31 |....".10|3 FORX=1|
|00000e40| 54 4f 32 30 30 30 3a 4e | 45 58 54 3a 50 52 49 4e |TO2000:N|EXT:PRIN|
|00000e50| 54 43 48 52 24 28 31 34 | 32 29 3a 43 4c 4f 53 45 |TCHR$(14|2):CLOSE|
|00000e60| 38 3a 43 4c 4f 53 45 31 | 35 3a 47 4f 54 4f 37 20 |8:CLOSE1|5:GOTO7 |
|00000e70| 0a 31 30 34 20 52 45 4d | 22 8d 9b 91 12 2a 2a 2a |.104 REM|"....***|
|00000e80| 2a 2a 2a 20 50 52 49 4e | 54 20 46 55 4e 43 54 49 |*** PRIN|T FUNCTI|
|00000e90| 4f 4e 20 2a 2a 2a 2a 2a | 2a 00 0a 31 30 35 20 50 |ON *****|*..105 P|
|00000ea0| 52 49 4e 54 54 41 42 28 | 30 37 29 22 c9 4e 43 4c |RINTTAB(|07)".NCL|
|00000eb0| 55 44 45 20 d4 45 4c 45 | 50 48 4f 4e 45 20 23 20 |UDE .ELE|PHONE # |
|00000ec0| 28 1e d9 9a 2f 1c ce 9a | 29 3f 22 0a 31 30 36 20 |(.../...|)?".106 |
|00000ed0| 47 45 54 41 24 3a 49 46 | 20 41 24 3d 22 22 20 54 |GETA$:IF| A$="" T|
|00000ee0| 48 45 4e 31 30 36 20 20 | 0a 31 30 37 20 49 46 20 |HEN106 |.107 IF |
|00000ef0| 41 24 3d 22 59 22 20 54 | 48 45 4e 20 56 3d 37 3a |A$="Y" T|HEN V=7:|
|00000f00| 47 4f 54 4f 31 31 30 20 | 20 0a 31 30 38 20 49 46 |GOTO110 | .108 IF|
|00000f10| 20 41 24 3d 22 4e 22 20 | 54 48 45 4e 20 56 3d 30 | A$="N" |THEN V=0|
|00000f20| 3a 47 4f 54 4f 31 31 30 | 20 0a 31 30 39 20 47 4f |:GOTO110| .109 GO|
|00000f30| 54 4f 31 30 36 20 20 0a | 31 31 30 20 50 52 49 4e |TO106 .|110 PRIN|
|00000f40| 54 54 41 42 28 31 33 29 | 22 d0 52 49 4e 54 49 4e |TTAB(13)|".RINTIN|
|00000f50| 47 2e 2e 2e 2e 22 0a 31 | 31 31 20 4f 50 45 4e 20 |G....".1|11 OPEN |
|00000f60| 34 2c 34 2c 34 0a 31 31 | 32 20 50 52 49 4e 54 43 |4,4,4.11|2 PRINTC|
|00000f70| 48 52 24 28 31 37 29 0a | 31 31 33 20 50 52 49 4e |HR$(17).|113 PRIN|
|00000f80| 54 23 34 2c 43 48 52 24 | 28 31 37 29 46 24 53 50 |T#4,CHR$|(17)F$SP|
|00000f90| 24 4c 24 0a 31 31 34 20 | 50 52 49 4e 54 23 34 2c |$L$.114 |PRINT#4,|
|00000fa0| 43 48 52 24 28 31 37 29 | 53 24 0a 31 31 35 20 50 |CHR$(17)|S$.115 P|
|00000fb0| 52 49 4e 54 23 34 2c 43 | 48 52 24 28 31 37 29 43 |RINT#4,C|HR$(17)C|
|00000fc0| 24 43 4f 24 53 53 24 53 | 50 24 5a 24 0a 31 31 36 |$CO$SS$S|P$Z$.116|
|00000fd0| 20 49 46 20 56 3d 37 20 | 54 48 45 4e 20 50 52 49 | IF V=7 |THEN PRI|
|00000fe0| 4e 54 23 34 2c 54 24 0a | 31 31 37 20 50 52 49 4e |NT#4,T$.|117 PRIN|
|00000ff0| 54 23 34 3a 43 4c 4f 53 | 45 34 3a 47 4f 54 4f 37 |T#4:CLOS|E4:GOTO7|
|00001000| 20 0a 31 31 38 20 52 45 | 4d 22 8d 1f 12 91 2a 2a | .118 RE|M"....**|
|00001010| 2a 2a 2a 2a 20 44 49 53 | 4b 20 53 45 54 2d 55 50 |**** DIS|K SET-UP|
|00001020| 20 2a 2a 2a 2a 2a 2a 00 | 0a 31 31 39 20 50 52 49 | ******.|.119 PRI|
|00001030| 4e 54 22 93 22 3a 50 52 | 49 4e 54 20 43 48 52 24 |NT".":PR|INT CHR$|
|00001040| 28 31 34 29 3a 44 3d 30 | 0a 31 32 30 20 44 3d 44 |(14):D=0|.120 D=D|
|00001050| 2b 31 3a 49 46 20 44 3d | 33 20 54 48 45 4e 20 44 |+1:IF D=|3 THEN D|
|00001060| 3d 30 0a 31 32 31 20 49 | 46 20 44 3d 31 20 54 48 |=0.121 I|F D=1 TH|
|00001070| 45 4e 20 43 3d 31 0a 31 | 32 32 20 49 46 20 44 3d |EN C=1.1|22 IF D=|
|00001080| 32 20 54 48 45 4e 20 43 | 3d 32 0a 31 32 33 20 50 |2 THEN C|=2.123 P|
|00001090| 52 49 4e 54 22 1c 12 13 | 20 20 20 20 20 20 20 20 |RINT"...| |
|000010a0| 20 20 20 20 20 20 c4 49 | 53 4b 20 d3 45 54 2d d5 | .I|SK .ET-.|
|000010b0| 50 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |P | |
|000010c0| 22 0a 31 32 34 20 50 52 | 49 4e 54 3a 50 52 49 4e |".124 PR|INT:PRIN|
|000010d0| 54 22 9a d4 48 49 53 20 | 46 55 4e 43 54 49 4f 4e |T"..HIS |FUNCTION|
|000010e0| 20 57 49 4c 4c 20 46 4f | 52 4d 41 54 20 41 20 44 | WILL FO|RMAT A D|
|000010f0| 49 53 4b 2c 20 47 49 56 | 45 00 0a 31 32 35 20 50 |ISK, GIV|E..125 P|
|00001100| 52 49 4e 54 3a 50 52 49 | 4e 54 22 9a 49 54 20 41 |RINT:PRI|NT".IT A|
|00001110| 4e 20 c9 44 20 23 2c 20 | d4 48 45 4e 20 53 41 56 |N .D #, |.HEN SAV|
|00001120| 45 20 d4 48 45 20 50 52 | 4f 47 52 41 4d 00 0a 31 |E .HE PR|OGRAM..1|
|00001130| 32 36 20 50 52 49 4e 54 | 3a 50 52 49 4e 54 22 9a |26 PRINT|:PRINT".|
|00001140| c1 44 44 52 45 53 53 20 | c2 4f 4f 4b 20 d4 4f 20 |.DDRESS |.OOK .O |
|00001150| 54 48 45 20 44 49 53 4b | 2e 00 0a 31 32 37 20 50 |THE DISK|...127 P|
|00001160| 4f 4b 45 20 36 34 36 2c | 43 3a 50 52 49 4e 54 3a |OKE 646,|C:PRINT:|
|00001170| 50 52 49 4e 54 22 12 d7 | 41 52 4e 49 4e 47 20 92 |PRINT"..|ARNING .|
|00001180| 9a 54 48 49 53 20 57 49 | 4c 4c 20 c5 52 41 53 45 |.THIS WI|LL .RASE|
|00001190| 20 45 56 45 52 59 54 48 | 49 4e 47 20 4f 4e 00 0a | EVERYTH|ING ON..|
|000011a0| 31 32 38 20 50 52 49 4e | 54 3a 50 52 49 4e 54 22 |128 PRIN|T:PRINT"|
|000011b0| 54 48 45 20 44 49 53 4b | 22 0a 31 32 39 20 50 52 |THE DISK|".129 PR|
|000011c0| 49 4e 54 3a 50 52 49 4e | 54 3a 50 52 49 4e 54 22 |INT:PRIN|T:PRINT"|
|000011d0| 12 9e 20 20 20 20 20 d0 | 52 45 53 53 20 9c c6 31 |.. .|RESS ..1|
|000011e0| 9e 20 54 4f 20 43 4f 4e | 54 49 4e 55 45 20 1e d1 |. TO CON|TINUE ..|
|000011f0| 9e 20 54 4f 20 51 55 49 | 54 20 20 20 20 20 22 0a |. TO QUI|T ".|
|00001200| 31 33 30 20 47 45 54 20 | 41 24 3a 49 46 20 41 24 |130 GET |A$:IF A$|
|00001210| 3d 22 22 20 54 48 45 4e | 31 32 30 20 20 0a 31 33 |="" THEN|120 .13|
|00001220| 31 20 49 46 20 41 24 3d | 22 85 22 20 54 48 45 4e |1 IF A$=|"." THEN|
|00001230| 31 33 34 20 20 0a 31 33 | 32 20 49 46 20 41 24 3d |134 .13|2 IF A$=|
|00001240| 22 51 22 20 54 48 45 4e | 37 20 20 0a 31 33 33 20 |"Q" THEN|7 .133 |
|00001250| 47 4f 54 4f 31 33 30 20 | 20 0a 31 33 34 20 50 52 |GOTO130 | .134 PR|
|00001260| 49 4e 54 22 93 22 0a 31 | 33 35 20 50 52 49 4e 54 |INT".".1|35 PRINT|
|00001270| 22 13 11 11 11 11 11 11 | 11 11 22 0a 31 33 36 20 |".......|..".136 |
|00001280| 50 52 49 4e 54 54 41 42 | 28 31 32 29 22 c6 4f 52 |PRINTTAB|(12)".OR|
|00001290| 4d 41 54 54 49 4e 47 20 | c4 49 53 4b 22 0a 31 33 |MATTING |.ISK".13|
|000012a0| 37 20 43 4c 4f 53 45 31 | 35 3a 4f 50 45 4e 20 31 |7 CLOSE1|5:OPEN 1|
|000012b0| 35 2c 38 2c 31 35 2c 22 | 4e 30 3a 41 44 44 52 45 |5,8,15,"|N0:ADDRE|
|000012c0| 53 53 20 42 4f 4f 4b 2c | 53 31 22 0a 31 33 38 20 |SS BOOK,|S1".138 |
|000012d0| 43 4c 4f 53 45 31 35 0a | 31 33 39 20 50 52 49 4e |CLOSE15.|139 PRIN|
|000012e0| 54 22 93 22 3a 50 52 49 | 4e 54 22 13 11 11 11 11 |T".":PRI|NT".....|
|000012f0| 11 11 11 11 22 3a 50 52 | 49 4e 54 54 41 42 28 31 |....":PR|INTTAB(1|
|00001300| 32 29 22 d3 41 56 49 4e | 47 20 46 49 4c 45 22 0a |2)".AVIN|G FILE".|
|00001310| 31 34 30 20 53 41 56 45 | 22 c1 44 44 c2 cb d0 52 |140 SAVE|".DD...R|
|00001320| 47 22 2c 38 2c 31 3a 47 | 4f 54 4f 37 20 20 0a 31 |G",8,1:G|OTO7 .1|
|00001330| 34 31 20 52 45 4d 22 8d | 12 91 99 2a 2a 2a 2a 2a |41 REM".|...*****|
|00001340| 2a 20 45 44 49 54 20 41 | 20 46 49 4c 45 20 2a 2a |* EDIT A| FILE **|
|00001350| 2a 2a 2a 2a 00 0a 31 34 | 32 20 46 4f 52 58 3d 31 |****..14|2 FORX=1|
|00001360| 54 4f 32 30 30 30 3a 4e | 45 58 54 3a 50 52 49 4e |TO2000:N|EXT:PRIN|
|00001370| 54 43 48 52 24 28 31 34 | 29 0a 31 34 33 20 50 52 |TCHR$(14|).143 PR|
|00001380| 49 4e 54 22 93 22 0a 31 | 34 34 20 50 52 49 4e 54 |INT".".1|44 PRINT|
|00001390| 22 1e 12 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |".. | |
|000013a0| c5 44 49 54 20 d3 45 4c | 45 43 54 49 4f 4e 20 20 |.DIT .EL|ECTION |
|000013b0| 20 20 20 20 20 20 20 20 | 20 20 22 0a 31 34 35 20 | | ".145 |
|000013c0| 50 52 49 4e 54 22 11 11 | 11 11 22 54 41 42 28 31 |PRINT"..|.."TAB(1|
|000013d0| 31 29 22 1e 31 2e 20 d3 | 43 52 41 54 43 48 20 41 |1)".1. .|CRATCH A|
|000013e0| 20 46 49 4c 45 2e 00 0a | 31 34 36 20 50 52 49 4e | FILE...|146 PRIN|
|000013f0| 54 54 41 42 28 31 31 29 | 22 20 20 20 1c a3 a3 a3 |TTAB(11)|" ....|
|00001400| a3 a3 a3 a3 22 0a 31 34 | 37 20 50 52 49 4e 54 22 |....".14|7 PRINT"|
|00001410| 11 22 54 41 42 28 31 31 | 29 22 1e 32 2e 20 c5 44 |."TAB(11|)".2. .D|
|00001420| 49 54 20 45 58 49 53 54 | 49 4e 47 20 46 49 4c 45 |IT EXIST|ING FILE|
|00001430| 2e 22 0a 31 34 38 20 50 | 52 49 4e 54 54 41 42 28 |.".148 P|RINTTAB(|
|00001440| 31 31 29 22 1c 20 20 20 | a3 a3 a3 a3 22 0a 31 34 |11)". |....".14|
|00001450| 39 20 47 45 54 20 41 24 | 3a 49 46 20 41 24 3d 22 |9 GET A$|:IF A$="|
|00001460| 22 20 54 48 45 4e 31 34 | 39 20 20 0a 31 35 30 20 |" THEN14|9 .150 |
|00001470| 49 46 20 41 24 3d 22 31 | 22 20 54 48 45 4e 31 35 |IF A$="1|" THEN15|
|00001480| 34 20 20 0a 31 35 31 20 | 49 46 20 41 24 3d 22 32 |4 .151 |IF A$="2|
|00001490| 22 20 54 48 45 4e 31 36 | 36 20 20 0a 31 35 32 20 |" THEN16|6 .152 |
|000014a0| 47 4f 54 4f 31 34 39 20 | 20 0a 31 35 33 20 50 4f |GOTO149 | .153 PO|
|000014b0| 4b 45 20 31 39 2c 36 35 | 0a 31 35 34 20 50 52 49 |KE 19,65|.154 PRI|
|000014c0| 4e 54 22 93 11 11 11 11 | 11 11 22 3a 56 3d 31 31 |NT".....|..":V=11|
|000014d0| 3a 47 4f 53 55 42 37 30 | 20 20 20 0a 31 35 35 20 |:GOSUB70| .155 |
|000014e0| 50 52 49 4e 54 54 41 42 | 28 30 39 29 22 11 11 11 |PRINTTAB|(09)"...|
|000014f0| 11 11 11 9a d3 43 52 41 | 54 43 48 20 d4 48 49 53 |.....CRA|TCH .HIS|
|00001500| 20 c6 49 4c 45 20 28 1e | d9 2f 1c ce 9a 29 22 0a | .ILE (.|./...)".|
|00001510| 31 35 36 20 50 52 49 4e | 54 54 41 42 28 30 39 29 |156 PRIN|TTAB(09)|
|00001520| 22 1c a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |".......|........|
|00001530| a3 a3 a3 a3 a3 a3 a3 a3 | 22 0a 31 35 37 20 47 45 |........|".157 GE|
|00001540| 54 41 24 3a 49 46 20 41 | 24 3d 22 22 20 54 48 45 |TA$:IF A|$="" THE|
|00001550| 4e 31 35 37 20 20 0a 31 | 35 38 20 49 46 20 41 24 |N157 .1|58 IF A$|
|00001560| 3d 22 59 22 20 54 48 45 | 4e 31 36 31 20 20 0a 31 |="Y" THE|N161 .1|
|00001570| 35 39 20 49 46 20 41 24 | 3d 22 4e 22 20 54 48 45 |59 IF A$|="N" THE|
|00001580| 4e 20 47 4f 54 4f 37 20 | 20 0a 31 36 30 20 47 4f |N GOTO7 | .160 GO|
|00001590| 54 4f 31 35 37 20 20 0a | 31 36 31 20 43 4c 4f 53 |TO157 .|161 CLOS|
|000015a0| 45 31 35 3a 4f 50 45 4e | 20 31 35 2c 38 2c 31 35 |E15:OPEN| 15,8,15|
|000015b0| 2c 22 53 30 3a 22 2b 48 | 24 0a 31 36 32 20 49 4e |,"S0:"+H|$.162 IN|
|000015c0| 50 55 54 23 31 35 2c 45 | 4e 2c 45 4d 24 2c 45 53 |PUT#15,E|N,EM$,ES|
|000015d0| 2c 45 54 0a 31 36 33 20 | 50 52 49 4e 54 54 41 42 |,ET.163 |PRINTTAB|
|000015e0| 28 31 31 29 22 12 1c 22 | 45 4d 24 3b 45 53 0a 31 |(11)".."|EM$;ES.1|
|000015f0| 36 34 20 46 4f 52 20 58 | 3d 31 54 4f 31 30 30 30 |64 FOR X|=1TO1000|
|00001600| 3a 4e 45 58 54 0a 31 36 | 35 20 47 4f 54 4f 37 20 |:NEXT.16|5 GOTO7 |
|00001610| 0a 31 36 36 20 56 3d 31 | 33 3a 47 4f 53 55 42 37 |.166 V=1|3:GOSUB7|
|00001620| 30 20 20 0a 31 36 37 20 | 50 52 49 4e 54 54 41 42 |0 .167 |PRINTTAB|
|00001630| 28 31 30 29 22 9a d2 45 | 50 4c 41 43 45 20 d7 48 |(10)"..E|PLACE .H|
|00001640| 49 43 48 20 c5 4e 54 52 | 59 22 0a 31 36 38 20 50 |ICH .NTR|Y".168 P|
|00001650| 52 49 4e 54 22 12 1c 20 | 20 20 20 20 31 2e 20 cc |RINT".. | 1. .|
|00001660| 41 53 54 20 4e 41 4d 45 | 20 20 20 20 20 20 20 20 |AST NAME| |
|00001670| 32 2e 20 c6 49 52 53 54 | 20 4e 41 4d 45 20 20 22 |2. .IRST| NAME "|
|00001680| 0a 31 36 39 20 50 52 49 | 4e 54 22 12 91 1e 20 20 |.169 PRI|NT"... |
|00001690| 20 20 20 33 2e 20 d3 54 | 52 45 45 54 20 20 20 20 | 3. .T|REET |
|000016a0| 20 20 20 20 20 20 20 34 | 2e 20 c3 49 54 59 20 20 | 4|. .ITY |
|000016b0| 20 20 20 20 20 20 22 0a | 31 37 30 20 50 52 49 4e | ".|170 PRIN|
|000016c0| 54 22 12 91 1f 20 20 20 | 20 20 35 2e 20 d3 54 41 |T"... | 5. .TA|
|000016d0| 54 45 20 20 20 20 20 20 | 20 20 20 20 20 20 36 2e |TE | 6.|
|000016e0| 20 da 49 50 20 c3 4f 44 | 45 20 20 20 20 22 0a 31 | .IP .OD|E ".1|
|000016f0| 37 31 20 50 52 49 4e 54 | 22 12 91 9e 20 20 20 20 |71 PRINT|"... |
|00001700| 20 37 2e d4 45 4c 45 50 | 48 4f 4e 45 20 20 20 20 | 7..ELEP|HONE |
|00001710| 20 20 20 20 20 38 2e 20 | c1 4c 4c 20 20 20 20 20 | 8. |.LL |
|00001720| 20 20 20 20 22 0a 31 37 | 32 20 50 52 49 4e 54 22 | ".17|2 PRINT"|
|00001730| 12 91 9c 20 20 20 20 20 | 20 20 20 20 20 39 2e 20 |... | 9. |
|00001740| d2 45 54 55 52 4e 20 d4 | 4f 20 cd 41 49 4e 20 cd |.ETURN .|O .AIN .|
|00001750| 45 4e 55 20 20 20 20 20 | 20 20 20 22 0a 31 37 33 |ENU | ".173|
|00001760| 20 47 45 54 20 41 24 3a | 49 46 20 41 24 3d 22 22 | GET A$:|IF A$=""|
|00001770| 20 54 48 45 4e 31 37 33 | 20 20 0a 31 37 34 20 49 | THEN173| .174 I|
|00001780| 46 20 41 24 3d 22 31 22 | 20 54 48 45 4e 49 4e 50 |F A$="1"| THENINP|
|00001790| 55 54 22 9e cc 41 53 54 | 20 ce 41 4d 45 22 3b 4c |UT"..AST| .AME";L|
|000017a0| 24 3a 47 4f 53 55 42 38 | 36 20 20 20 3a 47 4f 54 |$:GOSUB8|6 :GOT|
|000017b0| 4f 31 38 34 20 20 0a 31 | 37 35 20 49 46 20 41 24 |O184 .1|75 IF A$|
|000017c0| 3d 22 32 22 20 54 48 45 | 4e 49 4e 50 55 54 22 9e |="2" THE|NINPUT".|
|000017d0| c6 49 52 53 54 20 ce 41 | 4d 45 22 3b 46 24 3a 47 |.IRST .A|ME";F$:G|
|000017e0| 4f 53 55 42 38 36 20 20 | 20 3a 47 4f 54 4f 31 38 |OSUB86 | :GOTO18|
|000017f0| 34 20 20 0a 31 37 36 20 | 49 46 20 41 24 3d 22 33 |4 .176 |IF A$="3|
|00001800| 22 20 54 48 45 4e 49 4e | 50 55 54 22 9e d3 54 52 |" THENIN|PUT"..TR|
|00001810| 45 45 54 22 3b 53 24 3a | 47 4f 53 55 42 38 36 20 |EET";S$:|GOSUB86 |
|00001820| 20 20 3a 47 4f 54 4f 31 | 38 34 20 20 0a 31 37 37 | :GOTO1|84 .177|
|00001830| 20 49 46 20 41 24 3d 22 | 34 22 20 54 48 45 4e 49 | IF A$="|4" THENI|
|00001840| 4e 50 55 54 22 9e c3 49 | 54 59 22 3b 43 24 3a 47 |NPUT"..I|TY";C$:G|
|00001850| 4f 53 55 42 38 36 20 20 | 20 3a 47 4f 54 4f 31 38 |OSUB86 | :GOTO18|
|00001860| 34 20 20 0a 31 37 38 20 | 49 46 20 41 24 3d 22 35 |4 .178 |IF A$="5|
|00001870| 22 20 54 48 45 4e 49 4e | 50 55 54 22 9e d3 54 41 |" THENIN|PUT"..TA|
|00001880| 54 45 22 3b 53 53 24 3a | 47 4f 53 55 42 38 36 20 |TE";SS$:|GOSUB86 |
|00001890| 20 20 3a 47 4f 54 4f 31 | 38 34 20 20 0a 31 37 39 | :GOTO1|84 .179|
|000018a0| 20 49 46 20 41 24 3d 22 | 36 22 20 54 48 45 4e 49 | IF A$="|6" THENI|
|000018b0| 4e 50 55 54 22 9e da 49 | 50 20 c3 4f 44 45 22 3b |NPUT"..I|P .ODE";|
|000018c0| 5a 24 3a 47 4f 53 55 42 | 38 36 20 20 20 3a 47 4f |Z$:GOSUB|86 :GO|
|000018d0| 54 4f 31 38 34 20 20 0a | 31 38 30 20 49 46 20 41 |TO184 .|180 IF A|
|000018e0| 24 3d 22 37 22 20 54 48 | 45 4e 20 49 4e 50 55 54 |$="7" TH|EN INPUT|
|000018f0| 22 9e d4 45 4c 45 50 48 | 4f 4e 45 22 3b 54 24 3a |"..ELEPH|ONE";T$:|
|00001900| 47 4f 53 55 42 38 36 20 | 20 20 3a 47 4f 54 4f 31 |GOSUB86 | :GOTO1|
|00001910| 38 34 20 20 0a 31 38 31 | 20 49 46 20 41 24 3d 22 |84 .181| IF A$="|
|00001920| 38 22 20 54 48 45 4e 20 | 56 3d 32 3a 47 4f 53 55 |8" THEN |V=2:GOSU|
|00001930| 42 32 30 34 20 20 3a 47 | 4f 53 55 42 33 39 20 20 |B204 :G|OSUB39 |
|00001940| 3a 47 4f 54 4f 31 39 32 | 20 20 0a 31 38 32 20 49 |:GOTO192| .182 I|
|00001950| 46 20 41 24 3d 22 39 22 | 20 54 48 45 4e 37 20 20 |F A$="9"| THEN7 |
|00001960| 0a 31 38 33 20 47 4f 54 | 4f 31 37 33 20 20 0a 31 |.183 GOT|O173 .1|
|00001970| 38 34 20 50 52 49 4e 54 | 54 41 42 28 30 36 29 22 |84 PRINT|TAB(06)"|
|00001980| 9a d3 41 56 45 20 d4 48 | 49 53 20 c5 44 49 54 45 |..AVE .H|IS .DITE|
|00001990| 44 20 c6 49 4c 45 20 28 | 1e d9 9a 2f 1c ce 9a 29 |D .ILE (|.../...)|
|000019a0| 22 0a 31 38 35 20 50 52 | 49 4e 54 54 41 42 28 31 |".185 PR|INTTAB(1|
|000019b0| 31 29 22 9e 12 c6 31 92 | 9a 20 54 4f 20 d2 45 53 |1)"...1.|. TO .ES|
|000019c0| 54 4f 52 45 20 c6 49 4c | 45 22 0a 31 38 36 20 47 |TORE .IL|E".186 G|
|000019d0| 45 54 41 24 3a 49 46 20 | 41 24 3d 22 22 20 54 48 |ETA$:IF |A$="" TH|
|000019e0| 45 4e 31 38 36 20 20 0a | 31 38 37 20 49 46 20 41 |EN186 .|187 IF A|
|000019f0| 24 3d 22 59 22 20 54 48 | 45 4e 20 47 4f 53 55 42 |$="Y" TH|EN GOSUB|
|00001a00| 32 30 34 20 20 3a 47 4f | 54 4f 31 39 32 20 20 0a |204 :GO|TO192 .|
|00001a10| 31 38 38 20 49 46 20 41 | 24 3d 22 85 22 20 54 48 |188 IF A|$="." TH|
|00001a20| 45 4e 20 47 4f 54 4f 31 | 39 30 20 20 0a 31 38 39 |EN GOTO1|90 .189|
|00001a30| 20 47 4f 54 4f 31 38 36 | 20 20 0a 31 39 30 20 4c | GOTO186| .190 L|
|00001a40| 24 3d 4c 24 28 31 29 3a | 46 24 3d 46 24 28 31 29 |$=L$(1):|F$=F$(1)|
|00001a50| 3a 53 24 3d 53 24 28 31 | 29 3a 43 24 3d 43 24 28 |:S$=S$(1|):C$=C$(|
|00001a60| 31 29 3a 53 53 24 3d 53 | 53 24 28 31 29 3a 5a 24 |1):SS$=S|S$(1):Z$|
|00001a70| 3d 5a 24 28 31 29 3a 54 | 24 3d 54 24 28 31 29 0a |=Z$(1):T|$=T$(1).|
|00001a80| 31 39 31 20 56 3d 31 34 | 3a 47 4f 53 55 42 38 36 |191 V=14|:GOSUB86|
|00001a90| 20 20 3a 47 4f 54 4f 31 | 36 37 20 20 0a 31 39 32 | :GOTO1|67 .192|
|00001aa0| 20 43 4c 4f 53 45 38 3a | 4f 50 45 4e 38 2c 38 2c | CLOSE8:|OPEN8,8,|
|00001ab0| 38 2c 22 30 3a 22 2b 48 | 24 2b 22 2c 53 2c 57 22 |8,"0:"+H|$+",S,W"|
|00001ac0| 0a 31 39 33 20 50 52 49 | 4e 54 23 38 2c 4c 24 3b |.193 PRI|NT#8,L$;|
|00001ad0| 43 52 24 3b 46 24 3b 43 | 52 24 3b 53 24 3b 43 52 |CR$;F$;C|R$;S$;CR|
|00001ae0| 24 3b 43 24 3b 43 52 24 | 3b 53 53 24 3b 43 52 24 |$;C$;CR$|;SS$;CR$|
|00001af0| 3b 5a 24 3b 43 52 24 3b | 54 24 3b 43 52 24 3b 42 |;Z$;CR$;|T$;CR$;B|
|00001b00| 24 3b 43 52 24 3b 46 43 | 24 0a 31 39 34 20 43 4c |$;CR$;FC|$.194 CL|
|00001b10| 4f 53 45 20 38 3a 50 52 | 49 4e 54 22 93 22 3a 49 |OSE 8:PR|INT".":I|
|00001b20| 46 20 56 3d 32 20 54 48 | 45 4e 20 52 45 54 55 52 |F V=2 TH|EN RETUR|
|00001b30| 4e 0a 31 39 35 20 47 4f | 53 55 42 38 36 20 20 20 |N.195 GO|SUB86 |
|00001b40| 3a 47 4f 54 4f 31 36 37 | 20 0a 31 39 36 20 53 54 |:GOTO167| .196 ST|
|00001b50| 4f 50 0a 31 39 37 20 52 | 45 4d 22 8d 91 1c 12 ce |OP.197 R|EM".....|
|00001b60| cd ce cd ce cd ce cd ce | cd 45 52 52 4f 52 20 43 |........|.ERROR C|
|00001b70| 48 45 43 4b 53 ce cd ce | cd ce cd ce cd 00 0a 31 |HECKS...|.......1|
|00001b80| 39 38 20 49 4e 50 55 54 | 23 31 35 2c 45 4e 2c 45 |98 INPUT|#15,EN,E|
|00001b90| 4d 24 3a 50 52 49 4e 54 | 20 45 4e 3b 45 4d 24 0a |M$:PRINT| EN;EM$.|
|00001ba0| 31 39 39 20 49 4e 50 55 | 54 23 31 35 2c 45 2c 45 |199 INPU|T#15,E,E|
|00001bb0| 4d 24 2c 45 54 2c 45 53 | 0a 32 30 30 20 49 46 20 |M$,ET,ES|.200 IF |
|00001bc0| 45 3d 30 20 54 48 45 4e | 20 52 45 54 55 52 4e 0a |E=0 THEN| RETURN.|
|00001bd0| 32 30 31 20 50 52 49 4e | 54 22 93 9e 11 11 11 11 |201 PRIN|T"......|
|00001be0| 11 11 22 54 41 42 28 30 | 36 29 22 12 1e d3 4f 52 |.."TAB(0|6)"...OR|
|00001bf0| 52 59 2c 20 c2 55 54 20 | c6 49 4c 45 22 0a 32 30 |RY, .UT |.ILE".20|
|00001c00| 32 20 50 52 49 4e 54 22 | 11 22 54 41 42 28 30 36 |2 PRINT"|."TAB(06|
|00001c10| 29 22 12 9e 22 48 24 22 | 1e 20 c4 4f 45 53 20 ce |)".."H$"|. .OES .|
|00001c20| 4f 54 20 c5 58 49 53 54 | 22 0a 32 30 33 20 46 4f |OT .XIST|".203 FO|
|00001c30| 52 20 58 3d 31 54 4f 32 | 30 30 30 3a 4e 45 58 54 |R X=1TO2|000:NEXT|
|00001c40| 3a 50 52 49 4e 54 22 93 | 22 3a 47 4f 54 4f 37 20 |:PRINT".|":GOTO7 |
|00001c50| 20 0a 32 30 34 20 43 4c | 4f 53 45 31 35 3a 4f 50 | .204 CL|OSE15:OP|
|00001c60| 45 4e 31 35 2c 38 2c 31 | 35 2c 22 53 30 3a 22 2b |EN15,8,1|5,"S0:"+|
|00001c70| 48 24 3a 43 4c 4f 53 45 | 31 35 3a 52 45 54 55 52 |H$:CLOSE|15:RETUR|
|00001c80| 4e 0a 32 30 35 20 52 45 | 4d 22 8d 9c 91 12 2a 2a |N.205 RE|M"....**|
|00001c90| 2a 2a 2a 2a 20 53 43 41 | 4e 20 46 49 4c 45 53 20 |**** SCA|N FILES |
|00001ca0| 2a 2a 2a 2a 2a 2a 00 0a | 32 30 36 20 46 4f 52 20 |******..|206 FOR |
|00001cb0| 58 3d 31 54 4f 20 31 30 | 30 30 3a 4e 45 58 54 0a |X=1TO 10|00:NEXT.|
|00001cc0| 32 30 37 20 4f 50 45 4e | 20 31 2c 38 2c 30 2c 22 |207 OPEN| 1,8,0,"|
|00001cd0| 24 3a 2a 3d 53 22 3a 50 | 52 49 4e 54 22 93 12 1e |$:*=S":P|RINT"...|
|00001ce0| 22 43 48 52 24 28 31 34 | 29 0a 32 30 38 20 52 45 |"CHR$(14|).208 RE|
|00001cf0| 4d 47 45 54 23 31 2c 53 | 24 0a 32 30 39 20 49 46 |MGET#1,S|$.209 IF|
|00001d00| 20 53 54 20 54 48 45 4e | 20 43 4c 4f 53 45 20 31 | ST THEN| CLOSE 1|
|00001d10| 3a 47 4f 54 4f 32 31 35 | 20 20 20 0a 32 31 30 20 |:GOTO215| .210 |
|00001d20| 52 45 4d 50 52 49 4e 54 | 20 41 53 43 28 4c 24 2b |REMPRINT| ASC(L$+|
|00001d30| 43 48 52 24 28 30 29 29 | 2b 32 35 36 2a 41 53 43 |CHR$(0))|+256*ASC|
|00001d40| 28 48 24 2b 43 48 52 24 | 28 30 29 29 3b 0a 32 31 |(H$+CHR$|(0));.21|
|00001d50| 31 20 47 45 54 23 31 2c | 53 24 3a 49 46 20 53 24 |1 GET#1,|S$:IF S$|
|00001d60| 3e 22 22 20 54 48 45 4e | 20 50 52 49 4e 54 54 41 |>"" THEN| PRINTTA|
|00001d70| 42 28 30 38 29 53 24 3b | 3a 47 4f 54 4f 32 31 31 |B(08)S$;|:GOTO211|
|00001d80| 20 20 20 0a 32 31 32 20 | 3a 0a 32 31 33 20 3a 0a | .212 |:.213 :.|
|00001d90| 32 31 34 20 50 52 49 4e | 54 3a 47 4f 54 4f 32 30 |214 PRIN|T:GOTO20|
|00001da0| 39 20 20 20 0a 32 31 35 | 20 50 52 49 4e 54 22 13 |9 .215| PRINT".|
|00001db0| 1e 12 20 20 20 20 20 20 | 20 20 20 d0 52 45 53 53 |.. | .RESS|
|00001dc0| 20 9c c6 31 1e 20 46 4f | 52 20 4d 41 49 4e 20 cd | ..1. FO|R MAIN .|
|00001dd0| 45 4e 55 20 20 20 20 20 | 20 20 20 20 22 0a 32 31 |ENU | ".21|
|00001de0| 36 20 50 52 49 4e 54 22 | 91 1c a3 a3 a3 a3 a3 a3 |6 PRINT"|........|
|00001df0| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |........|........|
|00001e00| a3 a3 a3 a3 a3 a3 a3 a3 | a3 a3 a3 a3 a3 a3 a3 a3 |........|........|
|00001e10| a3 a3 22 0a 32 31 37 20 | 47 45 54 20 41 24 3a 49 |..".217 |GET A$:I|
|00001e20| 46 20 41 24 3d 22 22 20 | 54 48 45 4e 32 31 37 20 |F A$="" |THEN217 |
|00001e30| 20 20 0a 32 31 38 20 49 | 46 20 41 24 3d 22 85 22 | .218 I|F A$="."|
|00001e40| 20 54 48 45 4e 37 20 20 | 0a 32 31 39 20 47 4f 54 | THEN7 |.219 GOT|
|00001e50| 4f 32 31 37 20 20 20 0a | |O217 .| |
+--------+-------------------------+-------------------------+--------+--------+