AUTODIAL
FILE INFORMATION
FILENAME(S): AUTODIAL
FILE TYPE(S): SEQ
FILE SIZE: 13.4K
FIRST SEEN: 2025-11-30 18:12:37
APPEARS ON: 1 disk(s)
FILE HASH
0611e7b3d6907d65bf937e51ec3e2e4ca4ce9142c07b14899848d469f04ea483
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANTERM | AUTODIAL | SEQ | Sailor, Ganheden | 15 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 30 20 47 4F 54 4F 32 34 0D 31 20 47 45 54 |..0 GOTO24.1 GET| 00000010: 23 35 2C 41 24 3A 49 46 41 24 3D 22 22 54 48 45 |#5,A$:IFA$=""THE| 00000020: 4E 35 0D 32 20 49 46 4D 24 3D 22 59 22 54 48 45 |N5.2 IFM$="Y"THE| 00000030: 4E 41 3D 28 46 25 28 41 53 43 28 41 24 29 29 29 |NA=(F%(ASC(A$)))| 00000040: 3A 50 4F 4B 45 44 2C 41 3A 44 3D 44 2B 31 3A 49 |:POKED,A:D=D+1:I| 00000050: 46 44 3D 50 54 48 45 4E 4D 24 3D 22 4E 22 0D 33 |FD=PTHENM$="N".3| 00000060: 20 50 52 49 4E 54 22 20 9D 22 3B 43 48 52 24 28 | PRINT" .";CHR$(| 00000070: 46 25 28 41 53 43 28 41 24 29 29 29 3B 3A 49 46 |F%(ASC(A$)));:IF| 00000080: 46 25 28 41 53 43 28 41 24 29 29 3D 33 34 54 48 |F%(ASC(A$))=34TH| 00000090: 45 4E 50 4F 4B 45 32 31 32 2C 30 0D 34 20 47 4F |ENPOKE212,0.4 GO| 000000A0: 54 4F 31 0D 35 20 50 52 49 4E 54 22 A2 9D 22 3B |TO1.5 PRINT"..";| 000000B0: 3A 47 45 54 41 24 3A 49 46 41 24 3D 22 85 22 54 |:GETA$:IFA$="."T| 000000C0: 48 45 4E 46 4F 52 5A 3D 38 33 30 54 4F 49 44 3A |HENFORZ=830TOID:| 000000D0: 50 52 49 4E 54 23 35 2C 43 48 52 24 28 50 45 45 |PRINT#5,CHR$(PEE| 000000E0: 4B 28 5A 29 29 3B 3A 4E 45 58 54 3A 47 4F 54 4F |K(Z));:NEXT:GOTO| 000000F0: 31 0D 36 20 49 46 41 24 3D 22 87 22 54 48 45 4E |1.6 IFA$="."THEN| 00000100: 4D 24 3D 22 59 22 3A 50 52 49 4E 54 22 9E 22 3B |M$="Y":PRINT".";| 00000110: 3A 47 4F 54 4F 31 0D 37 20 49 46 41 24 3D 22 8B |:GOTO1.7 IFA$=".| 00000120: 22 54 48 45 4E 4D 24 3D 22 4E 22 3A 50 52 49 4E |"THENM$="N":PRIN| 00000130: 54 22 05 22 3B 3A 47 4F 54 4F 31 0D 38 20 49 46 |T".";:GOTO1.8 IF| 00000140: 41 24 3D 22 86 22 54 48 45 4E 46 4F 52 5A 3D 38 |A$="."THENFORZ=8| 00000150: 37 30 54 4F 4D 45 3A 50 52 49 4E 54 23 35 2C 43 |70TOME:PRINT#5,C| 00000160: 48 52 24 28 50 45 45 4B 28 5A 29 29 3B 3A 4E 45 |HR$(PEEK(Z));:NE| 00000170: 58 54 3A 47 4F 54 4F 31 0D 39 20 49 46 41 24 3D |XT:GOTO1.9 IFA$=| 00000180: 22 8A 22 54 48 45 4E 46 4F 52 5A 3D 38 39 30 54 |"."THENFORZ=890T| 00000190: 4F 41 43 3A 50 52 49 4E 54 23 35 2C 43 48 52 24 |OAC:PRINT#5,CHR$| 000001A0: 28 50 45 45 4B 28 5A 29 29 3B 3A 4E 45 58 54 3A |(PEEK(Z));:NEXT:| 000001B0: 47 4F 54 4F 31 0D 31 30 20 49 46 41 24 3D 22 89 |GOTO1.10 IFA$=".| 000001C0: 22 54 48 45 4E 46 4F 52 5A 3D 38 35 30 54 4F 50 |"THENFORZ=850TOP| 000001D0: 41 3A 50 52 49 4E 54 23 35 2C 43 48 52 24 28 50 |A:PRINT#5,CHR$(P| 000001E0: 45 45 4B 28 5A 29 29 3B 3A 4E 45 58 54 3A 47 4F |EEK(Z));:NEXT:GO| 000001F0: 54 4F 31 0D 31 31 20 49 46 41 24 3D 22 8C 22 54 |TO1.11 IFA$="."T| 00000200: 48 45 4E 31 37 0D 31 32 20 49 46 41 24 3D 22 88 |HEN17.12 IFA$=".| 00000210: 22 54 48 45 4E 34 33 39 0D 31 33 20 49 46 41 24 |"THEN439.13 IFA$| 00000220: 3C 3E 22 22 54 48 45 4E 50 52 49 4E 54 23 35 2C |<>""THENPRINT#5,| 00000230: 43 48 52 24 28 54 25 28 41 53 43 28 41 24 29 29 |CHR$(T%(ASC(A$))| 00000240: 29 3B 0D 31 35 20 49 46 45 24 3D 22 59 22 54 48 |);.15 IFE$="Y"TH| 00000250: 45 4E 50 52 49 4E 54 41 24 3B 0D 31 36 20 47 4F |ENPRINTA$;.16 GO| 00000260: 54 4F 31 0D 31 37 20 50 52 49 4E 54 22 93 12 81 |TO1.17 PRINT"...| 00000270: A2 9E 20 2A 20 C3 2D 36 34 20 D4 D2 C1 CE D3 2D |.. * .-64 .....-| 00000280: D4 C5 D2 CD 20 20 20 20 D2 45 43 2E 20 36 34 20 |.... .EC. 64 | 00000290: C2 C1 D3 C9 C3 20 2A 20 81 A2 9E 92 22 0D 31 38 |..... * ....".18| 000002A0: 20 47 45 54 23 35 2C 41 24 3A 49 46 41 24 3D 22 | GET#5,A$:IFA$="| 000002B0: 22 54 48 45 4E 32 31 0D 31 39 20 41 3D 41 53 43 |"THEN21.19 A=ASC| 000002C0: 28 41 24 29 3A 50 4F 4B 45 44 2C 41 3A 49 46 44 |(A$):POKED,A:IFD| 000002D0: 3D 50 54 48 45 4E 31 0D 32 30 20 50 52 49 4E 54 |=PTHEN1.20 PRINT| 000002E0: 41 3B 3A 44 3D 44 2B 31 3A 49 46 41 3D 33 34 54 |A;:D=D+1:IFA=34T| 000002F0: 48 45 4E 50 4F 4B 45 32 31 32 2C 30 0D 32 31 20 |HENPOKE212,0.21 | 00000300: 47 45 54 42 24 3A 49 46 42 24 3D 22 88 22 54 48 |GETB$:IFB$="."TH| 00000310: 45 4E 32 31 32 0D 32 32 20 47 4F 54 4F 31 38 0D |EN212.22 GOTO18.| 00000320: 32 34 20 4F 50 45 4E 35 2C 32 2C 33 2C 43 48 52 |24 OPEN5,2,3,CHR| 00000330: 24 28 50 45 45 4B 28 38 32 38 29 29 2B 43 48 52 |$(PEEK(828))+CHR| 00000340: 24 28 50 45 45 4B 28 38 32 39 29 29 0D 32 35 20 |$(PEEK(829)).25 | 00000350: 50 3D 33 39 30 30 30 3A 42 3D 31 31 30 30 30 3A |P=39000:B=11000:| 00000360: 44 3D 42 3A 47 4F 53 55 42 33 30 30 0D 32 36 20 |D=B:GOSUB300.26 | 00000370: 47 3D 31 3A 45 24 3D 22 46 22 3A 4D 24 3D 22 4E |G=1:E$="F":M$="N| 00000380: 22 3A 50 52 49 4E 54 22 05 11 11 11 11 11 1D 1D |":PRINT"........| 00000390: 1D 20 20 20 20 20 20 20 12 20 20 20 20 D3 C5 D4 |. . ...| 000003A0: D4 C9 CE C7 20 20 D5 D0 20 20 20 20 92 20 20 20 |.... .. . | 000003B0: 20 20 20 22 0D 32 37 20 42 53 3D 33 32 30 30 30 | ".27 BS=32000| 000003C0: 3A 49 44 3D 38 33 30 3A 50 41 3D 38 35 30 3A 4D |:ID=830:PA=850:M| 000003D0: 45 3D 38 37 30 3A 41 43 3D 38 39 30 0D 32 38 20 |E=870:AC=890.28 | 000003E0: 49 46 50 45 45 4B 28 38 32 35 29 3C 3E 35 32 54 |IFPEEK(825)<>52T| 000003F0: 48 45 4E 50 52 49 4E 54 22 05 11 11 1D CC 4F 41 |HENPRINT".....OA| 00000400: 44 20 26 20 52 55 4E 20 54 48 45 20 22 43 48 52 |D & RUN THE "CHR| 00000410: 24 28 33 34 29 22 21 22 43 48 52 24 28 33 34 29 |$(34)"!"CHR$(34)| 00000420: 22 20 50 52 4F 47 52 41 4D 22 3A 4E 45 57 0D 32 |" PROGRAM":NEW.2| 00000430: 39 20 47 4F 53 55 42 31 31 30 3A 50 52 49 4E 54 |9 GOSUB110:PRINT| 00000440: 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 20 20 |"............ | 00000450: CC CF C1 C4 C9 CE C7 20 C6 31 2D C6 34 20 20 20 |....... .1-.4 | 00000460: 92 22 3A 47 4F 53 55 42 31 30 30 30 3A 47 4F 54 |.":GOSUB1000:GOT| 00000470: 4F 34 33 39 0D 33 30 20 50 52 49 4E 54 22 20 20 |O439.30 PRINT" | 00000480: 91 22 3A 50 52 49 4E 54 3A 50 52 49 4E 54 22 91 |.":PRINT:PRINT".| 00000490: 20 D2 45 53 45 54 20 42 55 46 46 45 52 20 3F 20 | .ESET BUFFER ? | 000004A0: 20 20 12 59 92 45 53 20 4F 52 20 12 4E 92 4F 22 | .Y.ES OR .N.O"| 000004B0: 0D 33 31 20 47 45 54 4E 24 3A 49 46 4E 24 3D 22 |.31 GETN$:IFN$="| 000004C0: 22 54 48 45 4E 33 31 0D 33 32 20 49 46 4E 24 3D |"THEN31.32 IFN$=| 000004D0: 22 4E 22 54 48 45 4E 50 52 49 4E 54 22 91 91 22 |"N"THENPRINT".."| 000004E0: 3A 52 45 54 55 52 4E 0D 33 33 20 49 46 4E 24 3D |:RETURN.33 IFN$=| 000004F0: 22 59 22 54 48 45 4E 44 3D 42 3A 50 52 49 4E 54 |"Y"THEND=B:PRINT| 00000500: 22 91 91 22 3A 52 45 54 55 52 4E 0D 33 34 20 47 |"..":RETURN.34 G| 00000510: 4F 54 4F 33 30 0D 33 35 20 50 52 49 4E 54 22 93 |OTO30.35 PRINT".| 00000520: 1D 1D 1D 1D 1D 1D 1D 1D 1D 05 2A 1D 42 55 46 46 |..........*.BUFF| 00000530: 45 52 20 43 4F 4E 54 45 4E 54 53 1D 2A 9E 11 22 |ER CONTENTS.*.."| 00000540: 3A 46 4F 52 58 3D 42 54 4F 44 3A 47 45 54 41 24 |:FORX=BTOD:GETA$| 00000550: 3A 49 46 41 24 3D 22 22 54 48 45 4E 33 38 0D 33 |:IFA$=""THEN38.3| 00000560: 36 20 47 45 54 41 24 3A 49 46 41 24 3D 22 22 54 |6 GETA$:IFA$=""T| 00000570: 48 45 4E 33 36 0D 33 37 20 49 46 41 24 3D 22 88 |HEN36.37 IFA$=".| 00000580: 22 54 48 45 4E 34 33 39 0D 33 38 20 50 52 49 4E |"THEN439.38 PRIN| 00000590: 54 43 48 52 24 28 50 45 45 4B 28 58 29 29 3B 3A |TCHR$(PEEK(X));:| 000005A0: 4E 45 58 54 3A 50 52 49 4E 54 22 9D 20 22 3A 50 |NEXT:PRINT". ":P| 000005B0: 52 49 4E 54 3A 50 52 49 4E 54 22 11 05 1D 1D 1D |RINT:PRINT".....| 000005C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 2A 20 45 4E |............* EN| 000005D0: 44 20 2A 9E 22 0D 33 39 20 47 45 54 41 24 3A 49 |D *.".39 GETA$:I| 000005E0: 46 41 24 3D 22 22 54 48 45 4E 33 39 0D 34 30 20 |FA$=""THEN39.40 | 000005F0: 47 4F 54 4F 34 33 39 0D 34 35 20 47 4F 53 55 42 |GOTO439.45 GOSUB| 00000600: 31 31 30 30 3A 44 3D 42 0D 34 36 20 47 3D 31 3A |1100:D=B.46 G=1:| 00000610: 50 52 49 4E 54 22 91 20 20 20 20 20 20 20 20 20 |PRINT". | 00000620: 20 20 20 20 20 05 2A 20 4C 4F 41 44 49 4E 47 20 | .* LOADING | 00000630: 2A 9E 20 20 20 22 3A 50 52 49 4E 54 3A 4F 50 45 |*. ":PRINT:OPE| 00000640: 4E 38 2C 38 2C 38 2C 22 30 3A 22 2B 41 46 24 2B |N8,8,8,"0:"+AF$+| 00000650: 22 2C 53 2C 52 22 0D 34 37 20 47 45 54 23 38 2C |",S,R".47 GET#8,| 00000660: 41 24 3A 49 46 41 24 3D 22 22 54 48 45 4E 47 3D |A$:IFA$=""THENG=| 00000670: 31 3A 47 4F 54 4F 34 37 0D 34 39 20 49 46 41 24 |1:GOTO47.49 IFA$| 00000680: 3D 22 5F 22 54 48 45 4E 41 24 3D 43 48 52 24 28 |="_"THENA$=CHR$(| 00000690: 31 33 29 0D 35 30 20 49 46 41 24 3D 43 48 52 24 |13).50 IFA$=CHR$| 000006A0: 28 31 39 39 29 54 48 45 4E 47 3D 47 2B 31 3A 49 |(199)THENG=G+1:I| 000006B0: 46 47 3D 35 54 48 45 4E 36 30 30 0D 35 31 20 41 |FG=5THEN600.51 A| 000006C0: 3D 41 52 78 FF FF FF 8C 1A 50 4F 4B 45 44 2C 41 |=ARx.....POKED,A| 000006D0: 3A 44 3D 44 2B 31 3A 49 46 44 3D 50 2D 31 54 48 |:D=D+1:IFD=P-1TH| 000006E0: 45 4E 50 4F 4B 45 44 2C 39 32 3A 47 4F 54 4F 34 |ENPOKED,92:GOTO4| 000006F0: 33 39 0D 35 32 20 50 52 49 4E 54 41 24 3B 3A 47 |39.52 PRINTA$;:G| 00000700: 4F 54 4F 34 37 0D 36 30 20 50 52 49 4E 54 22 20 |OTO47.60 PRINT" | 00000710: 20 91 22 3A 50 52 49 4E 54 3A 50 52 49 4E 54 22 | .":PRINT:PRINT"| 00000720: 91 20 C5 43 48 4F 50 4C 45 58 20 4F 4E 20 3F 20 |. .CHOPLEX ON ? | 00000730: 20 20 20 12 59 92 45 53 20 4F 52 20 12 4E 92 4F | .Y.ES OR .N.O| 00000740: 22 0D 36 31 20 47 45 54 45 24 3A 49 46 45 24 3D |".61 GETE$:IFE$=| 00000750: 22 22 54 48 45 4E 36 31 0D 36 32 20 49 46 45 24 |""THEN61.62 IFE$| 00000760: 3D 22 4E 22 54 48 45 4E 52 45 54 55 52 4E 0D 36 |="N"THENRETURN.6| 00000770: 33 20 49 46 45 24 3D 22 59 22 54 48 45 4E 52 45 |3 IFE$="Y"THENRE| 00000780: 54 55 52 4E 0D 36 34 20 47 4F 54 4F 36 31 0D 31 |TURN.64 GOTO61.1| 00000790: 30 30 20 47 4F 53 55 42 33 30 3A 47 4F 53 55 42 |00 GOSUB30:GOSUB| 000007A0: 36 30 3A 47 4F 54 4F 32 31 32 0D 67 FF FF FF FF |60:GOTO212.g....| 000007B0: D2 DA DC FF FF FF FF FF FF FF ED FF FF FF FF FF |................| 000007C0: FF FF FF D0 FF DF FF FF FF FF D1 FF FF FF ED FF |................| 000007D0: FF DF FF FF DF FF FF FF E2 ED FF ED FF FF FF FF |................| 000007E0: FF FF FF FF FF ED FF FF FF FF FF FF FF FB FF FF |................| 000007F0: 30 20 54 25 28 31 29 3D 31 3A 54 25 28 33 29 3D |0 T%(1)=1:T%(3)=| 00000800: 33 3A 54 25 28 31 35 29 3D 31 35 3A 54 25 28 31 |3:T%(15)=15:T%(1| 00000810: 37 29 3D 31 37 3A 54 25 28 31 39 29 3D 31 39 3A |7)=17:T%(19)=19:| 00000820: 54 25 28 32 31 29 3D 32 31 3A 54 25 28 32 32 29 |T%(21)=21:T%(22)| 00000830: 3D 32 32 0D 31 34 30 20 46 4F 52 4A 3D 36 35 54 |=22.140 FORJ=65T| 00000840: 4F 39 30 3A 4B 3D 4A 2B 33 32 3A 54 25 28 4A 29 |O90:K=J+32:T%(J)| 00000850: 3D 4B 3A 4E 45 58 54 3A 46 4F 52 4A 3D 39 31 54 |=K:NEXT:FORJ=91T| 00000860: 4F 39 35 3A 54 25 28 4A 29 3D 4A 3A 4E 45 58 54 |O95:T%(J)=J:NEXT| 00000870: 0D 31 36 30 20 46 4F 52 4A 3D 31 39 33 54 4F 32 |.160 FORJ=193TO2| 00000880: 31 38 3A 4B 3D 4A 2D 31 32 38 3A 54 25 28 4A 29 |18:K=J-128:T%(J)| 00000890: 3D 4B 3A 4E 45 58 54 0D 31 38 30 20 46 4F 52 4A |=K:NEXT.180 FORJ| 000008A0: 3D 30 54 4F 32 35 35 3A 4B 3D 54 25 28 4A 29 3A |=0TO255:K=T%(J):| 000008B0: 49 46 4B 3C 3E 30 54 48 45 4E 46 25 28 4B 29 3D |IFK<>0THENF%(K)=| 000008C0: 4A 3A 46 25 28 4B 2B 31 32 38 29 3D 4A 3A 4E 45 |J:F%(K+128)=J:NE| 000008D0: 58 54 0D 32 31 30 20 4E 45 58 54 3A 52 45 54 55 |XT.210 NEXT:RETU| 000008E0: 52 4E 0D 32 31 32 20 50 52 49 4E 54 22 93 12 81 |RN.212 PRINT"...| 000008F0: A2 9E 20 2A 20 20 C3 2D 36 34 20 D4 D2 C1 CE D3 |.. * .-64 .....| 00000900: 2D D4 C5 D2 CD 20 20 20 20 36 34 20 54 4F 20 C1 |-.... 64 TO .| 00000910: D3 C3 C9 C9 20 20 2A 20 81 A2 05 92 22 0D 32 31 |.... * ....".21| 00000920: 37 20 49 46 4D 24 3D 22 59 22 54 48 45 4E 50 52 |7 IFM$="Y"THENPR| 00000930: 49 4E 54 22 9E 91 22 0D 32 31 38 20 47 4F 54 4F |INT"..".218 GOTO| 00000940: 31 0D 33 30 30 20 49 46 50 45 45 4B 28 39 35 30 |1.300 IFPEEK(950| 00000950: 29 3D 36 39 54 48 45 4E 50 52 24 3D 22 45 56 45 |)=69THENPR$="EVE| 00000960: 4E 22 0D 33 30 35 20 49 46 50 45 45 4B 28 39 35 |N".305 IFPEEK(95| 00000970: 30 29 3D 37 39 54 48 45 4E 50 52 24 3D 22 4F 44 |0)=79THENPR$="OD| 00000980: 44 22 0D 33 31 30 20 49 46 50 45 45 4B 28 39 35 |D".310 IFPEEK(95| 00000990: 30 29 3D 37 38 54 48 45 4E 50 52 24 3D 22 4E 4F |0)=78THENPR$="NO| 000009A0: 4E 45 22 0D 33 31 35 20 49 46 50 45 45 4B 28 39 |NE".315 IFPEEK(9| 000009B0: 35 31 29 3D 38 33 54 48 45 4E 57 44 24 3D 22 53 |51)=83THENWD$="S| 000009C0: 45 56 45 4E 22 0D 33 32 30 20 49 46 50 45 45 4B |EVEN".320 IFPEEK| 000009D0: 28 39 35 31 29 3D 36 39 54 48 45 4E 57 44 24 3D |(951)=69THENWD$=| 000009E0: 22 45 49 47 48 54 22 0D 33 32 35 20 49 46 50 45 |"EIGHT".325 IFPE| 000009F0: 45 4B 28 39 35 32 29 3D 37 39 54 48 45 4E 53 54 |EK(952)=79THENST| 00000A00: 24 3D 22 4F 4E 45 22 0D 33 33 30 20 49 46 50 45 |$="ONE".330 IFPE| 00000A10: 45 4B 28 39 35 32 29 3D 38 34 54 48 45 4E 53 54 |EK(952)=84THENST| 00000A20: 24 3D 22 54 57 4F 22 0D 33 33 35 20 49 46 50 45 |$="TWO".335 IFPE| 00000A30: 45 4B 28 39 35 33 29 3D 37 30 54 48 45 4E 45 43 |EK(953)=70THENEC| 00000A40: 24 3D 22 46 55 4C 4C 22 0D 33 34 30 20 49 46 50 |$="FULL".340 IFP| 00000A50: 45 45 4B 28 39 35 33 29 3D 37 32 54 48 45 4E 45 |EEK(953)=72THENE| 00000A60: 43 24 3D 22 48 41 4C 46 22 0D 33 35 30 20 52 45 |C$="HALF".350 RE| 00000A70: 54 55 52 4E 0D 33 38 30 20 50 52 49 4E 54 22 20 |TURN.380 PRINT" | 00000A80: D7 48 49 43 48 20 50 52 49 4E 54 45 52 3F 20 20 |.HICH PRINTER? | 00000A90: 12 D6 92 49 43 20 4F 52 20 12 D0 92 52 4F 57 52 |...IC OR ...ROWR| 00000AA0: 49 54 45 52 22 0D 33 38 32 20 47 45 54 41 24 3A |ITER".382 GETA$:| 00000AB0: 49 46 41 24 3D 22 22 54 48 45 4E 33 38 32 0D 33 |IFA$=""THEN382.3| 00000AC0: 38 33 20 49 46 41 24 3D 22 56 22 54 48 45 4E 33 |83 IFA$="V"THEN3| 00000AD0: 38 39 0D 33 38 34 20 49 46 41 24 3D 22 50 22 54 |89.384 IFA$="P"T| 00000AE0: 48 45 4E 33 39 32 0D 33 38 35 20 47 4F 54 4F 34 |HEN392.385 GOTO4| 00000AF0: 33 39 0D 33 38 39 20 4F 50 45 4E 34 2C 34 2C 37 |39.389 OPEN4,4,7| 00000B00: 3A 50 4F 4B 45 35 33 32 36 35 2C 31 31 3A 46 4F |:POKE53265,11:FO| 00000B10: 52 58 3D 42 54 4F 44 0D 33 39 30 20 50 52 49 4E |RX=BTOD.390 PRIN| 00000B20: 54 23 34 2C 43 48 52 24 28 50 45 45 4B 28 58 29 |T#4,CHR$(PEEK(X)| 00000B30: 29 3B 3A 4E 45 58 54 58 3A 43 4C 4F 53 45 34 3A |);:NEXTX:CLOSE4:| 00000B40: 50 4F 4B 45 35 33 32 36 35 2C 32 37 3A 47 4F 54 |POKE53265,27:GOT| 00000B50: 4F 34 33 39 0D 33 39 32 20 4F 50 45 4E 34 2C 34 |O439.392 OPEN4,4| 00000B60: 2C 37 3A 50 4F 4B 45 35 33 32 36 35 2C 31 31 3A |,7:POKE53265,11:| 00000B70: 46 4F 52 58 3D 42 54 4F 44 0D 33 39 33 20 50 52 |FORX=BTOD.393 PR| 00000B80: 49 4E 54 23 34 2C 43 48 52 24 28 32 37 29 3B 43 |INT#4,CHR$(27);C| 00000B90: 48 52 24 28 38 30 29 43 48 52 24 28 50 45 45 4B |HR$(80)CHR$(PEEK| 00000BA0: 28 58 29 29 3B 3A 4E 45 58 54 58 3A 43 4C 4F 53 |(X));:NEXTX:CLOS| 00000BB0: 45 34 3A 50 4F 4B 45 35 33 32 36 35 2C 32 37 3A |E4:POKE53265,27:| 00000BC0: 47 4F 54 4F 34 33 39 0D 34 30 30 20 49 46 50 52 |GOTO439.400 IFPR| 00000BD0: 24 3D 22 4E 4F 4E 45 22 54 48 45 4E 50 52 24 3D |$="NONE"THENPR$=| 00000BE0: 22 45 56 45 4E 22 3A 50 4F 4B 45 38 32 39 2C 28 |"EVEN":POKE829,(| 00000BF0: 50 45 45 4B 28 38 32 39 29 2B 39 36 29 3A 50 4F |PEEK(829)+96):PO| 00000C00: 4B 45 39 35 30 2C 36 39 3A 47 4F 54 4F 34 33 39 |KE950,69:GOTO439| 00000C10: 0D 34 30 32 20 49 46 50 52 24 3D 22 45 56 45 4E |.402 IFPR$="EVEN| 00000C20: 22 54 48 45 4E 50 52 24 3D 22 20 4F 44 44 22 3A |"THENPR$=" ODD":| 00000C30: 50 4F 4B 45 38 32 39 2C 28 50 45 45 4B 28 38 32 |POKE829,(PEEK(82| 00000C40: 39 29 2D 36 34 29 3A 50 4F 4B 45 39 35 30 2C 37 |9)-64):POKE950,7| 00000C50: 39 3A 47 4F 54 4F 34 33 39 0D 34 30 34 20 49 46 |9:GOTO439.404 IF| 00000C60: 50 52 24 3D 22 20 4F 44 44 22 54 48 45 4E 50 52 |PR$=" ODD"THENPR| 00000C70: 24 3D 22 4E 4F 4E 45 22 3A 50 4F 4B 45 38 32 39 |$="NONE":POKE829| 00000C80: 2C 28 50 45 45 4B 28 38 32 39 29 2D 33 32 29 3A |,(PEEK(829)-32):| 00000C90: 50 4F 4B 45 39 35 30 2C 37 38 3A 47 4F 54 4F 34 |POKE950,78:GOTO4| 00000CA0: 33 39 0D 34 31 30 20 49 46 57 44 24 3D 22 45 49 |39.410 IFWD$="EI| 00000CB0: 47 48 54 22 54 48 45 4E 57 44 24 3D 22 53 45 56 |GHT"THENWD$="SEV| 00000CC0: 45 4E 22 3A 50 4F 4B 45 38 32 38 2C 28 50 45 45 |EN":POKE828,(PEE| 00000CD0: 4B 28 38 32 38 29 2B 33 32 29 3A 50 4F 4B 45 39 |K(828)+32):POKE9| 00000CE0: 35 31 2C 38 33 3A 47 4F 54 4F 34 33 39 0D 34 31 |51,83:GOTO439.41| 00000CF0: 32 20 49 46 57 44 24 3D 22 53 45 56 45 4E 22 54 |2 IFWD$="SEVEN"T| 00000D00: 48 45 4E 57 44 24 3D 22 45 49 47 48 54 22 3A 50 |HENWD$="EIGHT":P| 00000D10: 4F 4B 45 38 32 38 2C 28 50 45 45 4B 28 38 32 38 |OKE828,(PEEK(828| 00000D20: 29 2D 33 32 29 3A 50 4F 4B 45 39 35 31 2C 36 39 |)-32):POKE951,69| 00000D30: 3A 47 4F 54 4F 34 33 39 0D 34 32 30 20 49 46 53 |:GOTO439.420 IFS| 00000D40: 54 24 3D 22 4F 4E 45 22 54 48 45 4E 53 54 24 3D |T$="ONE"THENST$=| 00000D50: 22 54 57 4F 22 3A 50 4F 4B 45 38 32 38 2C 28 50 |"TWO":POKE828,(P| 00000D60: 45 45 4B 28 38 32 38 29 2B 31 32 38 29 3A 50 4F |EEK(828)+128):PO| 00000D70: 4B 45 39 35 32 2C 38 34 3A 47 4F 54 4F 34 33 39 |KE952,84:GOTO439| 00000D80: 0D 34 32 32 20 49 46 53 54 24 3D 22 54 57 4F 22 |.422 IFST$="TWO"| 00000D90: 54 48 45 4E 53 54 24 3D 22 4F 4E 45 22 3A 50 4F |THENST$="ONE":PO| 00000DA0: 4B 45 38 32 38 2C 28 50 45 45 4B 28 38 32 38 29 |KE828,(PEEK(828)| 00000DB0: 2D 31 32 38 29 3A 50 4F 4B 45 39 35 32 2C 37 39 |-128):POKE952,79| 00000DC0: 3A 47 4F 54 4F 34 33 39 0D 34 33 30 20 49 46 45 |:GOTO439.430 IFE| 00000DD0: 43 24 3D 22 46 55 4C 4C 22 54 48 45 4E 45 43 24 |C$="FULL"THENEC$| 00000DE0: 3D 22 48 41 4C 46 22 3A 50 4F 4B 45 38 32 39 2C |="HALF":POKE829,| 00000DF0: 28 50 45 45 4B 28 38 32 39 29 2B 31 36 29 3A 50 |(PEEK(829)+16):P| 00000E00: 4F 4B 45 39 35 33 2C 37 32 3A 47 4F 54 4F 34 33 |OKE953,72:GOTO43| 00000E10: 39 0D 34 33 32 20 49 46 45 43 24 3D 22 48 41 4C |9.432 IFEC$="HAL| 00000E20: 46 22 54 48 45 4E 45 43 24 3D 22 46 55 4C 4C 22 |F"THENEC$="FULL"| 00000E30: 3A 50 4F 4B 45 38 32 39 2C 28 50 45 45 4B 28 38 |:POKE829,(PEEK(8| 00000E40: 32 39 29 2D 31 36 29 3A 50 4F 4B 45 39 35 33 2C |29)-16):POKE953,| 00000E50: 37 30 3A 47 4F 54 4F 34 33 39 0D 34 33 39 20 50 |70:GOTO439.439 P| 00000E60: 52 49 4E 54 22 93 12 81 A2 9E 20 20 20 20 C1 D5 |RINT"..... ..| 00000E70: D4 CF 2D C4 C9 C1 CC 20 C3 36 34 20 D4 D2 C1 CE |..-.... .64 ....| 00000E80: D3 2D D4 C5 D2 CD 20 31 2E 31 20 20 20 20 20 20 |.-.... 1.1 | 00000E90: 81 A2 9E 11 22 0D 34 37 30 20 50 52 49 4E 54 22 |....".470 PRINT"| 00000EA0: 81 A2 A2 A2 12 9E BE CF 50 54 49 4F 4E 20 4C 49 |........PTION LI| 00000EB0: 53 54 BC 81 92 A2 A2 A2 A2 A2 A2 A2 12 9E BE C6 |ST..............| 00000EC0: 55 4E 43 54 49 4F 4E 20 4B 45 59 53 BC 81 92 A2 |UNCTION KEYS....| 00000ED0: A2 9E 22 3B 0D 34 37 39 20 50 52 49 4E 54 22 20 |..";.479 PRINT" | 00000EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000EF0: 20 20 81 12 20 92 9E 22 0D 34 38 30 20 50 52 49 | .. ..".480 PRI| 00000F00: 4E 54 22 1D 12 31 2E 92 20 C1 D3 C3 C9 C9 20 54 |NT"..1.. ..... T| 00000F10: 45 52 4D 49 4E 41 4C 20 81 12 20 92 9E 20 12 C6 |ERMINAL .. .. ..| 00000F20: 31 92 3D 20 D5 53 45 52 20 C9 C4 20 23 22 0D 34 |1.= .SER .. #".4| 00000F30: 38 31 20 50 52 49 4E 54 22 1D 12 32 2E 92 20 C4 |81 PRINT"..2.. .| 00000F40: 49 53 50 4C 41 59 20 C6 31 2D C6 34 20 20 81 12 |ISPLAY .1-.4 ..| 00000F50: 20 92 9E 20 12 C6 32 92 3D 20 D0 41 53 53 57 4F | .. ..2.= .ASSWO| 00000F60: 52 44 22 0D 34 38 35 20 50 52 49 4E 54 22 1D 12 |RD".485 PRINT"..| 00000F70: 33 2E 92 20 C4 49 53 50 4C 41 59 20 42 55 46 46 |3.. .ISPLAY BUFF| 00000F80: 45 52 20 81 12 20 92 9E 20 12 C6 33 92 3D 20 CD |ER .. .. ..3.= .| 00000F90: 45 4D 42 45 52 20 C9 C4 20 23 22 0D 34 38 36 20 |EMBER .. #".486 | 00000FA0: 50 52 49 4E 54 22 1D 12 34 2E 92 20 D0 52 49 4E |PRINT"..4.. .RIN| 00000FB0: 54 20 42 55 46 46 45 52 20 20 20 81 12 20 92 9E |T BUFFER .. ..| 00000FC0: 20 12 C6 34 92 3D 20 C1 43 43 45 53 53 20 43 4F | ..4.= .CCESS CO| 00000FD0: 44 45 22 0D 34 38 39 20 50 52 49 4E 54 22 1D 12 |DE".489 PRINT"..| 00000FE0: 35 2E 92 20 D3 41 56 45 20 42 55 46 46 45 52 20 |5.. .AVE BUFFER | 00000FF0: 20 20 20 81 12 20 92 9E 20 12 C6 35 92 3D 20 CF | .. .. ..5.= .| 00001000: 50 45 4E 20 42 55 46 46 45 52 22 0D 34 39 30 20 |PEN BUFFER".490 | 00001010: 50 52 49 4E 54 22 1D 12 36 2E 92 20 CC 4F 41 44 |PRINT"..6.. .OAD| 00001020: 20 42 55 46 46 45 52 20 20 20 20 81 12 20 92 9E | BUFFER .. ..| 00001030: 20 12 C6 36 92 3D 20 C3 4C 4F 53 45 20 42 55 46 | ..6.= .LOSE BUF| 00001040: 46 45 52 22 0D 34 39 32 20 50 52 49 4E 54 22 1D |FER".492 PRINT".| 00001050: 12 37 2E 92 20 D3 45 4E 44 20 42 55 46 46 45 52 |.7.. .END BUFFER| 00001060: 20 20 20 20 81 12 20 92 9E 20 12 C6 37 92 3D 20 | .. .. ..7.= | 00001070: D2 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 22 0D |.ETURN TO MENU".| 00001080: 34 39 33 20 50 52 49 4E 54 22 1D 12 38 2E 92 20 |493 PRINT"..8.. | 00001090: C2 C1 D3 C9 C3 20 54 4F 20 46 49 4C 45 20 20 81 |..... TO FILE .| 000010A0: 12 20 92 9E 20 12 C6 38 92 3D 20 D2 45 43 45 49 |. .. ..8.= .ECEI| 000010B0: 56 45 20 C2 C1 D3 C9 C3 22 0D 34 39 34 20 50 52 |VE .....".494 PR| 000010C0: 49 4E 54 22 1D 12 39 2E 92 20 C6 49 4C 45 20 54 |INT"..9.. .ILE T| 000010D0: 4F 20 C2 C1 D3 C9 C3 20 20 81 12 20 92 9E 20 12 |O ..... .. .. .| 000010E0: 5C 92 20 3D 20 C1 55 54 4F 2D C4 49 41 4C 20 20 |\. = .UTO-.IAL | 000010F0: 20 20 22 0D 34 39 35 20 50 52 49 4E 54 22 1D 12 | ".495 PRINT"..| 00001100: C1 2E 92 20 C3 52 45 41 54 45 20 46 49 4C 45 20 |... .REATE FILE | 00001110: 20 20 20 81 12 20 92 A2 A2 A2 A2 9E 12 BE D0 41 | .. .........A| 00001120: 52 41 4D 45 54 45 52 53 BC 92 81 A2 A2 A2 A2 9E |RAMETERS........| 00001130: 22 3B 0D 34 39 39 20 50 52 49 4E 54 22 1D 12 C2 |";.499 PRINT"...| 00001140: 2E 92 20 D2 45 42 4F 4F 54 20 50 52 4F 47 52 41 |.. .EBOOT PROGRA| 00001150: 4D 20 81 12 20 92 9E 22 0D 35 30 30 20 50 52 49 |M .. ..".500 PRI| 00001160: 4E 54 22 1D 12 C3 2E 92 20 D3 45 54 20 50 41 52 |NT"..... .ET PAR| 00001170: 49 54 59 20 20 20 20 20 81 12 20 92 9E 20 D0 41 |ITY .. .. .A| 00001180: 52 49 54 59 20 20 20 2D 20 22 3B 50 52 24 20 20 |RITY - ";PR$ | 00001190: 20 20 20 20 22 0D 35 30 31 20 50 52 49 4E 54 22 | ".501 PRINT"| 000011A0: 1D 12 C4 2E 92 20 D3 45 54 20 57 4F 52 44 53 49 |..... .ET WORDSI| 000011B0: 5A 45 20 20 20 81 12 20 92 9E 20 D7 4F 52 44 53 |ZE .. .. .ORDS| 000011C0: 49 5A 45 20 2D 20 22 3B 57 44 24 0D 35 30 33 20 |IZE - ";WD$.503 | 000011D0: 50 52 49 4E 54 22 1D 12 C5 2E 92 20 D3 45 54 20 |PRINT"..... .ET | 000011E0: 53 54 4F 50 42 49 54 53 20 20 20 81 12 20 92 9E |STOPBITS .. ..| 000011F0: 20 D3 54 4F 50 42 49 54 53 20 2D 20 22 3B 53 54 | .TOPBITS - ";ST| 00001200: 24 0D 35 30 34 20 50 52 49 4E 54 22 1D 12 C6 2E |$.504 PRINT"....| 00001210: 92 20 D3 45 54 20 44 55 50 4C 45 58 20 20 20 20 |. .ET DUPLEX | 00001220: 20 81 12 20 92 9E 20 C4 55 50 4C 45 58 20 20 20 | .. .. .UPLEX | 00001230: 2D 20 22 3B 45 43 24 0D 35 30 35 20 50 52 49 4E |- ";EC$.505 PRIN| 00001240: 54 22 1D 12 C7 2E 92 20 D1 55 49 54 20 50 52 4F |T"..... .UIT PRO| 00001250: 47 52 41 4D 20 20 20 81 12 20 92 9E 20 C5 43 48 |GRAM .. .. .CH| 00001260: 4F 50 4C 45 58 20 2D 20 4F 46 46 22 0D 35 30 37 |OPLEX - OFF".507| 00001270: 20 50 52 49 4E 54 54 41 42 28 31 39 29 22 81 12 | PRINTTAB(19)"..| 00001280: 20 92 9E 22 0D 35 30 39 20 50 52 49 4E 54 22 12 | ..".509 PRINT".| 00001290: 81 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 000012A0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 000012B0: A2 A2 A2 A2 A2 A2 A2 A2 A2 9E 91 22 0D 35 32 31 |...........".521| 000012C0: 20 49 46 44 2D 42 3D 30 54 48 45 4E 50 52 49 4E | IFD-B=0THENPRIN| 000012D0: 54 22 91 20 C2 55 46 46 45 52 20 49 53 20 45 4D |T". .UFFER IS EM| 000012E0: 50 54 59 91 22 3A 47 4F 54 4F 35 33 35 0D 35 32 |PTY.":GOTO535.52| 000012F0: 32 20 50 52 49 4E 54 22 91 20 22 3B 44 2D 42 3B |2 PRINT". ";D-B;| 00001300: 22 42 59 54 45 20 46 49 4C 45 20 49 4E 20 42 55 |"BYTE FILE IN BU| 00001310: 46 46 45 52 91 22 0D 35 33 35 20 47 45 54 4F 50 |FFER.".535 GETOP| 00001320: 24 3A 49 46 4F 50 24 3D 22 22 54 48 45 4E 35 33 |$:IFOP$=""THEN53| 00001330: 35 0D 35 34 30 20 4D 24 3D 22 4E 22 3A 4F 50 3D |5.540 M$="N":OP=| 00001340: 56 41 4C 28 4F 50 24 29 3A 50 52 49 4E 54 4F 50 |VAL(OP$):PRINTOP| 00001350: 3B 22 91 22 0D 35 34 35 20 4F 4E 4F 50 47 4F 54 |;".".545 ONOPGOT| 00001360: 4F 31 30 30 2C 38 30 30 2C 33 35 2C 33 38 30 2C |O100,800,35,380,| 00001370: 37 30 30 2C 34 35 2C 31 32 39 30 2C 31 34 30 30 |700,45,1290,1400| 00001380: 2C 31 36 30 30 0D 35 35 30 20 49 46 4F 50 24 3D |,1600.550 IFOP$=| 00001390: 22 41 22 54 48 45 4E 31 35 31 30 0D 35 36 30 20 |"A"THEN1510.560 | 000013A0: 49 46 4F 50 24 3D 22 42 22 54 48 45 4E 43 4C 4F |IFOP$="B"THENCLO| 000013B0: 53 45 35 3A 47 4F 54 4F 30 0D 35 36 35 20 49 46 |SE5:GOTO0.565 IF| 000013C0: 4F 50 24 3D 22 43 22 54 48 45 4E 34 30 30 0D 35 |OP$="C"THEN400.5| 000013D0: 37 30 20 49 46 4F 50 24 3D 22 44 22 54 48 45 4E |70 IFOP$="D"THEN| 000013E0: 34 31 30 0D 35 38 30 20 49 46 4F 50 24 3D 22 45 |410.580 IFOP$="E| 000013F0: 22 54 48 45 4E 34 32 30 0D 35 38 32 20 49 46 4F |"THEN420.582 IFO| 00001400: 50 24 3D 22 46 22 54 48 45 4E 34 33 30 0D 35 38 |P$="F"THEN430.58| 00001410: 35 20 49 46 4F 50 24 3D 22 47 22 54 48 45 4E 43 |5 IFOP$="G"THENC| 00001420: 4C 4F 53 45 35 3A 50 52 49 4E 54 22 11 11 11 22 |LOSE5:PRINT"..."| 00001430: 3A 4E 45 57 0D 35 38 36 20 49 46 4F 50 24 3D 22 |:NEW.586 IFOP$="| 00001440: 5C 22 54 48 45 4E 31 36 35 30 0D 35 39 30 20 47 |\"THEN1650.590 G| 00001450: 4F 54 4F 34 33 39 0D 36 30 30 20 4F 50 45 4E 31 |OTO439.600 OPEN1| 00001460: 35 2C 38 2C 31 35 3A 49 4E 50 55 54 23 31 35 2C |5,8,15:INPUT#15,| 00001470: 42 24 2C 43 24 2C 44 24 2C 45 24 3A 43 4C 4F 53 |B$,C$,D$,E$:CLOS| 00001480: 45 38 3A 43 4C 4F 53 45 31 35 3A 49 46 44 2D 42 |E8:CLOSE15:IFD-B| 00001490: 3E 31 30 54 48 45 4E 44 3D 44 2D 33 3A 47 4F 54 |>10THEND=D-3:GOT| 000014A0: 4F 34 33 39 0D 36 31 30 20 50 52 49 4E 54 22 05 |O439.610 PRINT".| 000014B0: 9D 9D 9D 20 12 20 22 3B 41 46 24 3B 22 20 92 20 |... . ";AF$;" . | 000014C0: 49 53 20 4E 4F 54 20 4F 4E 20 54 48 49 53 20 44 |IS NOT ON THIS D| 000014D0: 49 53 4B 2E 22 3A 44 3D 42 3A 46 4F 52 47 3D 31 |ISK.":D=B:FORG=1| 000014E0: 54 4F 32 35 30 30 3A 4E 45 58 54 3A 47 4F 54 4F |TO2500:NEXT:GOTO| 000014F0: 34 33 39 0D 37 30 30 20 47 4F 53 55 42 31 31 30 |439.700 GOSUB110| 00001500: 30 0D 37 30 32 20 50 52 49 4E 54 22 05 D3 41 56 |0.702 PRINT"..AV| 00001510: 49 4E 47 20 12 20 22 3B 41 46 24 3B 22 20 92 20 |ING . ";AF$;" . | 00001520: 54 4F 20 44 49 53 4B 22 0D 37 30 35 20 4F 50 45 |TO DISK".705 OPE| 00001530: 4E 38 2C 38 2C 38 2C 22 40 30 3A 22 2B 41 46 24 |N8,8,8,"@0:"+AF$| 00001540: 2B 22 2C 53 2C 57 22 0D 37 32 30 20 46 4F 52 58 |+",S,W".720 FORX| 00001550: 3D 42 54 4F 44 3A 50 52 49 4E 54 23 38 2C 43 48 |=BTOD:PRINT#8,CH| 00001560: 52 24 28 50 45 45 4B 28 58 29 29 3B 3A 4E 45 58 |R$(PEEK(X));:NEX| 00001570: 54 3A 50 52 49 4E 54 23 38 2C 43 48 52 24 28 39 |T:PRINT#8,CHR$(9| 00001580: 32 29 0D 37 33 30 20 50 52 49 4E 54 22 11 C3 4C |2).730 PRINT"..L| 00001590: 4F 53 49 4E 47 20 44 49 53 4B 20 46 49 4C 45 9E |OSING DISK FILE.| 000015A0: 22 3A 43 4C 4F 53 45 38 3A 47 4F 54 4F 34 33 39 |":CLOSE8:GOTO439| 000015B0: 0D 38 30 30 20 50 52 49 4E 54 22 93 81 12 A2 9E |.800 PRINT".....| 000015C0: 20 C3 2D 36 34 20 D4 D2 C1 CE D3 2D D4 C5 D2 CD | .-64 .....-....| 000015D0: 20 31 2E 30 20 C2 55 53 41 52 4F 57 20 28 43 29 | 1.0 .USAROW (C)| 000015E0: 20 31 39 38 33 20 81 A2 9E 22 0D 38 30 31 20 50 | 1983 ...".801 P| 000015F0: 52 49 4E 54 22 1D 1D 1D 1D 1D 1D 1D 12 20 D3 50 |RINT"........ .P| 00001600: 45 43 49 41 4C 20 C6 55 4E 43 54 49 4F 4E 20 CB |ECIAL .UNCTION .| 00001610: 45 59 53 20 92 11 22 0D 38 30 35 20 50 52 49 4E |EYS ..".805 PRIN| 00001620: 54 22 11 1D D9 4F 55 52 20 C9 C4 23 20 20 20 20 |T"...OUR ..# | 00001630: 20 20 20 12 20 C6 31 20 92 20 2D 20 05 22 3B 3A | . .1 . - .";:| 00001640: 46 4F 52 58 3D 38 33 30 54 4F 49 44 3A 50 52 49 |FORX=830TOID:PRI| 00001650: 4E 54 43 48 52 24 28 50 45 45 4B 28 58 29 29 3B |NTCHR$(PEEK(X));| 00001660: 3A 4E 45 58 54 3A 50 52 49 4E 54 0D 38 31 30 20 |:NEXT:PRINT.810 | 00001670: 50 52 49 4E 54 22 1D 9E D9 4F 55 52 20 50 41 53 |PRINT"...OUR PAS| 00001680: 53 57 4F 52 44 20 20 12 20 C6 32 20 92 20 2D 20 |SWORD . .2 . - | 00001690: 05 22 3B 3A 46 4F 52 58 3D 38 35 30 54 4F 50 41 |.";:FORX=850TOPA| 000016A0: 3A 50 52 49 4E 54 43 48 52 24 28 50 45 45 4B 28 |:PRINTCHR$(PEEK(| 000016B0: 58 29 29 3B 3A 4E 45 58 54 3A 50 52 49 4E 54 0D |X));:NEXT:PRINT.| 000016C0: 38 32 30 20 50 52 49 4E 54 22 1D 9E D9 4F 55 52 |820 PRINT"...OUR| 000016D0: 20 4D 45 4D 42 45 52 20 23 20 20 12 20 C6 33 20 | MEMBER # . .3 | 000016E0: 92 20 2D 20 05 22 3B 3A 46 4F 52 58 3D 38 37 30 |. - .";:FORX=870| 000016F0: 54 4F 4D 45 3A 50 52 49 4E 54 43 48 52 24 28 50 |TOME:PRINTCHR$(P| 00001700: 45 45 4B 28 58 29 29 3B 3A 4E 45 58 54 3A 50 52 |EEK(X));:NEXT:PR| 00001710: 49 4E 54 0D 38 33 30 20 50 52 49 4E 54 22 1D 9E |INT.830 PRINT"..| 00001720: D9 4F 55 52 20 41 43 43 45 53 53 20 23 20 20 12 |.OUR ACCESS # .| 00001730: 20 C6 34 20 92 20 2D 20 05 22 3B 3A 46 4F 52 58 | .4 . - .";:FORX| 00001740: 3D 38 39 30 54 4F 41 43 3A 50 52 49 4E 54 43 48 |=890TOAC:PRINTCH| 00001750: 52 24 28 50 45 45 4B 28 58 29 29 3B 3A 4E 45 58 |R$(PEEK(X));:NEX| 00001760: 54 3A 50 52 49 4E 54 0D 38 34 30 20 50 52 49 4E |T:PRINT.840 PRIN| 00001770: 54 22 9E 11 11 1D 1D 1D C1 4C 4C 20 CF CB 20 3F |T".......LL .. ?| 00001780: 22 0D 38 34 35 20 47 45 54 41 24 3A 49 46 41 24 |".845 GETA$:IFA$| 00001790: 3D 22 22 54 48 45 4E 38 34 35 0D 38 34 36 20 49 |=""THEN845.846 I| 000017A0: 46 41 24 3D 22 4E 22 54 48 45 4E 38 35 30 0D 38 |FA$="N"THEN850.8| 000017B0: 34 37 20 47 4F 54 4F 34 33 39 0D 38 35 30 20 50 |47 GOTO439.850 P| 000017C0: 52 49 4E 54 22 11 1D 1D 1D D3 45 4C 45 43 54 20 |RINT".....ELECT | 000017D0: 12 C6 31 92 20 2D 20 12 C6 34 92 20 54 4F 20 43 |..1. - ..4. TO C| 000017E0: 48 41 4E 47 45 11 22 0D 38 35 32 20 47 45 54 41 |HANGE.".852 GETA| 000017F0: 24 3A 49 46 41 24 3D 22 22 54 48 45 4E 38 35 32 |$:IFA$=""THEN852| 00001800: 0D 38 35 34 20 49 46 41 24 3D 43 48 52 24 28 31 |.854 IFA$=CHR$(1| 00001810: 33 33 29 54 48 45 4E 50 52 49 4E 54 22 1D 1D 1D |33)THENPRINT"...| 00001820: C9 4E 50 55 54 20 C9 C4 20 23 22 3A 49 44 3D 38 |.NPUT .. #":ID=8| 00001830: 33 30 3A 47 4F 54 4F 38 39 30 0D 38 35 35 20 49 |30:GOTO890.855 I| 00001840: 46 41 24 3D 43 48 52 24 28 31 33 37 29 54 48 45 |FA$=CHR$(137)THE| 00001850: 4E 50 52 49 4E 54 22 1D 1D 1D C9 4E 50 55 54 20 |NPRINT"....NPUT | 00001860: 50 41 53 53 57 4F 52 44 22 3A 50 41 3D 38 35 30 |PASSWORD":PA=850| 00001870: 3A 47 4F 54 4F 39 31 35 0D 38 35 36 20 49 46 41 |:GOTO915.856 IFA| 00001880: 24 3D 43 48 52 24 28 31 33 34 29 54 48 45 4E 50 |$=CHR$(134)THENP| 00001890: 52 49 4E 54 22 1D 1D 1D C9 4E 50 55 54 20 4D 45 |RINT"....NPUT ME| 000018A0: 4D 42 45 52 20 23 22 3A 4D 45 3D 38 37 30 3A 47 |MBER #":ME=870:G| 000018B0: 4F 54 4F 39 33 35 0D 38 35 37 20 49 46 41 24 3D |OTO935.857 IFA$=| 000018C0: 43 48 52 24 28 31 33 38 29 54 48 45 4E 50 52 49 |CHR$(138)THENPRI| 000018D0: 4E 54 22 1D 1D 1D C9 4E 50 55 54 20 41 43 43 45 |NT"....NPUT ACCE| 000018E0: 53 53 20 23 22 3A 41 43 3D 38 39 30 3A 47 4F 54 |SS #":AC=890:GOT| 000018F0: 4F 39 35 35 0D 38 36 30 20 47 4F 54 4F 38 35 32 |O955.860 GOTO852| 00001900: 0D 38 39 30 20 47 45 54 41 24 3A 49 46 41 24 3D |.890 GETA$:IFA$=| 00001910: 22 22 54 48 45 4E 38 39 30 0D 38 39 32 20 41 3D |""THEN890.892 A=| 00001920: 41 53 43 28 41 24 29 3A 50 52 49 4E 54 41 24 3B |ASC(A$):PRINTA$;| 00001930: 3A 50 4F 4B 45 49 44 2C 41 3A 49 44 3D 49 44 2B |:POKEID,A:ID=ID+| 00001940: 31 3A 49 46 41 24 3D 43 48 52 24 28 31 33 29 54 |1:IFA$=CHR$(13)T| 00001950: 48 45 4E 39 30 30 0D 38 39 34 20 47 4F 54 4F 38 |HEN900.894 GOTO8| 00001960: 39 30 0D 39 30 30 20 4F 50 45 4E 38 2C 38 2C 38 |90.900 OPEN8,8,8| 00001970: 2C 22 40 30 3A C6 31 2C 53 2C 57 22 3A 46 4F 52 |,"@0:.1,S,W":FOR| 00001980: 58 3D 38 33 30 54 4F 49 44 3A 50 52 49 4E 54 23 |X=830TOID:PRINT#| 00001990: 38 2C 43 48 52 24 28 50 45 45 4B 28 58 29 29 3B |8,CHR$(PEEK(X));| 000019A0: 3A 49 46 50 45 45 4B 28 58 29 3D 31 33 54 48 45 |:IFPEEK(X)=13THE| 000019B0: 4E 39 39 30 0D 39 31 30 20 4E 45 58 54 0D 39 31 |N990.910 NEXT.91| 000019C0: 35 20 47 45 54 41 24 3A 49 46 41 24 3D 22 22 54 |5 GETA$:IFA$=""T| 000019D0: 48 45 4E 39 31 35 0D 39 31 36 20 41 3D 41 53 43 |HEN915.916 A=ASC| 000019E0: 28 41 24 29 3A 50 52 49 4E 54 41 24 3B 3A 50 4F |(A$):PRINTA$;:PO| 000019F0: 4B 45 50 41 2C 41 3A 50 41 3D 50 41 2B 31 3A 49 |KEPA,A:PA=PA+1:I| 00001A00: 46 41 24 3D 43 48 52 24 28 31 33 29 54 48 45 4E |FA$=CHR$(13)THEN| 00001A10: 39 32 30 0D 39 31 37 20 47 4F 54 4F 39 31 35 0D |920.917 GOTO915.| 00001A20: 39 32 30 20 4F 50 45 4E 38 2C 38 2C 38 2C 22 40 |920 OPEN8,8,8,"@| 00001A30: 30 3A C6 32 2C 53 2C 57 22 3A 46 4F 52 58 3D 38 |0:.2,S,W":FORX=8| 00001A40: 35 30 54 4F 50 41 3A 50 52 49 4E 54 23 38 2C 43 |50TOPA:PRINT#8,C| 00001A50: 48 52 24 28 50 45 45 4B 28 58 29 29 3B 3A 49 46 |HR$(PEEK(X));:IF| 00001A60: 50 45 45 4B 28 58 29 3D 31 33 54 48 45 4E 39 39 |PEEK(X)=13THEN99| 00001A70: 30 0D 39 33 30 20 4E 45 58 54 0D 39 33 35 20 47 |0.930 NEXT.935 G| 00001A80: 45 54 41 24 3A 49 46 41 24 3D 22 22 54 48 45 4E |ETA$:IFA$=""THEN| 00001A90: 39 33 35 0D 39 33 36 20 41 3D 41 53 43 28 41 24 |935.936 A=ASC(A$| 00001AA0: 29 3A 50 52 49 4E 54 41 24 3B 3A 50 4F 4B 45 4D |):PRINTA$;:POKEM| 00001AB0: 45 2C 41 3A 4D 45 3D 4D 45 2B 31 3A 49 46 41 24 |E,A:ME=ME+1:IFA$| 00001AC0: 3D 43 48 52 24 28 31 33 29 54 48 45 4E 39 34 30 |=CHR$(13)THEN940| 00001AD0: 0D 39 33 37 20 47 4F 54 4F 39 33 35 0D 39 34 30 |.937 GOTO935.940| 00001AE0: 20 4F 50 45 4E 38 2C 38 2C 38 2C 22 40 30 3A C6 | OPEN8,8,8,"@0:.| 00001AF0: 33 2C 53 2C 57 22 3A 46 4F 52 58 3D 38 37 30 54 |3,S,W":FORX=870T| 00001B00: 4F 4D 45 3A 50 52 49 4E 54 23 38 2C 43 48 52 24 |OME:PRINT#8,CHR$| 00001B10: 28 50 45 45 4B 28 58 29 29 3B 3A 49 46 50 45 45 |(PEEK(X));:IFPEE| 00001B20: 4B 28 58 29 3D 31 33 54 48 45 4E 39 39 30 0D 39 |K(X)=13THEN990.9| 00001B30: 35 30 20 4E 45 58 54 0D 39 35 35 20 47 45 54 41 |50 NEXT.955 GETA| 00001B40: 24 3A 49 46 41 24 3D 22 22 54 48 45 4E 39 35 35 |$:IFA$=""THEN955| 00001B50: 0D 39 35 36 20 41 3D 41 53 43 28 41 24 29 3A 50 |.956 A=ASC(A$):P| 00001B60: 52 49 4E 54 41 24 3B 3A 50 4F 4B 45 41 43 2C 41 |RINTA$;:POKEAC,A| 00001B70: 3A 41 43 3D 41 43 2B 31 3A 49 46 41 24 3D 43 48 |:AC=AC+1:IFA$=CH| 00001B80: 52 24 28 31 33 29 54 48 45 4E 39 36 30 0D 39 35 |R$(13)THEN960.95| 00001B90: 37 20 47 4F 54 4F 39 35 35 0D 39 36 30 20 4F 50 |7 GOTO955.960 OP| 00001BA0: 45 4E 38 2C 38 2C 38 2C 22 40 30 3A C6 34 2C 53 |EN8,8,8,"@0:.4,S| 00001BB0: 2C 57 22 3A 46 4F 52 58 3D 38 39 30 54 4F 41 43 |,W":FORX=890TOAC| 00001BC0: 3A 50 52 49 4E 54 23 38 2C 43 48 52 24 28 50 45 |:PRINT#8,CHR$(PE| 00001BD0: 45 4B 28 58 29 29 3B 3A 49 46 50 45 45 4B 28 58 |EK(X));:IFPEEK(X| 00001BE0: 29 3D 31 33 54 48 45 4E 39 39 30 0D 39 37 30 20 |)=13THEN990.970 | 00001BF0: 4E 45 58 54 0D 39 39 30 20 43 4C 4F 53 45 38 3A |NEXT.990 CLOSE8:| 00001C00: 47 4F 54 4F 38 30 30 0D 31 30 30 30 20 4F 50 45 |GOTO800.1000 OPE| 00001C10: 4E 38 2C 38 2C 38 2C 22 C6 31 2C 53 2C 52 22 0D |N8,8,8,".1,S,R".| 00001C20: 31 30 30 32 20 47 45 54 23 38 2C 41 24 3A 49 46 |1002 GET#8,A$:IF| 00001C30: 41 24 3D 22 22 54 48 45 4E 31 30 30 32 0D 31 30 |A$=""THEN1002.10| 00001C40: 30 34 20 41 3D 41 53 43 28 41 24 29 3A 50 4F 4B |04 A=ASC(A$):POK| 00001C50: 45 49 44 2C 41 3A 49 44 3D 49 44 2B 31 3A 49 46 |EID,A:ID=ID+1:IF| 00001C60: 41 24 3D 43 48 52 24 28 31 33 29 54 48 45 4E 43 |A$=CHR$(13)THENC| 00001C70: 4C 4F 53 45 38 3A 47 4F 54 4F 31 30 31 30 0D 31 |LOSE8:GOTO1010.1| 00001C80: 30 30 36 20 47 4F 54 4F 31 30 30 32 0D 31 30 31 |006 GOTO1002.101| 00001C90: 30 20 4F 50 45 4E 38 2C 38 2C 38 2C 22 C6 32 2C |0 OPEN8,8,8,".2,| 00001CA0: 53 2C 52 22 0D 31 30 31 32 20 47 45 54 23 38 2C |S,R".1012 GET#8,| 00001CB0: 41 24 3A 49 46 41 24 3D 22 22 54 48 45 4E 31 30 |A$:IFA$=""THEN10| 00001CC0: 31 32 0D 31 30 31 34 20 41 3D 41 53 43 28 41 24 |12.1014 A=ASC(A$| 00001CD0: 29 3A 50 4F 4B 45 50 41 2C 41 3A 50 41 3D 50 41 |):POKEPA,A:PA=PA| 00001CE0: 2B 31 3A 49 46 41 24 3D 43 48 52 24 28 31 33 29 |+1:IFA$=CHR$(13)| 00001CF0: 54 48 45 4E 43 4C 4F 53 45 38 3A 47 4F 54 4F 31 |THENCLOSE8:GOTO1| 00001D00: 30 32 30 0D 31 30 31 36 20 47 4F 54 4F 31 30 31 |020.1016 GOTO101| 00001D10: 32 0D 31 30 32 30 20 4F 50 45 4E 38 2C 38 2C 38 |2.1020 OPEN8,8,8| 00001D20: 2C 22 C6 33 2C 53 2C 52 22 0D 31 30 32 32 20 47 |,".3,S,R".1022 G| 00001D30: 45 54 23 38 2C 41 24 3A 49 46 41 24 3D 22 22 54 |ET#8,A$:IFA$=""T| 00001D40: 48 45 4E 31 30 32 32 0D 31 30 32 34 20 41 3D 41 |HEN1022.1024 A=A| 00001D50: 53 43 28 41 24 29 3A 50 4F 4B 45 4D 45 2C 41 3A |SC(A$):POKEME,A:| 00001D60: 4D 45 3D 4D 45 2B 31 3A 49 46 41 24 3D 43 48 52 |ME=ME+1:IFA$=CHR| 00001D70: 24 28 31 33 29 54 48 45 4E 43 4C 4F 53 45 38 3A |$(13)THENCLOSE8:| 00001D80: 47 4F 54 4F 31 30 33 30 0D 31 30 32 36 20 47 4F |GOTO1030.1026 GO| 00001D90: 54 4F 31 30 32 32 0D 31 30 33 30 20 4F 50 45 4E |TO1022.1030 OPEN| 00001DA0: 38 2C 38 2C 38 2C 22 C6 34 2C 53 2C 52 22 0D 31 |8,8,8,".4,S,R".1| 00001DB0: 30 33 32 20 47 45 54 23 38 2C 41 24 3A 49 46 41 |032 GET#8,A$:IFA| 00001DC0: 24 3D 22 22 54 48 45 4E 31 30 33 32 0D 31 30 33 |$=""THEN1032.103| 00001DD0: 34 20 41 3D 41 53 43 28 41 24 29 3A 50 4F 4B 45 |4 A=ASC(A$):POKE| 00001DE0: 41 43 2C 41 3A 41 43 3D 41 43 2B 31 3A 49 46 41 |AC,A:AC=AC+1:IFA| 00001DF0: 24 3D 43 48 52 24 28 31 33 29 54 48 45 4E 43 4C |$=CHR$(13)THENCL| 00001E00: 4F 53 45 38 3A 52 45 54 55 52 4E 0D 31 30 33 36 |OSE8:RETURN.1036| 00001E10: 20 47 4F 54 4F 31 30 33 32 0D 31 30 35 30 20 53 | GOTO1032.1050 S| 00001E20: 54 4F 50 0D 31 31 30 30 20 49 4E 50 55 54 22 20 |TOP.1100 INPUT" | 00001E30: 20 C5 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 | .NTER FILE NAME| 00001E40: 20 20 20 20 20 20 9D 9D 9D 22 3B 41 46 24 3A 50 | ...";AF$:P| 00001E50: 52 49 4E 54 22 93 22 3A 52 45 54 55 52 4E 0D 31 |RINT".":RETURN.1| 00001E60: 32 35 30 20 49 46 45 43 24 3D 22 C6 55 4C 4C 22 |250 IFEC$=".ULL"| 00001E70: 54 48 45 4E 45 43 24 3D 22 C8 41 4C 46 22 3A 45 |THENEC$=".ALF":E| 00001E80: 24 3D 22 48 22 3A 47 4F 54 4F 34 33 39 0D 31 32 |$="H":GOTO439.12| 00001E90: 36 30 20 49 46 45 43 24 3D 22 C8 41 4C 46 22 54 |60 IFEC$=".ALF"T| 00001EA0: 48 45 4E 45 43 24 3D 22 C6 55 4C 4C 22 3A 45 24 |HENEC$=".ULL":E$| 00001EB0: 3D 22 46 22 3A 47 4F 54 4F 34 33 39 0D 31 32 39 |="F":GOTO439.129| 00001EC0: 30 20 50 52 49 4E 54 22 20 20 91 22 3A 50 52 49 |0 PRINT" .":PRI| 00001ED0: 4E 54 22 91 20 12 31 2E 92 20 C1 D3 C3 C9 C9 20 |NT". .1.. ..... | 00001EE0: 54 45 58 54 20 20 4F 52 20 20 12 32 2E 92 20 36 |TEXT OR .2.. 6| 00001EF0: 34 20 C2 C1 D3 C9 C3 20 22 0D 31 32 39 32 20 47 |4 ..... ".1292 G| 00001F00: 45 54 41 24 3A 49 46 41 24 3D 22 22 54 48 45 4E |ETA$:IFA$=""THEN| 00001F10: 31 32 39 32 0D 31 32 39 34 20 49 46 41 24 3D 22 |1292.1294 IFA$="| 00001F20: 31 22 54 48 45 4E 41 53 3D 31 3A 47 4F 54 4F 31 |1"THENAS=1:GOTO1| 00001F30: 33 30 30 0D 31 32 39 36 20 41 53 3D 30 0D 31 33 |300.1296 AS=0.13| 00001F40: 30 30 20 50 52 49 4E 54 2C 22 93 2A 2A 20 53 45 |00 PRINT,".** SE| 00001F50: 4E 44 49 4E 47 20 46 49 4C 45 20 2A 2A 22 3A 50 |NDING FILE **":P| 00001F60: 52 49 4E 54 3A 46 4F 52 58 3D 42 54 4F 44 3A 49 |RINT:FORX=BTOD:I| 00001F70: 46 50 45 45 4B 28 58 29 3D 39 35 54 48 45 4E 50 |FPEEK(X)=95THENP| 00001F80: 4F 4B 45 58 2C 31 33 0D 31 33 30 32 20 49 46 41 |OKEX,13.1302 IFA| 00001F90: 53 3D 31 54 48 45 4E 50 52 49 4E 54 23 35 2C 43 |S=1THENPRINT#5,C| 00001FA0: 48 52 24 28 54 25 28 50 45 45 4B 28 58 29 29 29 |HR$(T%(PEEK(X)))| 00001FB0: 3B 3A 47 4F 54 4F 31 33 31 30 0D 31 33 30 35 20 |;:GOTO1310.1305 | 00001FC0: 50 52 49 4E 54 23 35 2C 43 48 52 24 28 50 45 45 |PRINT#5,CHR$(PEE| 00001FD0: 4B 28 58 29 29 3B 0D 31 33 31 30 20 46 4F 52 47 |K(X));.1310 FORG| 00001FE0: 3D 31 54 4F 31 33 3A 4E 45 58 54 47 0D 31 33 32 |=1TO13:NEXTG.132| 00001FF0: 30 20 50 52 49 4E 54 43 48 52 24 28 50 45 45 4B |0 PRINTCHR$(PEEK| 00002000: 28 58 29 29 3B 3A 4E 45 58 54 58 3A 47 4F 54 4F |(X));:NEXTX:GOTO| 00002010: 32 31 32 0D 31 34 30 30 20 49 4E 50 55 54 22 D7 |212.1400 INPUT".| 00002020: 48 41 54 20 49 53 20 50 52 4F 47 52 41 4D 20 4E |HAT IS PROGRAM N| 00002030: 41 4D 45 22 3B 50 4E 24 0D 31 34 31 30 20 49 4E |AME";PN$.1410 IN| 00002040: 50 55 54 22 D7 48 41 54 20 49 53 20 4E 45 57 20 |PUT".HAT IS NEW | 00002050: 46 49 4C 45 20 4E 41 4D 45 22 3B 4E 46 24 0D 31 |FILE NAME";NF$.1| 00002060: 34 32 30 20 49 46 50 4E 24 3D 4E 46 24 54 48 45 |420 IFPN$=NF$THE| 00002070: 4E 4E 46 24 3D 4E 46 24 2B 22 46 49 4C 45 22 0D |NNF$=NF$+"FILE".| 00002080: 31 34 33 30 20 50 52 49 4E 54 22 93 11 11 11 11 |1430 PRINT".....| 00002090: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000020A0: 11 11 11 C3 4F 4E 56 45 52 54 49 4E 47 20 C2 C1 |....ONVERTING ..| 000020B0: D3 C9 C3 20 54 4F 20 53 45 51 55 45 4E 54 49 41 |... TO SEQUENTIA| 000020C0: 4C 20 46 49 4C 45 2D 11 22 0D 31 34 34 30 20 50 |L FILE-.".1440 P| 000020D0: 52 49 4E 54 22 20 20 20 12 20 22 3B 50 4E 24 3B |RINT" . ";PN$;| 000020E0: 22 20 92 20 54 4F 20 12 20 22 3B 4E 46 24 3B 22 |" . TO . ";NF$;"| 000020F0: 20 92 22 0D 31 34 35 30 20 50 52 49 4E 54 22 13 | .".1450 PRINT".| 00002100: 4C 4F 41 44 22 43 48 52 24 28 33 34 29 3B 50 4E |LOAD"CHR$(34);PN| 00002110: 24 3B 43 48 52 24 28 33 34 29 22 2C 38 2C 31 22 |$;CHR$(34)",8,1"| 00002120: 0D 31 34 36 30 20 50 4F 4B 45 36 33 37 2C 38 32 |.1460 POKE637,82| 00002130: 3A 50 4F 4B 45 36 33 38 2C 38 35 3A 50 4F 4B 45 |:POKE638,85:POKE| 00002140: 36 33 39 2C 37 38 3A 50 4F 4B 45 36 34 30 2C 31 |639,78:POKE640,1| 00002150: 33 0D 31 34 37 30 20 50 52 49 4E 54 22 43 4C 4F |3.1470 PRINT"CLO| 00002160: 53 45 38 3A 4E 45 57 22 0D 31 34 38 30 20 50 52 |SE8:NEW".1480 PR| 00002170: 49 4E 54 22 11 11 11 11 4F 50 45 4E 38 2C 38 2C |INT"....OPEN8,8,| 00002180: 38 2C 22 43 48 52 24 28 33 34 29 22 30 3A 22 3B |8,"CHR$(34)"0:";| 00002190: 4E 46 24 3B 22 2C 53 2C 57 22 43 48 52 24 28 33 |NF$;",S,W"CHR$(3| 000021A0: 34 29 22 3A 43 4D 44 38 3A 4C 49 53 54 22 0D 31 |4)":CMD8:LIST".1| 000021B0: 34 39 30 20 50 52 49 4E 54 22 50 52 49 4E 54 23 |490 PRINT"PRINT#| 000021C0: 38 3A 43 4C 4F 53 45 38 22 0D 31 34 39 32 20 50 |8:CLOSE8".1492 P| 000021D0: 52 49 4E 54 22 11 11 4E 45 57 22 0D 31 34 39 34 |RINT"..NEW".1494| 000021E0: 20 50 4F 4B 45 31 39 38 2C 38 0D 31 34 39 36 20 | POKE198,8.1496 | 000021F0: 44 41 54 41 31 39 2C 31 33 2C 31 33 2C 31 33 2C |DATA19,13,13,13,| 00002200: 31 33 2C 31 33 2C 31 33 2C 31 33 0D 31 34 39 38 |13,13,13,13.1498| 00002210: 20 46 4F 52 49 3D 31 54 4F 38 3A 52 45 41 44 57 | FORI=1TO8:READW| 00002220: 3A 50 4F 4B 45 36 33 30 2B 49 2C 57 3A 4E 45 58 |:POKE630+I,W:NEX| 00002230: 54 3A 53 54 4F 50 0D 31 35 31 30 20 50 52 49 4E |T:STOP.1510 PRIN| 00002240: 54 22 93 12 81 A2 9E 20 2A 20 C3 2D 36 34 20 D4 |T"..... * .-64 .| 00002250: D2 C1 CE D3 2D D4 C5 D2 CD 20 C6 C9 CC C5 20 C3 |....-.... .... .| 00002260: D2 C5 C1 D4 CF D2 20 31 2E 30 20 2A 20 81 A2 9E |...... 1.0 * ...| 00002270: 22 3A 44 3D 42 0D 31 35 32 30 20 50 52 49 4E 54 |":D=B.1520 PRINT| 00002280: 22 20 9D 22 3B 3A 47 45 54 41 24 3A 49 46 41 24 |" .";:GETA$:IFA$| 00002290: 3C 3E 22 22 54 48 45 4E 31 35 33 30 0D 31 35 32 |<>""THEN1530.152| 000022A0: 35 20 50 52 49 4E 54 22 AF 9D 22 3B 3A 47 4F 54 |5 PRINT"..";:GOT| 000022B0: 4F 31 35 32 30 0D 31 35 33 30 20 49 46 41 24 3D |O1520.1530 IFA$=| 000022C0: 43 48 52 24 28 33 32 29 54 48 45 4E 50 52 49 4E |CHR$(32)THENPRIN| 000022D0: 54 22 AF 9D 22 3B 3A 47 4F 54 4F 31 35 34 35 0D |T"..";:GOTO1545.| 000022E0: 31 35 33 35 20 49 46 41 24 3D 43 48 52 24 28 39 |1535 IFA$=CHR$(9| 000022F0: 32 29 54 48 45 4E 50 52 49 4E 54 22 20 22 3B 3A |2)THENPRINT" ";:| 00002300: 50 4F 4B 45 44 2C 33 32 3A 50 4F 4B 45 44 2B 31 |POKED,32:POKED+1| 00002310: 2C 39 32 3A 47 4F 54 4F 34 33 39 0D 31 35 34 30 |,92:GOTO439.1540| 00002320: 20 49 46 41 24 3D 43 48 52 24 28 32 30 29 54 48 | IFA$=CHR$(20)TH| 00002330: 45 4E 50 52 49 4E 54 22 9D AF 9D 22 3B 3A 44 3D |ENPRINT"...";:D=| 00002340: 44 2D 31 3A 41 24 3D 22 22 3A 47 4F 54 4F 31 35 |D-1:A$="":GOTO15| 00002350: 32 30 0D 31 35 34 35 20 41 3D 41 53 43 28 41 24 |20.1545 A=ASC(A$| 00002360: 29 3A 50 4F 4B 45 44 2C 41 3A 44 3D 44 2B 31 3A |):POKED,A:D=D+1:| 00002370: 50 52 49 4E 54 41 24 3B 0D 31 35 35 35 20 49 46 |PRINTA$;.1555 IF| 00002380: 41 53 43 28 41 24 29 3D 33 34 54 48 45 4E 50 4F |ASC(A$)=34THENPO| 00002390: 4B 45 32 31 32 2C 30 0D 31 35 36 30 20 47 4F 54 |KE212,0.1560 GOT| 000023A0: 4F 31 35 32 30 0D 31 36 30 30 20 50 52 49 4E 54 |O1520.1600 PRINT| 000023B0: 22 91 20 C9 53 20 D4 D2 C1 CE D3 D4 C5 D2 CD 20 |". .S ......... | 000023C0: 44 49 53 4B 20 49 4E 20 44 52 49 56 45 20 3F 22 |DISK IN DRIVE ?"| 000023D0: 0D 31 36 30 32 20 47 45 54 41 24 3A 49 46 41 24 |.1602 GETA$:IFA$| 000023E0: 3C 3E 22 59 22 54 48 45 4E 31 36 30 32 0D 31 36 |<>"Y"THEN1602.16| 000023F0: 31 30 20 50 52 49 4E 54 22 93 95 4E 45 57 22 3A |10 PRINT"..NEW":| 00002400: 50 52 49 4E 54 22 11 11 4C CF 22 43 48 52 24 28 |PRINT"..L."CHR$(| 00002410: 33 34 29 22 21 42 41 53 43 4F 4E 22 43 48 52 24 |34)"!BASCON"CHR$| 00002420: 28 33 34 29 22 2C 38 22 3A 50 52 49 4E 54 22 11 |(34)",8":PRINT".| 00002430: 11 11 11 52 55 4E 22 0D 31 36 32 30 20 50 4F 4B |...RUN".1620 POK| 00002440: 45 31 39 38 2C 35 0D 31 36 34 30 20 46 4F 52 49 |E198,5.1640 FORI| 00002450: 3D 31 54 4F 35 3A 52 45 41 44 57 3A 50 4F 4B 45 |=1TO5:READW:POKE| 00002460: 36 33 30 2B 49 2C 57 3A 4E 45 58 54 3A 4E 45 57 |630+I,W:NEXT:NEW| 00002470: 0D 31 36 35 30 20 50 52 49 4E 54 22 93 11 22 3B |.1650 PRINT"..";| 00002480: 54 41 42 28 39 29 22 C1 55 54 4F 2D C4 49 41 4C |TAB(9)".UTO-.IAL| 00002490: 20 CD 45 4E 55 22 3A 50 52 49 4E 54 22 11 11 50 | .ENU":PRINT"..P| 000024A0: 52 45 53 53 3A 20 22 3A 50 52 49 4E 54 54 41 42 |RESS: ":PRINTTAB| 000024B0: 28 36 29 22 31 20 2D 20 C4 49 41 4C 20 41 20 C2 |(6)"1 - .IAL A .| 000024C0: C2 D3 22 0D 31 36 35 32 20 50 52 49 4E 54 54 41 |..".1652 PRINTTA| 000024D0: 42 28 36 29 22 11 32 20 2D 20 C3 52 45 41 54 45 |B(6)".2 - .REATE| 000024E0: 20 23 27 53 20 C6 49 4C 45 22 3B 22 11 22 3A 50 | #'S .ILE";".":P| 000024F0: 52 49 4E 54 54 41 42 28 36 29 22 33 20 2D 20 D2 |RINTTAB(6)"3 - .| 00002500: 45 54 55 52 4E 20 54 4F 20 CD 41 49 4E 20 CD 45 |ETURN TO .AIN .E| 00002510: 4E 55 22 0D 31 36 35 35 20 47 45 54 20 4B 45 24 |NU".1655 GET KE$| 00002520: 0D 31 36 35 37 20 49 46 20 4B 45 24 3D 22 22 54 |.1657 IF KE$=""T| 00002530: 48 45 4E 31 36 35 35 0D 31 36 35 39 20 4F 4E 20 |HEN1655.1659 ON | 00002540: 56 41 4C 28 4B 45 24 29 47 4F 54 4F 31 37 30 30 |VAL(KE$)GOTO1700| 00002550: 2C 33 33 37 30 2C 34 33 39 0D 31 36 36 30 20 47 |,3370,439.1660 G| 00002560: 4F 54 4F 31 36 35 35 0D 31 37 30 30 20 52 55 3D |OTO1655.1700 RU=| 00002570: 30 3A 4E 46 24 3D 22 20 22 0D 31 37 31 30 20 47 |0:NF$=" ".1710 G| 00002580: 4F 53 55 42 32 36 38 30 0D 31 37 32 30 20 44 44 |OSUB2680.1720 DD| 00002590: 3D 31 0D 31 37 33 30 20 49 46 48 48 3D 30 47 4F |=1.1730 IFHH=0GO| 000025A0: 54 4F 34 33 39 0D 31 37 34 30 20 42 31 3D 35 36 |TO439.1740 B1=56| 000025B0: 35 37 37 0D 31 37 35 30 20 42 32 3D 35 36 35 37 |577.1750 B2=5657| 000025C0: 39 0D 31 37 36 30 20 58 31 3D 30 0D 31 37 37 30 |9.1760 X1=0.1770| 000025D0: 20 49 46 52 55 3C 3E 31 47 4F 54 4F 31 38 32 30 | IFRU<>1GOTO1820| 000025E0: 0D 31 37 38 30 20 44 24 3D 5A 5A 24 28 44 44 29 |.1780 D$=ZZ$(DD)| 000025F0: 0D 31 37 39 30 20 49 46 44 24 3D 22 40 22 54 48 |.1790 IFD$="@"TH| 00002600: 45 4E 44 44 3D 44 44 2B 31 3A 44 24 3D 5A 5A 24 |ENDD=DD+1:D$=ZZ$| 00002610: 28 44 44 29 3A 49 46 5A 5A 24 28 44 44 29 3D 22 |(DD):IFZZ$(DD)="| 00002620: 40 22 47 4F 54 4F 31 37 38 30 0D 31 38 30 30 20 |@"GOTO1780.1800 | 00002630: 44 44 3D 44 44 2B 31 0D 31 38 31 30 20 49 46 44 |DD=DD+1.1810 IFD| 00002640: 44 3E 5A 5A 54 48 45 4E 44 44 3D 31 3A 47 4F 54 |D>ZZTHENDD=1:GOT| 00002650: 4F 31 37 38 30 0D 31 38 32 30 20 50 4F 4B 45 42 |O1780.1820 POKEB| 00002660: 32 2C 33 32 0D 31 38 33 30 20 46 4F 52 58 3D 31 |2,32.1830 FORX=1| 00002670: 54 4F 31 30 30 30 0D 31 38 34 30 20 4E 45 58 54 |TO1000.1840 NEXT| 00002680: 58 0D 31 38 35 30 20 50 52 49 4E 54 22 93 11 22 |X.1850 PRINT".."| 00002690: 3B 22 C5 4E 53 55 52 45 20 CD 4F 44 45 4D 20 28 |;".NSURE .ODEM (| 000026A0: C4 2D D4 20 D3 57 49 54 43 48 29 20 D3 45 54 20 |.-. .WITCH) .ET | 000026B0: 54 4F 20 3C C4 3E 22 3A 46 4F 52 20 44 45 3D 31 |TO <.>":FOR DE=1| 000026C0: 20 54 4F 20 31 35 30 30 3A 4E 45 58 54 0D 31 38 | TO 1500:NEXT.18| 000026D0: 36 30 20 50 52 49 4E 54 0D 31 38 37 30 20 50 52 |60 PRINT.1870 PR| 000026E0: 49 4E 54 0D 31 38 38 30 20 50 52 49 4E 54 22 44 |INT.1880 PRINT"D| 000026F0: 49 41 4C 49 4E 47 21 22 0D 31 38 39 30 20 50 52 |IALING!".1890 PR| 00002700: 49 4E 54 22 11 11 11 11 11 11 11 11 11 11 11 11 |INT"............| 00002710: 11 11 D4 4F 20 D3 54 4F 50 20 C4 49 41 4C 49 4E |...O .TOP .IALIN| 00002720: 47 20 D0 52 45 53 53 20 C1 4E 59 20 CB 45 59 20 |G .RESS .NY .EY | 00002730: C1 4E 44 20 D7 41 49 54 91 91 91 91 91 91 91 91 |.ND .AIT........| 00002740: 91 91 91 91 91 91 91 22 0D 31 39 30 30 20 54 3D |.......".1900 T=| 00002750: 31 30 30 0D 31 39 31 30 20 54 3D 54 2D 31 0D 31 |100.1910 T=T-1.1| 00002760: 39 32 30 20 49 46 54 3C 3E 30 47 4F 54 4F 31 39 |920 IFT<>0GOTO19| 00002770: 31 30 0D 31 39 33 30 20 44 3D 4C 45 4E 28 44 24 |10.1930 D=LEN(D$| 00002780: 29 0D 31 39 34 30 20 46 4F 52 58 3D 31 54 4F 44 |).1940 FORX=1TOD| 00002790: 0D 31 39 35 30 20 4E 24 3D 4D 49 44 24 28 44 24 |.1950 N$=MID$(D$| 000027A0: 2C 58 2C 31 29 0D 31 39 36 30 20 49 49 3D 30 0D |,X,1).1960 II=0.| 000027B0: 31 39 37 30 20 49 46 4E 24 3C 43 48 52 24 28 34 |1970 IFN$<CHR$(4| 000027C0: 38 29 4F 52 4E 24 3E 43 48 52 24 28 35 37 29 54 |8)ORN$>CHR$(57)T| 000027D0: 48 45 4E 49 49 3D 31 0D 31 39 38 30 20 49 46 4E |HENII=1.1980 IFN| 000027E0: 24 3D 22 25 22 54 48 45 4E 47 4F 53 55 42 33 35 |$="%"THENGOSUB35| 000027F0: 38 30 0D 31 39 39 30 20 50 52 49 4E 54 4E 24 3B |80.1990 PRINTN$;| 00002800: 0D 32 30 30 30 20 49 46 49 49 3D 31 47 4F 54 4F |.2000 IFII=1GOTO| 00002810: 32 30 34 30 0D 32 30 31 30 20 4E 3D 56 41 4C 28 |2040.2010 N=VAL(| 00002820: 4E 24 29 0D 32 30 32 30 20 49 46 4E 3D 30 54 48 |N$).2020 IFN=0TH| 00002830: 45 4E 4E 3D 31 30 0D 32 30 33 30 20 47 4F 53 55 |ENN=10.2030 GOSU| 00002840: 42 32 33 32 30 0D 32 30 34 30 20 4E 45 58 54 58 |B2320.2040 NEXTX| 00002850: 0D 32 30 35 30 20 50 52 49 4E 54 0D 32 30 36 30 |.2050 PRINT.2060| 00002860: 20 50 52 49 4E 54 22 C4 49 41 4C 20 C3 4F 4D 50 | PRINT".IAL .OMP| 00002870: 4C 45 54 45 22 0D 32 30 37 30 20 46 4F 52 58 3D |LETE".2070 FORX=| 00002880: 31 54 4F 34 30 30 0D 32 30 38 30 20 49 46 50 45 |1TO400.2080 IFPE| 00002890: 45 4B 28 42 31 29 3D 34 37 54 48 45 4E 47 4F 54 |EK(B1)=47THENGOT| 000028A0: 4F 31 30 30 0D 32 30 39 30 20 49 46 50 45 45 4B |O100.2090 IFPEEK| 000028B0: 28 42 31 29 3C 3E 31 32 37 54 48 45 4E 58 3D 33 |(B1)<>127THENX=3| 000028C0: 30 30 31 3A 58 31 3D 31 0D 32 31 30 30 20 47 45 |001:X1=1.2100 GE| 000028D0: 54 46 46 24 0D 32 31 31 30 20 49 46 46 46 24 3C |TFF$.2110 IFFF$<| 000028E0: 3E 22 22 47 4F 54 4F 34 33 39 0D 32 31 32 30 20 |>""GOTO439.2120 | 000028F0: 4E 45 58 54 58 0D 32 31 33 30 20 49 46 58 31 3C |NEXTX.2130 IFX1<| 00002900: 3E 31 54 48 45 4E 31 37 34 30 0D 32 31 34 30 20 |>1THEN1740.2140 | 00002910: 49 46 52 55 3C 3E 31 47 4F 54 4F 32 34 36 30 0D |IFRU<>1GOTO2460.| 00002920: 32 31 35 30 20 4F 50 45 4E 32 35 2C 38 2C 33 2C |2150 OPEN25,8,3,| 00002930: 22 30 3A 43 48 45 43 4B 45 52 22 0D 32 31 36 30 |"0:CHECKER".2160| 00002940: 20 49 4E 50 55 54 23 32 35 2C 59 59 24 0D 32 31 | INPUT#25,YY$.21| 00002950: 37 30 20 49 46 59 59 24 3D 22 4E 4F 22 54 48 45 |70 IFYY$="NO"THE| 00002960: 4E 43 4C 4F 53 45 32 35 3A 47 4F 54 4F 32 32 34 |NCLOSE25:GOTO224| 00002970: 30 0D 32 31 38 30 20 59 59 3D 31 0D 32 31 39 30 |0.2180 YY=1.2190| 00002980: 20 59 59 24 28 59 59 29 3D 59 59 24 0D 32 32 30 | YY$(YY)=YY$.220| 00002990: 30 20 59 59 3D 59 59 2B 31 0D 32 32 31 30 20 49 |0 YY=YY+1.2210 I| 000029A0: 4E 50 55 54 23 32 35 2C 59 59 24 28 59 59 29 0D |NPUT#25,YY$(YY).| 000029B0: 32 32 32 30 20 49 46 59 59 24 28 59 59 29 3D 22 |2220 IFYY$(YY)="| 000029C0: 40 22 54 48 45 4E 59 59 3D 59 59 2D 31 3A 43 4C |@"THENYY=YY-1:CL| 000029D0: 4F 53 45 32 35 3A 47 4F 54 4F 32 32 34 30 0D 32 |OSE25:GOTO2240.2| 000029E0: 32 33 30 20 47 4F 54 4F 32 32 30 30 0D 32 32 34 |230 GOTO2200.224| 000029F0: 30 20 4F 50 45 4E 32 35 2C 38 2C 33 2C 22 40 30 |0 OPEN25,8,3,"@0| 00002A00: 3A 43 48 45 43 4B 45 52 2C 55 2C 57 22 0D 32 32 |:CHECKER,U,W".22| 00002A10: 35 30 20 50 52 49 4E 54 23 32 35 2C 44 24 0D 32 |50 PRINT#25,D$.2| 00002A20: 32 36 30 20 46 4F 52 58 3D 31 54 4F 59 59 0D 32 |260 FORX=1TOYY.2| 00002A30: 32 37 30 20 50 52 49 4E 54 23 32 35 2C 59 59 24 |270 PRINT#25,YY$| 00002A40: 28 58 29 0D 32 32 38 30 20 4E 45 58 54 58 0D 32 |(X).2280 NEXTX.2| 00002A50: 32 39 30 20 50 52 49 4E 54 23 32 35 2C 22 40 22 |290 PRINT#25,"@"| 00002A60: 0D 32 33 30 30 20 43 4C 4F 53 45 32 35 0D 32 33 |.2300 CLOSE25.23| 00002A70: 31 30 20 47 4F 54 4F 32 34 36 30 0D 32 33 32 30 |10 GOTO2460.2320| 00002A80: 20 46 4F 52 4E 31 3D 31 54 4F 4E 0D 32 33 33 30 | FORN1=1TON.2330| 00002A90: 20 50 4F 4B 45 42 31 2C 30 0D 32 33 34 30 20 54 | POKEB1,0.2340 T| 00002AA0: 3D 32 0D 32 33 35 30 20 54 3D 54 2D 31 0D 32 33 |=2.2350 T=T-1.23| 00002AB0: 36 30 20 49 46 54 3C 3E 30 54 48 45 4E 32 33 35 |60 IFT<>0THEN235| 00002AC0: 30 0D 32 33 37 30 20 50 4F 4B 45 42 31 2C 33 32 |0.2370 POKEB1,32| 00002AD0: 0D 32 33 38 30 20 54 3D 32 0D 32 33 39 30 20 54 |.2380 T=2.2390 T| 00002AE0: 3D 54 2D 31 0D 32 34 30 30 20 49 46 54 3C 3E 30 |=T-1.2400 IFT<>0| 00002AF0: 54 48 45 4E 32 33 39 30 0D 32 34 31 30 20 4E 45 |THEN2390.2410 NE| 00002B00: 58 54 4E 31 0D 32 34 32 30 20 54 3D 31 30 0D 32 |XTN1.2420 T=10.2| 00002B10: 34 33 30 20 54 3D 54 2D 31 0D 32 34 34 30 20 49 |430 T=T-1.2440 I| 00002B20: 46 54 3C 3E 30 54 48 45 4E 32 34 33 30 0D 32 34 |FT<>0THEN2430.24| 00002B30: 35 30 20 52 45 54 55 52 4E 3A 47 4F 54 4F 34 33 |50 RETURN:GOTO43| 00002B40: 39 0D 32 34 36 30 20 53 3D 35 34 32 37 32 0D 32 |9.2460 S=54272.2| 00002B50: 34 37 30 20 46 4F 52 4C 3D 30 54 4F 32 34 0D 32 |470 FORL=0TO24.2| 00002B60: 34 38 30 20 50 4F 4B 45 53 2B 4C 2C 30 0D 32 34 |480 POKES+L,0.24| 00002B70: 39 30 20 4E 45 58 54 0D 32 35 30 30 20 50 4F 4B |90 NEXT.2500 POK| 00002B80: 45 53 2B 31 2C 31 30 30 0D 32 35 31 30 20 50 4F |ES+1,100.2510 PO| 00002B90: 4B 45 53 2B 35 2C 31 30 0D 32 35 32 30 20 50 4F |KES+5,10.2520 PO| 00002BA0: 4B 45 53 2B 31 35 2C 32 35 35 0D 32 35 33 30 20 |KES+15,255.2530 | 00002BB0: 50 4F 4B 45 53 2B 32 34 2C 31 35 0D 32 35 34 30 |POKES+24,15.2540| 00002BC0: 20 50 4F 4B 45 53 2B 34 2C 32 31 0D 32 35 35 30 | POKES+4,21.2550| 00002BD0: 20 47 45 54 43 48 24 0D 32 35 36 30 20 49 46 43 | GETCH$.2560 IFC| 00002BE0: 48 24 3D 22 22 47 4F 54 4F 32 36 32 30 0D 32 35 |H$=""GOTO2620.25| 00002BF0: 37 30 20 46 4F 52 4C 3D 53 54 4F 53 2B 32 34 0D |70 FORL=STOS+24.| 00002C00: 32 35 38 30 20 50 4F 4B 45 4C 2C 30 0D 32 35 39 |2580 POKEL,0.259| 00002C10: 30 20 4E 45 58 54 4C 0D 32 36 30 30 20 50 52 49 |0 NEXTL.2600 PRI| 00002C20: 4E 54 22 93 22 3B 0D 32 36 31 30 20 47 4F 54 4F |NT".";.2610 GOTO| 00002C30: 34 33 39 0D 32 36 32 30 20 46 4F 52 54 3D 31 54 |439.2620 FORT=1T| 00002C40: 4F 31 30 30 30 0D 32 36 33 30 20 4E 45 58 54 0D |O1000.2630 NEXT.| 00002C50: 32 36 34 30 20 50 4F 4B 45 53 2B 34 2C 32 30 0D |2640 POKES+4,20.| 00002C60: 32 36 35 30 20 46 4F 52 54 3D 31 54 4F 31 30 30 |2650 FORT=1TO100| 00002C70: 30 0D 32 36 36 30 20 4E 45 58 54 0D 32 36 37 30 |0.2660 NEXT.2670| 00002C80: 20 47 4F 54 4F 32 35 34 30 0D 32 36 38 30 20 50 | GOTO2540.2680 P| 00002C90: 52 49 4E 54 22 93 22 3B 54 41 42 28 31 31 29 22 |RINT".";TAB(11)"| 00002CA0: C1 55 54 4F 2D C4 49 41 4C 22 4A 24 0D 32 36 39 |.UTO-.IAL"J$.269| 00002CB0: 30 20 50 52 49 4E 54 4A 24 22 CE 55 4D 42 45 52 |0 PRINTJ$".UMBER| 00002CC0: 20 C6 52 4F 4D 3A 22 3A 50 52 49 4E 54 4A 24 54 | .ROM:":PRINTJ$T| 00002CD0: 41 42 28 31 30 29 22 28 CB 29 45 59 42 4F 41 52 |AB(10)"(.)EYBOAR| 00002CE0: 44 22 3A 50 52 49 4E 54 4A 24 54 41 42 28 31 30 |D":PRINTJ$TAB(10| 00002CF0: 29 22 28 C4 29 49 53 4B 22 0D 32 37 30 30 20 50 |)"(.)ISK".2700 P| 00002D00: 52 49 4E 54 4A 24 54 41 42 28 31 30 29 22 28 D0 |RINTJ$TAB(10)"(.| 00002D10: 29 52 45 56 49 4F 55 53 4C 59 20 CC 4F 41 44 45 |)REVIOUSLY .OADE| 00002D20: 44 20 C6 49 4C 45 22 0D 32 37 31 30 20 47 45 54 |D .ILE".2710 GET| 00002D30: 4B 4B 24 0D 32 37 32 30 20 49 46 4B 4B 24 3D 22 |KK$.2720 IFKK$="| 00002D40: 22 47 4F 54 4F 32 37 31 30 0D 32 37 33 30 20 49 |"GOTO2710.2730 I| 00002D50: 46 4B 4B 24 3D 22 4B 22 54 48 45 4E 47 4F 53 55 |FKK$="K"THENGOSU| 00002D60: 42 33 33 31 30 3A 52 45 54 55 52 4E 0D 32 37 34 |B3310:RETURN.274| 00002D70: 30 20 49 46 4B 4B 24 3D 22 44 22 54 48 45 4E 47 |0 IFKK$="D"THENG| 00002D80: 4F 54 4F 32 38 31 30 0D 32 37 35 30 20 49 46 4B |OTO2810.2750 IFK| 00002D90: 4B 24 3D 22 50 22 54 48 45 4E 47 4F 54 4F 32 37 |K$="P"THENGOTO27| 00002DA0: 37 30 0D 32 37 36 30 20 49 46 4B 4B 24 3C 3E 22 |70.2760 IFKK$<>"| 00002DB0: 44 22 54 48 45 4E 47 4F 54 4F 32 36 38 30 0D 32 |D"THENGOTO2680.2| 00002DC0: 37 37 30 20 50 52 49 4E 54 22 93 22 0D 32 37 38 |770 PRINT".".278| 00002DD0: 30 20 49 46 20 5A 5A 3E 31 54 48 45 4E 20 47 4F |0 IF ZZ>1THEN GO| 00002DE0: 54 4F 32 38 30 30 0D 32 37 39 30 20 50 52 49 4E |TO2800.2790 PRIN| 00002DF0: 54 22 20 20 D3 4F 52 52 59 20 CE 4F 20 C6 49 4C |T" .ORRY .O .IL| 00002E00: 45 20 CC 4F 41 44 45 44 22 3A 46 4F 52 20 44 45 |E .OADED":FOR DE| 00002E10: 4C 41 59 3D 31 54 4F 31 30 30 30 3A 4E 45 58 54 |LAY=1TO1000:NEXT| 00002E20: 44 45 4C 41 59 3A 47 4F 54 4F 32 36 38 30 0D 32 |DELAY:GOTO2680.2| 00002E30: 38 30 30 20 47 4F 54 4F 33 30 39 30 20 0D 32 38 |800 GOTO3090 .28| 00002E40: 31 30 20 50 52 49 4E 54 22 93 22 3A 5A 5A 3D 31 |10 PRINT".":ZZ=1| 00002E50: 0D 32 38 32 30 20 49 4E 50 55 54 22 C6 49 4C 45 |.2820 INPUT".ILE| 00002E60: 20 CE 41 4D 45 20 22 3B 4E 46 24 0D 32 38 33 30 | .AME ";NF$.2830| 00002E70: 20 49 46 20 4E 46 24 3D 22 20 22 54 48 45 4E 20 | IF NF$=" "THEN | 00002E80: 4E 46 24 3D 22 50 48 4F 4E 45 20 4C 4F 47 22 0D |NF$="PHONE LOG".| 00002E90: 32 38 34 30 20 50 52 49 4E 54 22 11 C3 4C 45 41 |2840 PRINT"..LEA| 00002EA0: 52 20 D5 53 45 44 20 23 27 53 20 C6 49 4C 45 20 |R .SED #'S .ILE | 00002EB0: 28 D9 20 4F 52 20 CE 29 22 0D 32 38 35 30 20 47 |(. OR .)".2850 G| 00002EC0: 45 54 59 4E 24 0D 32 38 36 30 20 49 46 59 4E 24 |ETYN$.2860 IFYN$| 00002ED0: 3D 22 22 47 4F 54 4F 32 38 35 30 0D 32 38 37 30 |=""GOTO2850.2870| 00002EE0: 20 49 46 59 4E 24 3D 22 4E 22 47 4F 54 4F 32 39 | IFYN$="N"GOTO29| 00002EF0: 30 30 0D 32 38 38 30 20 49 46 59 4E 24 3D 22 59 |00.2880 IFYN$="Y| 00002F00: 22 54 48 45 4E 4F 50 45 4E 32 35 2C 38 2C 33 2C |"THENOPEN25,8,3,| 00002F10: 22 40 30 3A 43 48 45 43 4B 45 52 2C 55 2C 57 22 |"@0:CHECKER,U,W"| 00002F20: 3A 50 52 49 4E 54 23 32 35 2C 22 4E 4F 22 3A 43 |:PRINT#25,"NO":C| 00002F30: 4C 4F 53 45 32 35 3A 47 4F 54 4F 32 39 30 30 0D |LOSE25:GOTO2900.| 00002F40: 32 38 39 30 20 49 46 59 4E 24 3C 3E 22 59 22 54 |2890 IFYN$<>"Y"T| 00002F50: 48 45 4E 47 4F 54 4F 32 38 35 30 0D 32 39 30 30 |HENGOTO2850.2900| 00002F60: 20 50 52 49 4E 54 22 93 22 0D 32 39 31 30 20 4F | PRINT".".2910 O| 00002F70: 50 45 4E 32 35 2C 38 2C 33 2C 22 30 3A 43 48 45 |PEN25,8,3,"0:CHE| 00002F80: 43 4B 45 52 22 0D 32 39 32 30 20 49 4E 50 55 54 |CKER".2920 INPUT| 00002F90: 23 32 35 2C 59 59 24 0D 32 39 33 30 20 49 46 59 |#25,YY$.2930 IFY| 00002FA0: 59 24 3D 22 4E 4F 22 54 48 45 4E 43 4C 4F 53 45 |Y$="NO"THENCLOSE| 00002FB0: 32 35 3A 50 50 3D 31 0D 32 39 34 30 20 43 4C 4F |25:PP=1.2940 CLO| 00002FC0: 53 45 32 35 0D 32 39 35 30 20 43 4C 4F 53 45 31 |SE25.2950 CLOSE1| 00002FD0: 35 0D 32 39 36 30 20 4F 50 45 4E 31 35 2C 38 2C |5.2960 OPEN15,8,| 00002FE0: 33 2C 22 22 2B 4E 46 24 0D 32 39 37 30 20 49 4E |3,""+NF$.2970 IN| 00002FF0: 50 55 54 23 31 35 2C 5A 5A 24 28 5A 5A 29 0D 32 |PUT#15,ZZ$(ZZ).2| 00003000: 39 38 30 20 49 46 5A 5A 24 28 5A 5A 29 3D 22 22 |980 IFZZ$(ZZ)=""| 00003010: 54 48 45 4E 43 4C 4F 53 45 31 35 3A 47 4F 54 4F |THENCLOSE15:GOTO| 00003020: 32 38 32 30 0D 32 39 39 30 20 49 46 5A 5A 24 28 |2820.2990 IFZZ$(| 00003030: 5A 5A 29 3D 22 40 22 54 48 45 4E 43 4C 4F 53 45 |ZZ)="@"THENCLOSE| 00003040: 31 35 3A 47 4F 54 4F 33 30 32 30 0D 33 30 30 30 |15:GOTO3020.3000| 00003050: 20 5A 5A 3D 5A 5A 2B 31 0D 33 30 31 30 20 47 4F | ZZ=ZZ+1.3010 GO| 00003060: 54 4F 32 39 37 30 0D 33 30 32 30 20 49 46 50 50 |TO2970.3020 IFPP| 00003070: 3D 31 47 4F 54 4F 33 30 39 30 0D 33 30 33 30 20 |=1GOTO3090.3030 | 00003080: 4F 50 45 4E 32 35 2C 38 2C 33 2C 22 30 3A 43 48 |OPEN25,8,3,"0:CH| 00003090: 45 43 4B 45 52 22 0D 33 30 34 30 20 59 59 3D 31 |ECKER".3040 YY=1| 000030A0: 0D 33 30 35 30 20 49 4E 50 55 54 23 32 35 2C 59 |.3050 INPUT#25,Y| 000030B0: 59 24 28 59 59 29 0D 33 30 36 30 20 49 46 59 59 |Y$(YY).3060 IFYY| 000030C0: 24 28 59 59 29 3D 22 40 22 54 48 45 4E 43 4C 4F |$(YY)="@"THENCLO| 000030D0: 53 45 32 35 3A 59 59 3D 59 59 2D 31 3A 47 4F 54 |SE25:YY=YY-1:GOT| 000030E0: 4F 33 30 39 30 0D 33 30 37 30 20 59 59 3D 59 59 |O3090.3070 YY=YY| 000030F0: 2B 31 0D 33 30 38 30 20 47 4F 54 4F 33 30 35 30 |+1.3080 GOTO3050| 00003100: 0D 33 30 39 30 20 46 4F 52 58 3D 31 54 4F 5A 5A |.3090 FORX=1TOZZ| 00003110: 2D 31 0D 33 31 30 30 20 50 52 49 4E 54 4A 24 58 |-1.3100 PRINTJ$X| 00003120: 3B 22 20 22 3B 5A 5A 24 28 58 29 0D 33 31 31 30 |;" ";ZZ$(X).3110| 00003130: 20 4E 45 58 54 58 0D 33 31 32 30 20 50 52 49 4E | NEXTX.3120 PRIN| 00003140: 54 0D 33 31 33 30 20 50 52 49 4E 54 0D 33 31 34 |T.3130 PRINT.314| 00003150: 30 20 49 4E 50 55 54 22 D0 49 43 4B 20 C1 20 CE |0 INPUT".ICK . .| 00003160: 55 4D 42 45 52 20 28 C1 20 46 4F 52 20 C1 4C 4C |UMBER (. FOR .LL| 00003170: 29 22 3B 44 44 24 0D 33 31 35 30 20 49 46 44 44 |)";DD$.3150 IFDD| 00003180: 24 3D 22 22 47 4F 54 4F 34 33 39 0D 33 31 36 30 |$=""GOTO439.3160| 00003190: 20 49 46 44 44 24 3D 22 41 22 54 48 45 4E 52 55 | IFDD$="A"THENRU| 000031A0: 3D 31 3A 47 4F 53 55 42 33 32 31 30 3A 52 45 54 |=1:GOSUB3210:RET| 000031B0: 55 52 4E 0D 33 31 37 30 20 49 46 56 41 4C 28 44 |URN.3170 IFVAL(D| 000031C0: 44 24 29 3D 30 4F 52 56 41 4C 28 44 44 24 29 3E |D$)=0ORVAL(DD$)>| 000031D0: 5A 5A 2D 31 47 4F 54 4F 33 31 34 30 0D 33 31 38 |ZZ-1GOTO3140.318| 000031E0: 30 20 48 48 3D 31 0D 33 31 39 30 20 44 24 3D 5A |0 HH=1.3190 D$=Z| 000031F0: 5A 24 28 56 41 4C 28 44 44 24 29 29 0D 33 32 30 |Z$(VAL(DD$)).320| 00003200: 30 20 52 45 54 55 52 4E 0D 33 32 31 30 20 48 48 |0 RETURN.3210 HH| 00003210: 3D 30 0D 33 32 32 30 20 46 4F 52 55 55 3D 31 54 |=0.3220 FORUU=1T| 00003220: 4F 59 59 0D 33 32 33 30 20 46 4F 52 49 49 3D 31 |OYY.3230 FORII=1| 00003230: 54 4F 5A 5A 0D 33 32 34 30 20 49 46 5A 5A 24 28 |TOZZ.3240 IFZZ$(| 00003240: 49 49 29 3D 59 59 24 28 55 55 29 54 48 45 4E 5A |II)=YY$(UU)THENZ| 00003250: 5A 24 28 49 49 29 3D 22 40 22 0D 33 32 35 30 20 |Z$(II)="@".3250 | 00003260: 4E 45 58 54 49 49 0D 33 32 36 30 20 4E 45 58 54 |NEXTII.3260 NEXT| 00003270: 55 55 0D 33 32 37 30 20 46 4F 52 49 49 3D 31 54 |UU.3270 FORII=1T| 00003280: 4F 5A 5A 0D 33 32 38 30 20 49 46 5A 5A 24 28 49 |OZZ.3280 IFZZ$(I| 00003290: 49 29 3C 3E 22 40 22 54 48 45 4E 49 49 3D 5A 5A |I)<>"@"THENII=ZZ| 000032A0: 2B 31 3A 48 48 3D 31 0D 33 32 39 30 20 4E 45 58 |+1:HH=1.3290 NEX| 000032B0: 54 49 49 0D 33 33 30 30 20 52 45 54 55 52 4E 0D |TII.3300 RETURN.| 000032C0: 33 33 31 30 20 50 52 49 4E 54 22 93 22 0D 33 33 |3310 PRINT".".33| 000032D0: 32 30 20 49 4E 50 55 54 22 CE 55 4D 42 45 52 20 |20 INPUT".UMBER | 000032E0: 54 4F 20 C4 49 41 4C 22 3B 4F 4F 24 0D 33 33 33 |TO .IAL";OO$.333| 000032F0: 30 20 49 46 4C 45 4E 28 4F 4F 24 29 3C 37 47 4F |0 IFLEN(OO$)<7GO| 00003300: 54 4F 33 33 31 30 0D 33 33 34 30 20 44 24 3D 4F |TO3310.3340 D$=O| 00003310: 4F 24 0D 33 33 35 30 20 48 48 3D 31 0D 33 33 36 |O$.3350 HH=1.336| 00003320: 30 20 52 45 54 55 52 4E 0D 33 33 37 30 20 49 46 |0 RETURN.3370 IF| 00003330: 20 44 49 3C 31 54 48 45 4E 20 44 49 4D 42 42 24 | DI<1THEN DIMBB$| 00003340: 28 33 30 29 0D 33 33 38 30 20 44 49 3D 31 3A 50 |(30).3380 DI=1:P| 00003350: 52 49 4E 54 22 93 22 0D 33 33 39 30 20 46 4F 52 |RINT".".3390 FOR| 00003360: 42 42 3D 31 54 4F 33 30 0D 33 34 30 30 20 42 42 |BB=1TO30.3400 BB| 00003370: 24 28 42 42 29 3D 22 20 22 0D 33 34 31 30 20 4E |$(BB)=" ".3410 N| 00003380: 45 58 54 42 42 0D 33 34 32 30 20 4E 46 24 3D 22 |EXTBB.3420 NF$="| 00003390: 20 22 3A 50 52 49 4E 54 54 41 42 28 37 29 22 C3 | ":PRINTTAB(7)".| 000033A0: 52 45 41 54 45 20 D0 48 4F 4E 45 20 CE 55 4D 42 |REATE .HONE .UMB| 000033B0: 45 52 20 CC 4F 47 22 4A 24 4A 24 0D 33 34 33 30 |ER .OG"J$J$.3430| 000033C0: 20 49 4E 50 55 54 22 46 49 4C 45 20 4E 41 4D 45 | INPUT"FILE NAME| 000033D0: 3A 20 22 3B 4E 46 24 0D 33 34 34 30 20 49 46 4E |: ";NF$.3440 IFN| 000033E0: 46 24 3D 22 20 22 54 48 45 4E 20 4E 46 24 3D 22 |F$=" "THEN NF$="| 000033F0: 50 48 4F 4E 45 20 4C 4F 47 22 0D 33 34 35 30 20 |PHONE LOG".3450 | 00003400: 42 42 3D 31 0D 33 34 36 30 20 50 52 49 4E 54 4A |BB=1.3460 PRINTJ| 00003410: 24 22 CE 55 4D 42 45 52 20 54 4F 20 C4 49 41 4C |$".UMBER TO .IAL| 00003420: 20 28 D2 54 4E 20 54 4F 20 D7 52 49 54 45 20 C6 | (.TN TO .RITE .| 00003430: 49 4C 45 29 22 3A 50 52 49 4E 54 4A 24 22 20 20 |ILE)":PRINTJ$" | 00003440: CE 41 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 |.AME | 00003450: 20 20 20 D0 48 4F 4E 45 23 22 0D 33 34 37 30 20 | .HONE#".3470 | 00003460: 50 52 49 4E 54 4A 24 3A 49 4E 50 55 54 42 42 24 |PRINTJ$:INPUTBB$| 00003470: 28 42 42 29 0D 33 34 38 30 20 49 46 42 42 24 28 |(BB).3480 IFBB$(| 00003480: 42 42 29 3D 22 20 22 54 48 45 4E 33 35 31 30 0D |BB)=" "THEN3510.| 00003490: 33 34 39 30 20 42 42 3D 42 42 2B 31 0D 33 35 30 |3490 BB=BB+1.350| 000034A0: 30 20 47 4F 54 4F 33 34 37 30 0D 33 35 31 30 20 |0 GOTO3470.3510 | 000034B0: 4F 50 45 4E 34 30 2C 38 2C 33 2C 22 40 30 3A 22 |OPEN40,8,3,"@0:"| 000034C0: 2B 4E 46 24 2B 22 2C 53 2C 57 22 0D 33 35 32 30 |+NF$+",S,W".3520| 000034D0: 20 46 4F 52 56 56 3D 31 54 4F 42 42 2D 31 0D 33 | FORVV=1TOBB-1.3| 000034E0: 35 33 30 20 50 52 49 4E 54 23 34 30 2C 42 42 24 |530 PRINT#40,BB$| 000034F0: 28 56 56 29 0D 33 35 34 30 20 4E 45 58 54 56 56 |(VV).3540 NEXTVV| 00003500: 0D 33 35 35 30 20 50 52 49 4E 54 23 34 30 2C 22 |.3550 PRINT#40,"| 00003510: 40 22 0D 33 35 36 30 20 43 4C 4F 53 45 34 30 0D |@".3560 CLOSE40.| 00003520: 33 35 37 30 20 47 4F 54 4F 34 33 39 0D 33 35 38 |3570 GOTO439.358| 00003530: 30 20 54 59 3D 33 30 30 0D 33 35 39 30 20 54 5A |0 TY=300.3590 TZ| 00003540: 3D 54 49 0D 33 36 30 30 20 49 46 54 49 3E 54 59 |=TI.3600 IFTI>TY| 00003550: 2B 54 5A 54 48 45 4E 52 45 54 55 52 4E 0D 33 36 |+TZTHENRETURN.36| 00003560: 31 30 20 47 4F 54 4F 33 36 30 30 0D 0A 52 45 41 |10 GOTO3600..REA| 00003570: 44 59 2E 0D 0A 0D |DY.... |
..0 GOTO24.1 GET#5,A$:IFA$=""THEN5.2 IFM
$="Y"THENA=(F%(ASC(A$))):POKED,A:D=D+1:I
FD=PTHENM$="N".3 PRINT" .";CHR$(F%(ASC(A
$)));:IFF%(ASC(A$))=34THENPOKE212,0.4 GO
TO1.5 PRINT"..";:GETA$:IFA$="."THENFORZ=
830TOID:PRINT#5,CHR$(PEEK(Z));:NEXT:GOTO
1.6 IFA$="."THENM$="Y":PRINT".";:GOTO1.7
IFA$="."THENM$="N":PRINT".";:GOTO1.8 IF
A$="."THENFORZ=870TOME:PRINT#5,CHR$(PEEK
(Z));:NEXT:GOTO1.9 IFA$="."THENFORZ=890T
OAC:PRINT#5,CHR$(PEEK(Z));:NEXT:GOTO1.10
IFA$="."THENFORZ=850TOPA:PRINT#5,CHR$(P
EEK(Z));:NEXT:GOTO1.11 IFA$="."THEN17.12
IFA$="."THEN439.13 IFA$<>""THENPRINT#5,
CHR$(T%(ASC(A$)));.15 IFE$="Y"THENPRINTA
$;.16 GOTO1.17 PRINT"..... * C-64 TRANS-
TERM REC. 64 BASIC * ....".18 GET#5,A
$:IFA$=""THEN21.19 A=ASC(A$):POKED,A:IFD
=PTHEN1.20 PRINTA;:D=D+1:IFA=34THENPOKE2
12,0.21 GETB$:IFB$="."THEN212.22 GOTO18.
24 OPEN5,2,3,CHR$(PEEK(828))+CHR$(PEEK(8
29)).25 P=39000:B=11000:D=B:GOSUB300.26
G=1:E$="F":M$="N":PRINT".........
. SETTING UP . ".27 BS=32000
:ID=830:PA=850:ME=870:AC=890.28 IFPEEK(8
25)<>52THENPRINT"....LOAD & RUN THE "CHR
$(34)"!"CHR$(34)" PROGRAM":NEW.29 GOSUB1
10:PRINT"............ LOADING F1-F4
.":GOSUB1000:GOTO439.30 PRINT" .":PRINT
:PRINT". RESET BUFFER ? .Y.ES OR .N.O"
.31 GETN$:IFN$=""THEN31.32 IFN$="N"THENP
RINT"..":RETURN.33 IFN$="Y"THEND=B:PRINT
"..":RETURN.34 GOTO30.35 PRINT".........
..*.BUFFER CONTENTS.*..":FORX=BTOD:GETA$
:IFA$=""THEN38.36 GETA$:IFA$=""THEN36.37
IFA$="."THEN439.38 PRINTCHR$(PEEK(X));:
NEXT:PRINT". ":PRINT:PRINT".............
....* END *.".39 GETA$:IFA$=""THEN39.40
GOTO439.45 GOSUB1100:D=B.46 G=1:PRINT".
.* LOADING *. ":PRINT:OPE
N8,8,8,"0:"+AF$+",S,R".47 GET#8,A$:IFA$=
""THENG=1:GOTO47.49 IFA$="_"THENA$=CHR$(
13).50 IFA$=CHR$(199)THENG=G+1:IFG=5THEN
600.51 A=ARX.....POKED,A:D=D+1:IFD=P-1TH
ENPOKED,92:GOTO439.52 PRINTA$;:GOTO47.60
PRINT" .":PRINT:PRINT". ECHOPLEX ON ?
.Y.ES OR .N.O".61 GETE$:IFE$=""THEN61
.62 IFE$="N"THENRETURN.63 IFE$="Y"THENRE
TURN.64 GOTO61.100 GOSUB30:GOSUB60:GOTO2
12.G....RZ.................P......Q.....
................................0 T%(1)=
1:T%(3)=3:T%(15)=15:T%(17)=17:T%(19)=19:
T%(21)=21:T%(22)=22.140 FORJ=65TO90:K=J+
32:T%(J)=K:NEXT:FORJ=91TO95:T%(J)=J:NEXT
.160 FORJ=193TO218:K=J-128:T%(J)=K:NEXT.
180 FORJ=0TO255:K=T%(J):IFK<>0THENF%(K)=
J:F%(K+128)=J:NEXT.210 NEXT:RETURN.212 P
RINT"..... * C-64 TRANS-TERM 64 TO A
SCII * ....".217 IFM$="Y"THENPRINT"..".
218 GOTO1.300 IFPEEK(950)=69THENPR$="EVE
N".305 IFPEEK(950)=79THENPR$="ODD".310 I
FPEEK(950)=78THENPR$="NONE".315 IFPEEK(9
51)=83THENWD$="SEVEN".320 IFPEEK(951)=69
THENWD$="EIGHT".325 IFPEEK(952)=79THENST
$="ONE".330 IFPEEK(952)=84THENST$="TWO".
335 IFPEEK(953)=70THENEC$="FULL".340 IFP
EEK(953)=72THENEC$="HALF".350 RETURN.380
PRINT" WHICH PRINTER? .V.IC OR .P.ROWR
ITER".382 GETA$:IFA$=""THEN382.383 IFA$=
"V"THEN389.384 IFA$="P"THEN392.385 GOTO4
39.389 OPEN4,4,7:POKE53265,11:FORX=BTOD.
390 PRINT#4,CHR$(PEEK(X));:NEXTX:CLOSE4:
POKE53265,27:GOTO439.392 OPEN4,4,7:POKE5
3265,11:FORX=BTOD.393 PRINT#4,CHR$(27);C
HR$(80)CHR$(PEEK(X));:NEXTX:CLOSE4:POKE5
3265,27:GOTO439.400 IFPR$="NONE"THENPR$=
"EVEN":POKE829,(PEEK(829)+96):POKE950,69
:GOTO439.402 IFPR$="EVEN"THENPR$=" ODD":
POKE829,(PEEK(829)-64):POKE950,79:GOTO43
9.404 IFPR$=" ODD"THENPR$="NONE":POKE829
,(PEEK(829)-32):POKE950,78:GOTO439.410 I
FWD$="EIGHT"THENWD$="SEVEN":POKE828,(PEE
K(828)+32):POKE951,83:GOTO439.412 IFWD$=
"SEVEN"THENWD$="EIGHT":POKE828,(PEEK(828
)-32):POKE951,69:GOTO439.420 IFST$="ONE"
THENST$="TWO":POKE828,(PEEK(828)+128):PO
KE952,84:GOTO439.422 IFST$="TWO"THENST$=
"ONE":POKE828,(PEEK(828)-128):POKE952,79
:GOTO439.430 IFEC$="FULL"THENEC$="HALF":
POKE829,(PEEK(829)+16):POKE953,72:GOTO43
9.432 IFEC$="HALF"THENEC$="FULL":POKE829
,(PEEK(829)-16):POKE953,70:GOTO439.439 P
RINT"..... AUTO-DIAL C64 TRANS-TERM 1
.1 ....".470 PRINT".......OPTION LI
ST.............FUNCTION KEYS......";.479
PRINT" .. ..".480 PRI
NT"..1.. ASCII TERMINAL .. .. .F1.= USER
ID #".481 PRINT"..2.. DISPLAY F1-F4 ..
.. .F2.= PASSWORD".485 PRINT"..3.. DISP
LAY BUFFER .. .. .F3.= MEMBER ID #".486
PRINT"..4.. PRINT BUFFER .. .. .F4.= A
CCESS CODE".489 PRINT"..5.. SAVE BUFFER
.. .. .F5.= OPEN BUFFER".490 PRINT"..
6.. LOAD BUFFER .. .. .F6.= CLOSE BUF
FER".492 PRINT"..7.. SEND BUFFER .. .
. .F7.= RETURN TO MENU".493 PRINT"..8..
BASIC TO FILE .. .. .F8.= RECEIVE BASIC
".494 PRINT"..9.. FILE TO BASIC .. .. .
\. = AUTO-DIAL ".495 PRINT"..A.. CREA
TE FILE .. ........PARAMETERS........
";.499 PRINT"..B.. REBOOT PROGRAM .. .."
.500 PRINT"..C.. SET PARITY .. .. PA
RITY - ";PR$ ".501 PRINT"..D.. SE
T WORDSIZE .. .. WORDSIZE - ";WD$.503
PRINT"..E.. SET STOPBITS .. .. STOPBIT
S - ";ST$.504 PRINT"..F.. SET DUPLEX
.. .. DUPLEX - ";EC$.505 PRINT"..G..
QUIT PROGRAM .. .. ECHOPLEX - OFF".507
PRINTTAB(19)".. ..".509 PRINT".........
...................................".521
IFD-B=0THENPRINT". BUFFER IS EMPTY.":GO
TO535.522 PRINT". ";D-B;"BYTE FILE IN BU
FFER.".535 GETOP$:IFOP$=""THEN535.540 M$
="N":OP=VAL(OP$):PRINTOP;".".545 ONOPGOT
O100,800,35,380,700,45,1290,1400,1600.55
0 IFOP$="A"THEN1510.560 IFOP$="B"THENCLO
SE5:GOTO0.565 IFOP$="C"THEN400.570 IFOP$
="D"THEN410.580 IFOP$="E"THEN420.582 IFO
P$="F"THEN430.585 IFOP$="G"THENCLOSE5:PR
INT"...":NEW.586 IFOP$="\"THEN1650.590 G
OTO439.600 OPEN15,8,15:INPUT#15,B$,C$,D$
,E$:CLOSE8:CLOSE15:IFD-B>10THEND=D-3:GOT
O439.610 PRINT".... . ";AF$;" . IS NOT O
N THIS DISK.":D=B:FORG=1TO2500:NEXT:GOTO
439.700 GOSUB1100.702 PRINT".SAVING . ";
AF$;" . TO DISK".705 OPEN8,8,8,"@0:"+AF$
+",S,W".720 FORX=BTOD:PRINT#8,CHR$(PEEK(
X));:NEXT:PRINT#8,CHR$(92).730 PRINT".CL
OSING DISK FILE.":CLOSE8:GOTO439.800 PRI
NT"..... C-64 TRANS-TERM 1.0 BUSAROW (C)
1983 ...".801 PRINT"........ SPECIAL FU
NCTION KEYS ..".805 PRINT"..YOUR ID#
. F1 . - .";:FORX=830TOID:PRINTCHR$(P
EEK(X));:NEXT:PRINT.810 PRINT"..YOUR PAS
SWORD . F2 . - .";:FORX=850TOPA:PRINTCH
R$(PEEK(X));:NEXT:PRINT.820 PRINT"..YOUR
MEMBER # . F3 . - .";:FORX=870TOME:PRI
NTCHR$(PEEK(X));:NEXT:PRINT.830 PRINT"..
YOUR ACCESS # . F4 . - .";:FORX=890TOAC
:PRINTCHR$(PEEK(X));:NEXT:PRINT.840 PRIN
T"......ALL OK ?".845 GETA$:IFA$=""THEN8
45.846 IFA$="N"THEN850.847 GOTO439.850 P
RINT"....SELECT .F1. - .F4. TO CHANGE.".
852 GETA$:IFA$=""THEN852.854 IFA$=CHR$(1
33)THENPRINT"...INPUT ID #":ID=830:GOTO8
90.855 IFA$=CHR$(137)THENPRINT"...INPUT
PASSWORD":PA=850:GOTO915.856 IFA$=CHR$(1
34)THENPRINT"...INPUT MEMBER #":ME=870:G
OTO935.857 IFA$=CHR$(138)THENPRINT"...IN
PUT ACCESS #":AC=890:GOTO955.860 GOTO852
.890 GETA$:IFA$=""THEN890.892 A=ASC(A$):
PRINTA$;:POKEID,A:ID=ID+1:IFA$=CHR$(13)T
HEN900.894 GOTO890.900 OPEN8,8,8,"@0:F1,
S,W":FORX=830TOID:PRINT#8,CHR$(PEEK(X));
:IFPEEK(X)=13THEN990.910 NEXT.915 GETA$:
IFA$=""THEN915.916 A=ASC(A$):PRINTA$;:PO
KEPA,A:PA=PA+1:IFA$=CHR$(13)THEN920.917
GOTO915.920 OPEN8,8,8,"@0:F2,S,W":FORX=8
50TOPA:PRINT#8,CHR$(PEEK(X));:IFPEEK(X)=
13THEN990.930 NEXT.935 GETA$:IFA$=""THEN
935.936 A=ASC(A$):PRINTA$;:POKEME,A:ME=M
E+1:IFA$=CHR$(13)THEN940.937 GOTO935.940
OPEN8,8,8,"@0:F3,S,W":FORX=870TOME:PRIN
T#8,CHR$(PEEK(X));:IFPEEK(X)=13THEN990.9
50 NEXT.955 GETA$:IFA$=""THEN955.956 A=A
SC(A$):PRINTA$;:POKEAC,A:AC=AC+1:IFA$=CH
R$(13)THEN960.957 GOTO955.960 OPEN8,8,8,
"@0:F4,S,W":FORX=890TOAC:PRINT#8,CHR$(PE
EK(X));:IFPEEK(X)=13THEN990.970 NEXT.990
CLOSE8:GOTO800.1000 OPEN8,8,8,"F1,S,R".
1002 GET#8,A$:IFA$=""THEN1002.1004 A=ASC
(A$):POKEID,A:ID=ID+1:IFA$=CHR$(13)THENC
LOSE8:GOTO1010.1006 GOTO1002.1010 OPEN8,
8,8,"F2,S,R".1012 GET#8,A$:IFA$=""THEN10
12.1014 A=ASC(A$):POKEPA,A:PA=PA+1:IFA$=
CHR$(13)THENCLOSE8:GOTO1020.1016 GOTO101
2.1020 OPEN8,8,8,"F3,S,R".1022 GET#8,A$:
IFA$=""THEN1022.1024 A=ASC(A$):POKEME,A:
ME=ME+1:IFA$=CHR$(13)THENCLOSE8:GOTO1030
.1026 GOTO1022.1030 OPEN8,8,8,"F4,S,R".1
032 GET#8,A$:IFA$=""THEN1032.1034 A=ASC(
A$):POKEAC,A:AC=AC+1:IFA$=CHR$(13)THENCL
OSE8:RETURN.1036 GOTO1032.1050 STOP.1100
INPUT" ENTER FILE NAME ...";AF$:P
RINT".":RETURN.1250 IFEC$="FULL"THENEC$=
"HALF":E$="H":GOTO439.1260 IFEC$="HALF"T
HENEC$="FULL":E$="F":GOTO439.1290 PRINT"
.":PRINT". .1.. ASCII TEXT OR .2.. 6
4 BASIC ".1292 GETA$:IFA$=""THEN1292.129
4 IFA$="1"THENAS=1:GOTO1300.1296 AS=0.13
00 PRINT,".** SENDING FILE **":PRINT:FOR
X=BTOD:IFPEEK(X)=95THENPOKEX,13.1302 IFA
S=1THENPRINT#5,CHR$(T%(PEEK(X)));:GOTO13
10.1305 PRINT#5,CHR$(PEEK(X));.1310 FORG
=1TO13:NEXTG.1320 PRINTCHR$(PEEK(X));:NE
XTX:GOTO212.1400 INPUT"WHAT IS PROGRAM N
AME";PN$.1410 INPUT"WHAT IS NEW FILE NAM
E";NF$.1420 IFPN$=NF$THENNF$=NF$+"FILE".
1430 PRINT"........................CONVE
RTING BASIC TO SEQUENTIAL FILE-.".1440 P
RINT" . ";PN$;" . TO . ";NF$;" .".1450
PRINT".LOAD"CHR$(34);PN$;CHR$(34)",8,1"
.1460 POKE637,82:POKE638,85:POKE639,78:P
OKE640,13.1470 PRINT"CLOSE8:NEW".1480 PR
INT"....OPEN8,8,8,"CHR$(34)"0:";NF$;",S,
W"CHR$(34)":CMD8:LIST".1490 PRINT"PRINT#
8:CLOSE8".1492 PRINT"..NEW".1494 POKE198
,8.1496 DATA19,13,13,13,13,13,13,13.1498
FORI=1TO8:READW:POKE630+I,W:NEXT:STOP.1
510 PRINT"..... * C-64 TRANS-TERM FILE C
REATOR 1.0 * ...":D=B.1520 PRINT" .";:GE
TA$:IFA$<>""THEN1530.1525 PRINT"..";:GOT
O1520.1530 IFA$=CHR$(32)THENPRINT"..";:G
OTO1545.1535 IFA$=CHR$(92)THENPRINT" ";:
POKED,32:POKED+1,92:GOTO439.1540 IFA$=CH
R$(20)THENPRINT"...";:D=D-1:A$="":GOTO15
20.1545 A=ASC(A$):POKED,A:D=D+1:PRINTA$;
.1555 IFASC(A$)=34THENPOKE212,0.1560 GOT
O1520.1600 PRINT". IS TRANSTERM DISK IN
DRIVE ?".1602 GETA$:IFA$<>"Y"THEN1602.16
10 PRINT"..NEW":PRINT"..LO"CHR$(34)"!BAS
CON"CHR$(34)",8":PRINT"....RUN".1620 POK
E198,5.1640 FORI=1TO5:READW:POKE630+I,W:
NEXT:NEW.1650 PRINT"..";TAB(9)"AUTO-DIAL
MENU":PRINT"..PRESS: ":PRINTTAB(6)"1 -
DIAL A BBS".1652 PRINTTAB(6)".2 - CREATE
#'S FILE";".":PRINTTAB(6)"3 - RETURN TO
MAIN MENU".1655 GET KE$.1657 IF KE$=""T
HEN1655.1659 ON VAL(KE$)GOTO1700,3370,43
9.1660 GOTO1655.1700 RU=0:NF$=" ".1710 G
OSUB2680.1720 DD=1.1730 IFHH=0GOTO439.17
40 B1=56577.1750 B2=56579.1760 X1=0.1770
IFRU<>1GOTO1820.1780 D$=ZZ$(DD).1790 IF
D$="@"THENDD=DD+1:D$=ZZ$(DD):IFZZ$(DD)="
@"GOTO1780.1800 DD=DD+1.1810 IFDD>ZZTHEN
DD=1:GOTO1780.1820 POKEB2,32.1830 FORX=1
TO1000.1840 NEXTX.1850 PRINT"..";"ENSURE
MODEM (D-T SWITCH) SET TO <D>":FOR DE=1
TO 1500:NEXT.1860 PRINT.1870 PRINT.1880
PRINT"DIALING!".1890 PRINT"............
..TO STOP DIALING PRESS ANY KEY AND WAIT
...............".1900 T=100.1910 T=T-1.1
920 IFT<>0GOTO1910.1930 D=LEN(D$).1940 F
ORX=1TOD.1950 N$=MID$(D$,X,1).1960 II=0.
1970 IFN$<CHR$(48)ORN$>CHR$(57)THENII=1.
1980 IFN$="%"THENGOSUB3580.1990 PRINTN$;
.2000 IFII=1GOTO2040.2010 N=VAL(N$).2020
IFN=0THENN=10.2030 GOSUB2320.2040 NEXTX
.2050 PRINT.2060 PRINT"DIAL COMPLETE".20
70 FORX=1TO400.2080 IFPEEK(B1)=47THENGOT
O100.2090 IFPEEK(B1)<>127THENX=3001:X1=1
.2100 GETFF$.2110 IFFF$<>""GOTO439.2120
NEXTX.2130 IFX1<>1THEN1740.2140 IFRU<>1G
OTO2460.2150 OPEN25,8,3,"0:CHECKER".2160
INPUT#25,YY$.2170 IFYY$="NO"THENCLOSE25
:GOTO2240.2180 YY=1.2190 YY$(YY)=YY$.220
0 YY=YY+1.2210 INPUT#25,YY$(YY).2220 IFY
Y$(YY)="@"THENYY=YY-1:CLOSE25:GOTO2240.2
230 GOTO2200.2240 OPEN25,8,3,"@0:CHECKER
,U,W".2250 PRINT#25,D$.2260 FORX=1TOYY.2
270 PRINT#25,YY$(X).2280 NEXTX.2290 PRIN
T#25,"@".2300 CLOSE25.2310 GOTO2460.2320
FORN1=1TON.2330 POKEB1,0.2340 T=2.2350
T=T-1.2360 IFT<>0THEN2350.2370 POKEB1,32
.2380 T=2.2390 T=T-1.2400 IFT<>0THEN2390
.2410 NEXTN1.2420 T=10.2430 T=T-1.2440 I
FT<>0THEN2430.2450 RETURN:GOTO439.2460 S
=54272.2470 FORL=0TO24.2480 POKES+L,0.24
90 NEXT.2500 POKES+1,100.2510 POKES+5,10
.2520 POKES+15,255.2530 POKES+24,15.2540
POKES+4,21.2550 GETCH$.2560 IFCH$=""GOT
O2620.2570 FORL=STOS+24.2580 POKEL,0.259
0 NEXTL.2600 PRINT".";.2610 GOTO439.2620
FORT=1TO1000.2630 NEXT.2640 POKES+4,20.
2650 FORT=1TO1000.2660 NEXT.2670 GOTO254
0.2680 PRINT".";TAB(11)"AUTO-DIAL"J$.269
0 PRINTJ$"NUMBER FROM:":PRINTJ$TAB(10)"(
K)EYBOARD":PRINTJ$TAB(10)"(D)ISK".2700 P
RINTJ$TAB(10)"(P)REVIOUSLY LOADED FILE".
2710 GETKK$.2720 IFKK$=""GOTO2710.2730 I
FKK$="K"THENGOSUB3310:RETURN.2740 IFKK$=
"D"THENGOTO2810.2750 IFKK$="P"THENGOTO27
70.2760 IFKK$<>"D"THENGOTO2680.2770 PRIN
T".".2780 IF ZZ>1THEN GOTO2800.2790 PRIN
T" SORRY NO FILE LOADED":FOR DELAY=1TO1
000:NEXTDELAY:GOTO2680.2800 GOTO3090 .28
10 PRINT".":ZZ=1.2820 INPUT"FILE NAME ";
NF$.2830 IF NF$=" "THEN NF$="PHONE LOG".
2840 PRINT".CLEAR USED #'S FILE (Y OR N)
".2850 GETYN$.2860 IFYN$=""GOTO2850.2870
IFYN$="N"GOTO2900.2880 IFYN$="Y"THENOPE
N25,8,3,"@0:CHECKER,U,W":PRINT#25,"NO":C
LOSE25:GOTO2900.2890 IFYN$<>"Y"THENGOTO2
850.2900 PRINT".".2910 OPEN25,8,3,"0:CHE
CKER".2920 INPUT#25,YY$.2930 IFYY$="NO"T
HENCLOSE25:PP=1.2940 CLOSE25.2950 CLOSE1
5.2960 OPEN15,8,3,""+NF$.2970 INPUT#15,Z
Z$(ZZ).2980 IFZZ$(ZZ)=""THENCLOSE15:GOTO
2820.2990 IFZZ$(ZZ)="@"THENCLOSE15:GOTO3
020.3000 ZZ=ZZ+1.3010 GOTO2970.3020 IFPP
=1GOTO3090.3030 OPEN25,8,3,"0:CHECKER".3
040 YY=1.3050 INPUT#25,YY$(YY).3060 IFYY
$(YY)="@"THENCLOSE25:YY=YY-1:GOTO3090.30
70 YY=YY+1.3080 GOTO3050.3090 FORX=1TOZZ
-1.3100 PRINTJ$X;" ";ZZ$(X).3110 NEXTX.3
120 PRINT.3130 PRINT.3140 INPUT"PICK A N
UMBER (A FOR ALL)";DD$.3150 IFDD$=""GOTO
439.3160 IFDD$="A"THENRU=1:GOSUB3210:RET
URN.3170 IFVAL(DD$)=0ORVAL(DD$)>ZZ-1GOTO
3140.3180 HH=1.3190 D$=ZZ$(VAL(DD$)).320
0 RETURN.3210 HH=0.3220 FORUU=1TOYY.3230
FORII=1TOZZ.3240 IFZZ$(II)=YY$(UU)THENZ
Z$(II)="@".3250 NEXTII.3260 NEXTUU.3270
FORII=1TOZZ.3280 IFZZ$(II)<>"@"THENII=ZZ
+1:HH=1.3290 NEXTII.3300 RETURN.3310 PRI
NT".".3320 INPUT"NUMBER TO DIAL";OO$.333
0 IFLEN(OO$)<7GOTO3310.3340 D$=OO$.3350
HH=1.3360 RETURN.3370 IF DI<1THEN DIMBB$
(30).3380 DI=1:PRINT".".3390 FORBB=1TO30
.3400 BB$(BB)=" ".3410 NEXTBB.3420 NF$="
":PRINTTAB(7)"CREATE PHONE NUMBER LOG"J
$J$.3430 INPUT"FILE NAME: ";NF$.3440 IFN
F$=" "THEN NF$="PHONE LOG".3450 BB=1.346
0 PRINTJ$"NUMBER TO DIAL (RTN TO WRITE F
ILE)":PRINTJ$" NAME PHONE
#".3470 PRINTJ$:INPUTBB$(BB).3480 IFBB$(
BB)=" "THEN3510.3490 BB=BB+1.3500 GOTO34
70.3510 OPEN40,8,3,"@0:"+NF$+",S,W".3520
FORVV=1TOBB-1.3530 PRINT#40,BB$(VV).354
0 NEXTVV.3550 PRINT#40,"@".3560 CLOSE40.
3570 GOTO439.3580 TY=300.3590 TZ=TI.3600
IFTI>TY+TZTHENRETURN.3610 GOTO3600..REA
DY....
> CLICK IMAGE PREVIEW FOR FULL MODAL