8FILE
FILE INFORMATION
FILENAME(S): 8FILE
FILE TYPE(S): SEQ
FILE SIZE: 6.7K
FIRST SEEN: 2025-11-30 18:12:37
APPEARS ON: 1 disk(s)
FILE HASH
08c003190e6819c46489169f8b6ce067b9952b09da6c0bf8ca7b19022f527291
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANTERM | 8FILE | SEQ | Sailor, Ganheden | 16 | 15 |
⚠ CORRUPT 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 22 91 20 D2 45 53 45 54 |.":PRINT". .ESET| 00000490: 20 42 55 46 46 45 52 20 3F 20 20 20 12 59 92 45 | BUFFER ? .Y.E| 000004A0: 53 20 4F 52 20 12 4E 92 4F 22 0D 33 31 20 47 45 |S OR .N.O".31 GE| 000004B0: 54 4E 24 3A 49 46 4E 24 3D 22 22 54 48 45 4E 33 |TN$:IFN$=""THEN3| 000004C0: 31 0D 33 32 20 49 46 4E 24 3D 22 4E 22 54 48 45 |1.32 IFN$="N"THE| 000004D0: 4E 50 52 49 4E 54 22 91 91 22 3A 52 45 54 55 52 |NPRINT"..":RETUR| 000004E0: 4E 0D 33 33 20 49 46 4E 24 3D 22 59 22 54 48 45 |N.33 IFN$="Y"THE| 000004F0: 4E 44 3D 42 3A 50 52 49 4E 54 22 91 91 22 3A 52 |ND=B:PRINT"..":R| 00000500: 45 54 55 52 4E 0D 33 34 20 47 4F 54 4F 33 30 0D |ETURN.34 GOTO30.| 00000510: 33 35 20 50 52 49 4E 54 22 93 1D 1D 1D 1D 1D 1D |35 PRINT".......| 00000520: 1D 1D 1D 05 2A 1D 42 55 46 46 45 52 20 43 4F 4E |....*.BUFFER CON| 00000530: 54 45 4E 54 53 1D 2A 9E 11 22 3A 46 4F 52 58 3D |TENTS.*..":FORX=| 00000540: 42 54 4F 44 3A 47 45 54 41 24 3A 49 46 41 24 3D |BTOD:GETA$:IFA$=| 00000550: 22 22 54 48 45 4E 33 38 0D 33 36 20 47 45 54 41 |""THEN38.36 GETA| 00000560: 24 3A 49 46 41 24 3D 22 22 54 48 45 4E 33 36 0D |$:IFA$=""THEN36.| 00000570: 33 37 20 49 46 41 24 3D 22 88 22 54 48 45 4E 34 |37 IFA$="."THEN4| 00000580: 33 39 0D 33 38 20 50 52 49 4E 54 43 48 52 24 28 |39.38 PRINTCHR$(| 00000590: 50 45 45 4B 28 58 29 29 3B 3A 4E 45 58 54 3A 50 |PEEK(X));:NEXT:P| 000005A0: 52 49 4E 54 22 9D 20 22 3A 50 52 49 4E 54 3A 50 |RINT". ":PRINT:P| 000005B0: 52 49 4E 54 22 11 05 1D 1D 1D 1D 1D 1D 1D 1D 1D |RINT"...........| 000005C0: 1D 1D 1D 1D 1D 1D 2A 20 45 4E 44 20 2A 9E 22 0D |......* END *.".| 000005D0: 33 39 20 47 45 54 41 24 3A 49 46 41 24 3D 22 22 |39 GETA$:IFA$=""| 000005E0: 54 48 45 4E 33 39 0D 34 30 20 47 4F 54 4F 34 33 |THEN39.40 GOTO43| 000005F0: 39 0D 34 35 20 47 4F 53 55 42 31 31 30 30 3A 44 |9.45 GOSUB1100:D| 00000600: 3D 42 0D 34 36 20 47 3D 31 3A 50 52 49 4E 54 22 |=B.46 G=1:PRINT"| 00000610: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 05 |. .| 00000620: 2A 20 4C 4F 41 44 49 4E 47 20 2A 9E 20 20 20 22 |* LOADING *. "| 00000630: 3A 50 52 49 4E 54 3A 4F 50 45 4E 38 2C 38 2C 38 |:PRINT:OPEN8,8,8| 00000640: 2C 22 30 3A 22 2B 41 46 24 2B 22 2C 53 2C 52 22 |,"0:"+AF$+",S,R"| 00000650: 0D 34 37 20 47 45 54 23 38 2C 41 24 3A 49 46 41 |.47 GET#8,A$:IFA| 00000660: 24 3D 22 22 54 48 45 4E 47 3D 31 3A 47 4F 54 4F |$=""THENG=1:GOTO| 00000670: 34 37 0D 34 39 20 49 46 41 24 3D 22 5F 22 54 48 |47.49 IFA$="_"TH| 00000680: 45 4E 41 24 3D 43 48 52 24 28 31 33 29 0D 35 30 |ENA$=CHR$(13).50| 00000690: 20 49 46 41 24 3D 43 48 52 24 28 31 39 39 29 54 | IFA$=CHR$(199)T| 000006A0: 48 45 4E 47 3D 47 2B 31 3A 49 46 47 3D 35 54 48 |HENG=G+1:IFG=5TH| 000006B0: 45 4E 36 30 30 0D 35 31 20 41 3D 41 53 43 28 41 |EN600.51 A=ASC(A| 000006C0: 24 29 3A 50 4F 4B 45 44 2C 41 3A 44 3D 44 2B 31 |$):POKED,A:D=D+1| 000006D0: 3A 49 46 44 3D 50 2D 31 54 48 45 4E 50 4F 4B 45 |:IFD=P-1THENPOKE| 000006E0: 44 2C 39 32 3A 47 4F 54 4F 34 33 39 0D 35 32 20 |D,92:GOTO439.52 | 000006F0: 50 52 49 4E 54 41 24 3B 3A 47 4F 54 4F 34 37 0D |PRINTA$;:GOTO47.| 00000700: 36 30 20 50 52 49 4E 54 22 20 20 91 22 3A 50 52 |60 PRINT" .":PR| 00000710: 49 4E 54 22 91 20 C5 43 48 4F 50 4C 45 58 20 4F |INT". .CHOPLEX O| 00000720: 4E 20 3F 20 20 20 20 12 59 92 45 53 20 4F 52 20 |N ? .Y.ES OR | 00000730: 12 4E 92 4F 22 0D 36 31 20 47 45 54 45 24 3A 49 |.N.O".61 GETE$:I| 00000740: 46 45 24 3D 22 22 54 48 45 4E 36 31 0D 36 32 20 |FE$=""THEN61.62 | 00000750: 49 46 45 24 3D 22 4E 22 54 48 45 4E 52 45 54 55 |IFE$="N"THENRETU| 00000760: 52 4E 0D 36 33 20 49 46 45 24 3D 22 59 22 54 48 |RN.63 IFE$="Y"TH| 00000770: 45 4E 52 45 54 55 52 4E 0D 36 34 20 47 4F 54 4F |ENRETURN.64 GOTO| 00000780: 36 31 0D 31 30 30 20 47 4F 53 55 42 33 30 3A 47 |61.100 GOSUB30:G| 00000790: 4F 53 55 42 36 30 3A 47 4F 54 4F 32 31 32 0D 31 |OSUB60:GOTO212.1| 000007A0: 31 30 20 44 49 4D 46 25 28 32 35 35 29 2C 54 25 |10 DIMF%(255),T%| 000007B0: 28 32 35 35 29 3A 46 4F 52 4A 3D 33 32 54 4F 36 |(255):FORJ=32TO6| 000007C0: 34 3A 54 25 28 4A 29 3D 4A 3A 4E 45 58 54 3A 54 |4:T%(J)=J:NEXT:T| 000007D0: 25 28 31 33 29 3D 31 33 3A 54 25 28 32 30 29 3D |%(13)=13:T%(20)=| 000007E0: 38 0D 31 32 30 20 54 25 28 31 29 3D 31 3A 54 25 |8.120 T%(1)=1:T%| 000007F0: 28 33 29 3D 33 3A 54 25 28 31 35 29 3D 31 35 3A |(3)=3:T%(15)=15:| 00000800: 54 25 28 31 37 29 3D 31 37 3A 54 25 28 31 39 29 |T%(17)=17:T%(19)| 00000810: 3D 31 39 3A 54 25 28 32 31 29 3D 32 31 3A 54 25 |=19:T%(21)=21:T%| 00000820: 28 32 32 29 3D 32 32 0D 31 34 30 20 46 4F 52 4A |(22)=22.140 FORJ| 00000830: 3D 36 35 54 4F 39 30 3A 4B 3D 4A 2B 33 32 3A 54 |=65TO90:K=J+32:T| 00000840: 25 28 4A 29 3D 4B 3A 4E 45 58 54 3A 46 4F 52 4A |%(J)=K:NEXT:FORJ| 00000850: 3D 39 31 54 4F 39 35 3A 54 25 28 4A 29 3D 4A 3A |=91TO95:T%(J)=J:| 00000860: 4E 45 58 54 0D 31 36 30 20 46 4F 52 4A 3D 31 39 |NEXT.160 FORJ=19| 00000870: 33 54 4F 32 31 38 3A 4B 3D 4A 2D 31 32 38 3A 54 |3TO218:K=J-128:T| 00000880: 25 28 4A 29 3D 4B 3A 4E 45 58 54 0D 31 38 30 20 |%(J)=K:NEXT.180 | 00000890: 46 4F 52 4A 3D 30 54 4F 32 35 35 3A 4B 3D 54 25 |FORJ=0TO255:K=T%| 000008A0: 28 4A 29 3A 49 46 4B 3C 3E 30 54 48 45 4E 46 25 |(J):IFK<>0THENF%| 000008B0: 28 4B 29 3D 4A 3A 46 25 28 4B 2B 31 32 38 29 3D |(K)=J:F%(K+128)=| 000008C0: 4A 3A 4E 45 58 54 0D 32 31 30 20 4E 45 58 54 3A |J:NEXT.210 NEXT:| 000008D0: 52 45 54 55 52 4E 0D 32 31 32 20 50 52 49 4E 54 |RETURN.212 PRINT| 000008E0: 22 93 12 81 A2 9E 20 2A 20 20 C3 2D 36 34 20 D4 |"..... * .-64 .| 000008F0: D2 C1 CE D3 2D D4 C5 D2 CD 20 20 20 20 36 34 20 |....-.... 64 | 00000900: 54 4F 20 C1 D3 C3 C9 C9 20 20 2A 20 81 A2 05 92 |TO ..... * ....| 00000910: 22 0D 32 31 37 20 49 46 4D 24 3D 22 59 22 54 48 |".217 IFM$="Y"TH| 00000920: 45 4E 50 52 49 4E 54 22 9E 91 22 0D 32 31 38 20 |ENPRINT"..".218 | 00000930: 47 4F 54 4F 31 0D 33 30 30 20 49 46 50 45 45 4B |GOTO1.300 IFPEEK| 00000940: 28 39 35 30 29 3D 36 39 54 48 45 4E 50 52 24 3D |(950)=69THENPR$=| 00000950: 22 45 56 45 4E 22 0D 33 30 35 20 49 46 50 45 45 |"EVEN".305 IFPEE| 00000960: 4B 28 39 35 30 29 3D 37 39 54 48 45 4E 50 52 24 |K(950)=79THENPR$| 00000970: 3D 22 4F 44 44 22 0D 33 31 30 20 49 46 50 45 45 |="ODD".310 IFPEE| 00000980: 4B 28 39 35 30 29 3D 37 38 54 48 45 4E 50 52 24 |K(950)=78THENPR$| 00000990: 3D 22 4E 4F 4E 45 22 0D 33 31 35 20 49 46 50 45 |="NONE".315 IFPE| 000009A0: 45 4B 28 39 35 31 29 3D 38 33 54 48 45 4E 57 44 |EK(951)=83THENWD| 000009B0: 24 3D 22 53 45 56 45 4E 22 0D 33 32 30 20 49 46 |$="SEVEN".320 IF| 000009C0: 50 45 45 4B 28 39 35 31 29 3D 36 39 54 48 45 4E |PEEK(951)=69THEN| 000009D0: 57 44 24 3D 22 45 49 47 48 54 22 0D 33 32 35 20 |WD$="EIGHT".325 | 000009E0: 49 46 50 45 45 4B 28 39 35 32 29 3D 37 39 54 48 |IFPEEK(952)=79TH| 000009F0: 45 4E 53 54 24 3D 22 4F 4E 45 22 0D 33 33 30 20 |ENST$="ONE".330 | 00000A00: 49 46 50 45 45 4B 28 39 35 32 29 3D 38 34 54 48 |IFPEEK(952)=84TH| 00000A10: 45 4E 53 54 24 3D 22 54 57 4F 22 0D 33 33 35 20 |ENST$="TWO".335 | 00000A20: 49 46 50 45 45 4B 28 39 35 33 29 3D 37 30 54 48 |IFPEEK(953)=70TH| 00000A30: 45 4E 45 43 24 3D 22 46 55 4C 4C 22 0D 33 34 30 |ENEC$="FULL".340| 00000A40: 20 49 46 50 45 45 4B 28 39 35 33 29 3D 37 32 54 | IFPEEK(953)=72T| 00000A50: 48 45 4E 45 43 24 3D 22 48 41 4C 46 22 0D 33 35 |HENEC$="HALF".35| 00000A60: 30 20 52 45 54 55 52 4E 0D 33 38 30 20 50 52 49 |0 RETURN.380 PRI| 00000A70: 4E 54 22 20 D7 48 49 43 48 20 50 52 49 4E 54 45 |NT" .HICH PRINTE| 00000A80: 52 3F 20 20 12 D6 92 49 43 20 4F 52 20 12 D0 92 |R? ...IC OR ...| 00000A90: 52 4F 57 52 49 54 45 52 22 0D 33 38 32 20 47 45 |ROWRITER".382 GE| 00000AA0: 54 41 24 3A 49 46 41 24 3D 22 22 54 48 45 4E 33 |TA$:IFA$=""THEN3| 00000AB0: 38 32 0D 33 38 33 20 49 46 41 24 3D 22 56 22 54 |82.383 IFA$="V"T| 00000AC0: 48 45 4E 33 38 39 0D 33 38 34 20 49 46 41 24 3D |HEN389.384 IFA$=| 00000AD0: 22 50 22 54 48 45 4E 33 39 32 0D 33 38 35 20 47 |"P"THEN392.385 G| 00000AE0: 4F 54 4F 34 33 39 0D 33 38 39 20 4F 50 45 4E 34 |OTO439.389 OPEN4| 00000AF0: 2C 34 2C 37 3A 50 4F 4B 45 35 33 32 36 35 2C 31 |,4,7:POKE53265,1| 00000B00: 31 3A 46 4F 52 58 3D 42 54 4F 44 0D 33 39 30 20 |1:FORX=BTOD.390 | 00000B10: 50 52 49 4E 54 23 34 2C 43 48 52 24 28 50 45 45 |PRINT#4,CHR$(PEE| 00000B20: 4B 28 58 29 29 3B 3A 4E 45 58 54 58 3A 43 4C 4F |K(X));:NEXTX:CLO| 00000B30: 53 45 34 3A 50 4F 4B 45 35 33 32 36 35 2C 32 37 |SE4:POKE53265,27| 00000B40: 3A 47 4F 54 4F 34 33 39 0D 33 39 32 20 4F 50 45 |:GOTO439.392 OPE| 00000B50: 4E 34 2C 34 2C 37 3A 50 4F 4B 45 35 33 32 36 35 |N4,4,7:POKE53265| 00000B60: 2C 31 31 3A 46 4F 52 58 3D 42 54 4F 44 0D 33 39 |,11:FORX=BTOD.39| 00000B70: 33 20 50 52 49 4E 54 23 34 2C 43 48 52 24 28 32 |3 PRINT#4,CHR$(2| 00000B80: 37 29 3B 43 48 52 24 28 38 30 29 43 48 52 24 28 |7);CHR$(80)CHR$(| 00000B90: 50 45 45 4B 28 58 29 29 3B 3A 4E 45 58 54 58 3A |PEEK(X));:NEXTX:| 00000BA0: 43 4C 4F 53 45 34 3A 50 4F 4B 45 35 33 32 36 35 |CLOSE4:POKE53265| 00000BB0: 2C 32 37 3A 47 4F 54 4F 34 33 39 0D 34 30 30 20 |,27:GOTO439.400 | 00000BC0: 49 46 50 52 24 3D 22 4E 4F 4E 45 22 54 48 45 4E |IFPR$="NONE"THEN| 00000BD0: 50 52 24 3D 22 45 56 45 4E 22 3A 50 4F 4B 45 38 |PR$="EVEN":POKE8| 00000BE0: 32 39 2C 28 50 45 45 4B 28 38 32 39 29 2B 39 36 |29,(PEEK(829)+96| 00000BF0: 29 3A 50 4F 4B 45 39 35 30 2C 36 39 3A 47 4F 54 |):POKE950,69:GOT| 00000C00: 4F 34 33 39 0D 34 30 32 20 49 46 50 52 24 3D 22 |O439.402 IFPR$="| 00000C10: 45 56 45 4E 22 54 48 45 4E 50 52 24 3D 22 20 4F |EVEN"THENPR$=" O| 00000C20: 44 44 22 3A 50 4F 4B 45 38 32 39 2C 28 50 45 45 |DD":POKE829,(PEE| 00000C30: 4B 28 38 32 39 29 2D 36 34 29 3A 50 4F 4B 45 39 |K(829)-64):POKE9| 00000C40: 35 30 2C 37 39 3A 47 4F 54 4F 34 33 39 0D 34 30 |50,79:GOTO439.40| 00000C50: 34 20 49 46 50 52 24 3D 22 20 4F 44 44 22 54 48 |4 IFPR$=" ODD"TH| 00000C60: 45 4E 50 52 24 3D 22 4E 4F 4E 45 22 3A 50 4F 4B |ENPR$="NONE":POK| 00000C70: 45 38 32 39 2C 28 50 45 45 4B 28 38 32 39 29 2D |E829,(PEEK(829)-| 00000C80: 33 32 29 3A 50 4F 4B 45 39 35 30 2C 37 38 3A 47 |32):POKE950,78:G| 00000C90: 4F 54 4F 34 33 39 0D 34 31 30 20 49 46 57 44 24 |OTO439.410 IFWD$| 00000CA0: 3D 22 45 49 47 48 54 22 54 48 45 4E 57 44 24 3D |="EIGHT"THENWD$=| 00000CB0: 22 53 45 56 45 4E 22 3A 50 4F 4B 45 38 32 38 2C |"SEVEN":POKE828,| 00000CC0: 28 50 45 45 4B 28 38 32 38 29 2B 33 32 29 3A 50 |(PEEK(828)+32):P| 00000CD0: 4F 4B 45 39 35 31 2C 38 33 3A 47 4F 54 4F 34 33 |OKE951,83:GOTO43| 00000CE0: 39 0D 34 31 32 20 49 46 57 44 24 3D 22 53 45 56 |9.412 IFWD$="SEV| 00000CF0: 45 4E 22 54 48 45 4E 57 44 24 3D 22 45 49 47 48 |EN"THENWD$="EIGH| 00000D00: 54 22 3A 50 4F 4B 45 38 32 38 2C 28 50 45 45 4B |T":POKE828,(PEEK| 00000D10: 28 38 32 38 29 2D 33 32 29 3A 50 4F 4B 45 39 35 |(828)-32):POKE95| 00000D20: 31 2C 36 39 3A 47 4F 54 4F 34 33 39 0D 34 32 30 |1,69:GOTO439.420| 00000D30: 20 49 46 53 54 24 3D 22 4F 4E 45 22 54 48 45 4E | IFST$="ONE"THEN| 00000D40: 53 54 24 3D 22 54 57 4F 22 3A 50 4F 4B 45 38 32 |ST$="TWO":POKE82| 00000D50: 38 2C 28 50 45 45 4B 28 38 32 38 29 2B 31 32 38 |8,(PEEK(828)+128| 00000D60: 29 3A 50 4F 4B 45 39 35 32 2C 38 34 3A 47 4F 54 |):POKE952,84:GOT| 00000D70: 4F 34 33 39 0D 34 32 32 20 49 46 53 54 24 3D 22 |O439.422 IFST$="| 00000D80: 54 57 4F 22 54 48 45 4E 53 54 24 3D 22 4F 4E 45 |TWO"THENST$="ONE| 00000D90: 22 3A 50 4F 4B 45 38 32 38 2C 28 50 45 45 4B 28 |":POKE828,(PEEK(| 00000DA0: 38 32 38 29 2D 31 32 38 29 3A 50 4F 4B 45 39 35 |828)-128):POKE95| 00000DB0: 32 2C 37 39 3A 47 4F 54 4F 34 33 39 0D 34 33 30 |2,79:GOTO439.430| 00000DC0: 20 49 46 45 43 24 3D 22 46 55 4C 4C 22 54 48 45 | IFEC$="FULL"THE| 00000DD0: 4E 45 43 24 3D 22 48 41 4C 46 22 3A 50 4F 4B 45 |NEC$="HALF":POKE| 00000DE0: 38 32 39 2C 28 50 45 45 4B 28 38 32 39 29 2B 31 |829,(PEEK(829)+1| 00000DF0: 36 29 3A 50 4F 4B 45 39 35 33 2C 37 32 3A 47 4F |6):POKE953,72:GO| 00000E00: 54 4F 34 33 39 0D 34 33 32 20 49 46 45 43 24 3D |TO439.432 IFEC$=| 00000E10: 22 48 41 4C 46 22 54 48 45 4E 45 43 24 3D 22 46 |"HALF"THENEC$="F| 00000E20: 55 4C 4C 22 3A 50 4F 4B 45 38 32 39 2C 28 50 45 |ULL":POKE829,(PE| 00000E30: 45 4B 28 38 32 39 29 2D 31 36 29 3A 50 4F 4B 45 |EK(829)-16):POKE| 00000E40: 39 35 33 2C 37 30 3A 47 4F 54 4F 34 33 39 0D 34 |953,70:GOTO439.4| 00000E50: 33 39 20 50 52 49 4E 54 22 93 12 81 A2 9E 20 C3 |39 PRINT"..... .| 00000E60: 2D 36 34 20 D4 D2 C1 CE D3 2D D4 C5 D2 CD 20 31 |-64 .....-.... 1| 00000E70: 2E 30 20 C2 55 53 41 52 4F 57 20 28 43 29 20 31 |.0 .USAROW (C) 1| 00000E80: 39 38 33 20 81 A2 9E 11 22 0D 34 37 30 20 50 52 |983 ....".470 PR| 00000E90: 49 4E 54 22 81 A2 A2 A2 12 9E BE CF 50 54 49 4F |INT"........PTIO| 00000EA0: 4E 20 4C 49 53 54 BC 81 92 A2 A2 A2 A2 A2 A2 A2 |N LIST..........| 00000EB0: 12 9E BE C6 55 4E 43 54 49 4F 4E 20 4B 45 59 53 |....UNCTION KEYS| 00000EC0: BC 81 92 A2 A2 9E 22 3B 0D 34 37 39 20 50 52 49 |......";.479 PRI| 00000ED0: 4E 54 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |NT" | 00000EE0: 20 20 20 20 20 20 81 12 20 92 9E 22 0D 34 38 30 | .. ..".480| 00000EF0: 20 50 52 49 4E 54 22 1D 12 31 2E 92 20 C1 D3 C3 | PRINT"..1.. ...| 00000F00: C9 C9 20 54 45 52 4D 49 4E 41 4C 20 81 12 20 92 |.. TERMINAL .. .| 00000F10: 9E 20 12 C6 31 92 3D 20 D5 53 45 52 20 C9 C4 20 |. ..1.= .SER .. | 00000F20: 23 22 0D 34 38 31 20 50 52 49 4E 54 22 1D 12 32 |#".481 PRINT"..2| 00000F30: 2E 92 20 C4 49 53 50 4C 41 59 20 C6 31 2D C6 34 |.. .ISPLAY .1-.4| 00000F40: 20 20 81 12 20 92 9E 20 12 C6 32 92 3D 20 D0 41 | .. .. ..2.= .A| 00000F50: 53 53 57 4F 52 44 22 0D 34 38 35 20 50 52 49 4E |SSWORD".485 PRIN| 00000F60: 54 22 1D 12 33 2E 92 20 C4 49 53 50 4C 41 59 20 |T"..3.. .ISPLAY | 00000F70: 42 55 46 46 4E FF FF 26 FF FF 61 FF 88 48 6A 45 |BUFFN..&..a..HjE| 00000F80: FF 56 88 7F 9D BF A8 BB FF 23 41 FF FF FF FF 7C |.V.......#A....|| 00000F90: 78 FF B8 FF FF FF FF FF 78 FF EF 98 78 8C 02 0D |x.......x...x...| 00000FA0: 05 24 94 25 42 04 25 54 6D C9 DE 08 08 08 FF C4 |.$.%B.%Tm.......| 00000FB0: 08 FF FF A8 84 86 AC FF 05 68 8F CA CA C9 DE CE |.........h......| 00000FC0: 48 8A CA F9 99 E0 81 6C AC FF FF 8D 8E 8B FF 9D |H......l........| 00000FD0: A0 85 F4 0C E1 FF 08 16 C9 CE 99 E8 8A 8D DA FF |................| 00000FE0: 46 45 52 20 20 20 20 81 12 20 92 9E 20 12 C6 35 |FER .. .. ..5| 00000FF0: 92 3D 20 CF 50 45 4E 20 42 55 46 46 45 52 22 0D |.= .PEN BUFFER".| 00001000: 34 39 30 20 50 52 49 4E 54 22 1D 12 36 2E 92 20 |490 PRINT"..6.. | 00001010: CC 4F 41 44 20 42 55 46 46 45 52 20 20 20 20 81 |.OAD BUFFER .| 00001020: 12 20 92 9E 20 12 C6 36 92 3D 20 C3 4C 4F 53 45 |. .. ..6.= .LOSE| 00001030: 20 42 55 46 46 45 52 22 0D 34 39 32 20 50 52 49 | BUFFER".492 PRI| 00001040: 4E 54 22 1D 12 37 2E 92 20 D3 45 4E 44 20 42 55 |NT"..7.. .END BU| 00001050: 46 46 45 52 20 20 20 20 81 12 20 92 9E 20 12 C6 |FFER .. .. ..| 00001060: 37 92 3D 20 D2 45 54 55 52 4E 20 54 4F 20 4D 45 |7.= .ETURN TO ME| 00001070: 4E 55 22 0D 34 39 33 20 50 52 49 4E 54 22 1D 12 |NU".493 PRINT"..| 00001080: 38 2E 92 20 C2 C1 D3 C9 C3 20 54 4F 20 46 49 4C |8.. ..... TO FIL| 00001090: 45 20 20 81 12 20 92 9E 20 12 C6 38 92 3D 20 D2 |E .. .. ..8.= .| 000010A0: 45 43 45 49 56 45 20 C2 C1 D3 C9 C3 22 0D 34 39 |ECEIVE .....".49| 000010B0: 34 20 50 52 49 4E 54 22 1D 12 39 2E 92 20 C6 49 |4 PRINT"..9.. .I| 000010C0: 4C 45 20 54 4F 20 C2 C1 D3 C9 C3 20 20 81 12 20 |LE TO ..... .. | 000010D0: 92 9E 22 0D 34 39 35 20 50 52 49 4E 54 22 1D 12 |..".495 PRINT"..| 000010E0: C1 2E 92 20 C3 52 45 41 54 45 20 46 49 4C 45 20 |... .REATE FILE | 000010F0: 20 20 20 81 12 20 92 A2 A2 A2 A2 9E 12 BE D0 41 | .. .........A| 00001100: 52 41 4D 45 54 45 52 53 BC 92 81 A2 A2 A2 A2 9E |RAMETERS........| 00001110: 22 3B 0D 34 39 39 20 50 52 49 4E 54 22 1D 12 C2 |";.499 PRINT"...| 00001120: 2E 92 20 D2 45 42 4F 4F 54 20 50 52 4F 47 52 41 |.. .EBOOT PROGRA| 00001130: 4D 20 81 12 20 92 9E 22 0D 35 30 30 20 50 52 49 |M .. ..".500 PRI| 00001140: 4E 54 22 1D 12 C3 2E 92 20 D3 45 54 20 50 41 52 |NT"..... .ET PAR| 00001150: 49 54 59 20 20 20 20 20 81 12 20 92 9E 20 D0 41 |ITY .. .. .A| 00001160: 52 49 54 59 20 20 20 2D 20 22 3B 50 52 24 20 20 |RITY - ";PR$ | 00001170: 20 20 20 20 22 0D 35 30 31 20 50 52 49 4E 54 22 | ".501 PRINT"| 00001180: 1D 12 C4 2E 92 20 D3 45 54 20 57 4F 52 44 53 49 |..... .ET WORDSI| 00001190: 5A 45 20 20 20 81 12 20 92 9E 20 D7 4F 52 44 53 |ZE .. .. .ORDS| 000011A0: 49 5A 45 20 2D 20 22 3B 57 44 24 0D 35 30 33 20 |IZE - ";WD$.503 | 000011B0: 50 52 49 4E 54 22 1D 12 C5 2E 92 20 D3 45 54 20 |PRINT"..... .ET | 000011C0: 53 54 4F 50 42 49 54 53 20 20 20 81 12 20 92 9E |STOPBITS .. ..| 000011D0: 20 D3 54 4F 50 42 49 54 53 20 2D 20 22 3B 53 54 | .TOPBITS - ";ST| 000011E0: 24 0D 35 30 34 20 50 52 49 4E 54 22 1D 12 C6 2E |$.504 PRINT"....| 000011F0: 92 20 D3 45 54 20 44 55 50 4C 45 58 20 20 20 20 |. .ET DUPLEX | 00001200: 20 81 12 20 92 9E 20 C4 55 50 4C 45 58 20 20 20 | .. .. .UPLEX | 00001210: 2D 20 22 3B 45 43 24 0D 35 30 35 20 50 52 49 4E |- ";EC$.505 PRIN| 00001220: 54 22 1D 12 C7 2E 92 20 D1 55 49 54 20 50 52 4F |T"..... .UIT PRO| 00001230: 47 52 41 4D 20 20 20 81 12 20 92 9E 20 C5 43 48 |GRAM .. .. .CH| 00001240: 4F 50 4C 45 58 20 2D 20 4F 46 46 22 0D 35 30 37 |OPLEX - OFF".507| 00001250: 20 50 52 49 4E 54 54 41 42 28 31 39 29 22 81 12 | PRINTTAB(19)"..| 00001260: 20 92 9E 22 0D 35 30 39 20 50 52 49 4E 54 22 12 | ..".509 PRINT".| 00001270: 81 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00001280: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00001290: A2 A2 A2 A2 A2 A2 A2 A2 A2 9E 91 22 0D 35 32 31 |...........".521| 000012A0: 20 49 46 44 2D 42 3D 30 54 48 45 4E 50 52 49 4E | IFD-B=0THENPRIN| 000012B0: 54 22 91 20 C2 55 46 46 45 52 20 49 53 20 45 4D |T". .UFFER IS EM| 000012C0: 50 54 59 91 22 3A 47 4F 54 4F 35 33 35 0D 35 32 |PTY.":GOTO535.52| 000012D0: 32 20 50 52 49 4E 54 22 91 20 22 3B 44 2D 42 3B |2 PRINT". ";D-B;| 000012E0: 22 42 59 54 45 20 46 49 4C 45 20 49 4E 20 42 55 |"BYTE FILE IN BU| 000012F0: 46 46 45 52 91 22 0D 35 33 35 20 47 45 54 4F 50 |FFER.".535 GETOP| 00001300: 24 3A 49 46 4F 50 24 3D 22 22 54 48 45 4E 35 33 |$:IFOP$=""THEN53| 00001310: 35 0D 35 34 30 20 4D 24 3D 22 4E 22 3A 4F 50 3D |5.540 M$="N":OP=| 00001320: 56 41 4C 28 4F 50 24 29 3A 50 52 49 4E 54 4F 50 |VAL(OP$):PRINTOP| 00001330: 3B 22 91 22 0D 35 34 35 20 4F 4E 4F 50 47 4F 54 |;".".545 ONOPGOT| 00001340: 4F 31 30 30 2C 38 30 30 2C 33 35 2C 33 38 30 2C |O100,800,35,380,| 00001350: 37 30 30 2C 34 35 2C 31 32 39 30 2C 31 34 30 30 |700,45,1290,1400| 00001360: 2C 31 36 30 30 0D 35 35 30 20 49 46 4F 50 24 3D |,1600.550 IFOP$=| 00001370: 22 41 22 54 48 45 4E 31 35 31 30 0D 35 36 30 20 |"A"THEN1510.560 | 00001380: 49 46 4F 50 24 3D 22 42 22 54 48 45 4E 43 4C 4F |IFOP$="B"THENCLO| 00001390: 53 45 35 3A 47 4F 54 4F 30 0D 35 36 35 20 49 46 |SE5:GOTO0.565 IF| 000013A0: 4F 50 24 3D 22 43 22 54 48 45 4E 34 30 30 0D 35 |OP$="C"THEN400.5| 000013B0: 37 30 20 49 46 4F 50 24 3D 22 44 22 54 48 45 4E |70 IFOP$="D"THEN| 000013C0: 34 31 30 0D 35 38 30 20 49 46 4F 50 24 3D 22 45 |410.580 IFOP$="E| 000013D0: 22 54 48 45 4E 34 32 30 0D 35 38 32 20 49 46 4F |"THEN420.582 IFO| 000013E0: 50 24 3D 22 46 22 54 48 45 4E 34 33 30 0D 35 38 |P$="F"THEN430.58| 000013F0: 35 20 49 46 4F 50 24 3D 22 47 22 54 48 45 4E 43 |5 IFOP$="G"THENC| 00001400: 4C 4F 53 45 35 3A 50 52 49 4E 54 22 11 11 11 22 |LOSE5:PRINT"..."| 00001410: 3A 4E 45 57 0D 35 39 30 20 47 4F 54 4F 6D FF FF |:NEW.590 GOTOm..| 00001420: FB FF FF FF FF D0 FF FF DD FF FF FF FF FF FF FF |................| 00001430: FF D2 FF FF EE ED FF FF FF FF FF FF FF FF FF FF |................| 00001440: FF FF FF FF FF FF FF FF D0 FF FF FF FF FF FF D0 |................| 00001450: FF FF FF FF FF D2 FF FF FF FF FF FF FF FF FF FF |................| 00001460: FF FF FF FF FF FF FF D4 D0 FF D1 FF FF FF FB FF |................| 00001470: FF FF FF FF FF D2 FF ED FF FF 3B 3B 3B FF FF FF |..........;;;...| 00001480: FF FF FF DC FF FF FF FF FF FF D2 FF FF FF D0 ED |................| 00001490: FF D0 DD FF FF FF D2 FF FF FF D2 FF D7 FF FF FF |................| 000014A0: FF FF FF FF FF D0 FF D5 FF FF FF D1 FF FF FF FF |................| 000014B0: FF FF FF E2 ED FF D4 D0 FF D1 FF FF FF FB FF FF |................| 000014C0: FF FF D4 D0 FF EE FF FF FF FF FF FB FF FF FF FF |................| 000014D0: FF FF D2 FF ED FF 05 D3 41 56 49 4E 47 20 12 20 |........AVING . | 000014E0: 22 3B 41 46 24 3B 22 20 92 20 54 4F 20 44 49 53 |";AF$;" . TO DIS| 000014F0: 4B 22 0D 37 30 35 20 4F 50 45 4E 38 2C 38 2C 38 |K".705 OPEN8,8,8| 00001500: 2C 22 40 30 3A 22 2B 41 46 24 2B 22 2C 53 2C 57 |,"@0:"+AF$+",S,W| 00001510: 22 0D 37 32 30 20 46 4F 52 58 3D 42 54 4F 44 3A |".720 FORX=BTOD:| 00001520: 50 52 49 4E 54 23 38 2C 43 48 52 24 28 50 45 45 |PRINT#8,CHR$(PEE| 00001530: 4B 28 58 29 29 3B 3A 4E 45 58 54 3A 50 52 49 4E |K(X));:NEXT:PRIN| 00001540: 54 23 38 2C 43 48 52 24 28 39 32 29 0D 37 33 30 |T#8,CHR$(92).730| 00001550: 20 50 52 49 4E 54 22 11 C3 4C 4F 53 49 4E 47 20 | PRINT"..LOSING | 00001560: 44 49 53 4B 20 46 49 4C 45 9E 22 3A 43 4C 4F 53 |DISK FILE.":CLOS| 00001570: 45 38 3A 47 4F 54 4F 34 33 39 0D 38 30 30 20 50 |E8:GOTO439.800 P| 00001580: 52 49 4E 54 22 93 81 12 A2 9E 20 C3 2D 36 34 20 |RINT"..... .-64 | 00001590: D4 D2 C1 CE D3 2D D4 C5 D2 CD 20 31 2E 30 20 C2 |.....-.... 1.0 .| 000015A0: 55 53 41 52 4F 57 20 28 43 29 20 31 39 38 33 20 |USAROW (C) 1983 | 000015B0: 81 A2 9E 22 0D 38 30 31 20 50 52 49 4E 54 22 1D |...".801 PRINT".| 000015C0: 1D 1D 1D 1D 1D 1D 12 20 D3 50 45 43 49 41 4C 20 |....... .PECIAL | 000015D0: C6 55 4E 43 54 49 4F 4E 20 CB 45 59 53 20 92 11 |.UNCTION .EYS ..| 000015E0: 22 0D 38 30 35 20 50 52 49 4E 54 22 11 1D D9 4F |".805 PRINT"...O| 000015F0: 55 52 20 C9 C4 23 20 20 20 20 20 20 20 12 20 C6 |UR ..# . .| 00001600: 31 20 92 20 2D 20 05 22 3B 3A 46 4F 52 58 3D 38 |1 . - .";:FORX=8| 00001610: 33 30 54 4F 49 44 3A 50 52 49 4E 54 43 48 52 24 |30TOID:PRINTCHR$| 00001620: 28 50 45 45 4B 28 58 29 29 3B 3A 4E 45 58 54 3A |(PEEK(X));:NEXT:| 00001630: 50 52 49 4E 54 0D 38 31 30 20 50 52 49 4E 54 22 |PRINT.810 PRINT"| 00001640: 1D 9E D9 4F 55 52 20 50 41 53 53 57 4F 52 44 20 |...OUR PASSWORD | 00001650: 20 12 20 C6 32 20 92 20 2D 20 05 22 3B 3A 46 4F | . .2 . - .";:FO| 00001660: 52 58 3D 38 35 30 54 4F 50 41 3A 50 52 49 4E 54 |RX=850TOPA:PRINT| 00001670: 43 48 52 24 28 50 45 45 4B 28 58 29 29 3B 3A 4E |CHR$(PEEK(X));:N| 00001680: 45 58 54 3A 50 52 49 4E 54 0D 38 32 30 20 50 52 |EXT:PRINT.820 PR| 00001690: 49 4E 54 22 1D 9E D9 4F 55 52 20 4D 45 4D 42 45 |INT"...OUR MEMBE| 000016A0: 52 20 23 20 20 12 20 C6 33 20 92 20 2D 20 05 22 |R # . .3 . - ."| 000016B0: 3B 3A 46 4F 52 58 3D 38 37 30 54 4F 4D 45 3A 50 |;:FORX=870TOME:P| 000016C0: 52 49 4E 54 43 48 52 24 28 50 45 45 4B 28 58 29 |RINTCHR$(PEEK(X)| 000016D0: 29 3B 3A 4E 45 58 54 3A 50 52 49 4E 54 0D 38 33 |);:NEXT:PRINT.83| 000016E0: 30 20 50 52 49 4E 54 22 1D 9E D9 4F 55 52 20 41 |0 PRINT"...OUR A| 000016F0: 43 43 45 53 53 20 23 20 20 12 20 C6 34 20 92 20 |CCESS # . .4 . | 00001700: 2D 20 05 22 3B 3A 46 4F 52 58 3D 38 39 30 54 4F |- .";:FORX=890TO| 00001710: 41 43 3A 50 52 49 4E 54 43 48 52 24 28 50 45 45 |AC:PRINTCHR$(PEE| 00001720: 4B 28 58 29 29 3B 3A 4E 45 58 54 3A 50 52 49 4E |K(X));:NEXT:PRIN| 00001730: 54 0D 38 34 30 20 50 52 49 4E 54 22 9E 11 11 1D |T.840 PRINT"....| 00001740: 1D 1D C1 4C 4C 20 CF CB 20 3F 22 0D 38 34 35 20 |...LL .. ?".845 | 00001750: 47 45 54 41 24 3A 49 46 41 24 3D 22 22 54 48 45 |GETA$:IFA$=""THE| 00001760: 4E 38 34 35 0D 38 34 36 20 49 46 41 24 3D 22 4E |N845.846 IFA$="N| 00001770: 22 54 48 45 4E 38 35 30 0D 38 34 37 20 47 4F 54 |"THEN850.847 GOT| 00001780: 4F 34 33 39 0D 38 35 30 20 50 52 49 4E 54 22 11 |O439.850 PRINT".| 00001790: 1D 1D 1D D3 45 4C 45 43 54 20 12 C6 31 92 20 2D |....ELECT ..1. -| 000017A0: 20 12 C6 34 92 20 54 4F 20 43 48 41 4E 47 45 11 | ..4. TO CHANGE.| 000017B0: 22 0D 38 35 32 20 47 45 54 41 24 3A 49 46 41 24 |".852 GETA$:IFA$| 000017C0: 3D 22 22 54 48 45 4E 38 35 32 0D 38 35 34 20 49 |=""THEN852.854 I| 000017D0: 46 41 24 3D 43 48 52 24 28 31 33 33 29 54 48 45 |FA$=CHR$(133)THE| 000017E0: 4E 50 52 49 4E 54 22 1D 1D 1D C9 4E 50 55 54 20 |NPRINT"....NPUT | 000017F0: C9 C4 20 23 22 3A 49 44 3D 38 33 30 3A 47 4F 54 |.. #":ID=830:GOT| 00001800: 4F 38 39 30 0D 38 35 35 20 49 46 41 24 3D 43 48 |O890.855 IFA$=CH| 00001810: 52 24 28 31 33 37 29 54 48 45 4E 50 52 49 4E 54 |R$(137)THENPRINT| 00001820: 22 1D 1D 1D C9 4E 50 55 54 20 50 41 53 53 57 4F |"....NPUT PASSWO| 00001830: 52 44 22 3A 50 41 3D 38 35 30 3A 47 4F 54 4F 39 |RD":PA=850:GOTO9| 00001840: 31 35 0D 38 35 36 20 49 46 41 24 3D 43 48 52 24 |15.856 IFA$=CHR$| 00001850: 28 31 33 34 29 54 48 45 4E 50 52 49 4E 54 22 1D |(134)THENPRINT".| 00001860: 1D 1D C9 4E 50 55 54 20 4D 45 4D 42 45 52 20 23 |...NPUT MEMBER #| 00001870: 22 3A 4D 45 3D 38 37 30 3A 47 4F 54 4F 39 33 35 |":ME=870:GOTO935| 00001880: 0D 38 35 37 20 49 46 41 24 3D 43 48 52 24 28 31 |.857 IFA$=CHR$(1| 00001890: 33 38 29 54 48 45 4E 50 52 49 4E 54 22 1D 1D 1D |38)THENPRINT"...| 000018A0: C9 4E 50 55 54 20 41 43 43 45 53 53 20 23 22 3A |.NPUT ACCESS #":| 000018B0: 41 43 3D 38 39 30 3A 47 4F 54 4F 39 35 35 0D 38 |AC=890:GOTO955.8| 000018C0: 36 30 20 47 4F 54 4F 38 35 32 0D 38 39 30 20 47 |60 GOTO852.890 G| 000018D0: 45 54 41 24 3A 49 46 41 24 3D 22 22 54 48 45 4E |ETA$:IFA$=""THEN| 000018E0: 38 39 30 0D 38 39 32 20 41 3D 41 53 43 28 41 24 |890.892 A=ASC(A$| 000018F0: 29 3A 50 52 49 4E 54 41 24 3B 3A 50 4F 4B 45 49 |):PRINTA$;:POKEI| 00001900: 44 2C 41 3A 49 44 3D 49 44 2B 31 3A 49 46 41 24 |D,A:ID=ID+1:IFA$| 00001910: 3D 43 48 52 24 28 31 33 29 54 48 45 4E 39 30 30 |=CHR$(13)THEN900| 00001920: 0D 38 39 34 20 47 4F 54 4F 38 39 30 0D 39 30 30 |.894 GOTO890.900| 00001930: 20 4F 50 45 4E 38 2C 38 2C 38 2C 22 40 30 3A C6 | OPEN8,8,8,"@0:.| 00001940: 31 2C 53 2C 57 22 3A 46 4F 52 58 3D 38 33 30 54 |1,S,W":FORX=830T| 00001950: 4F 49 44 3A 50 52 49 4E 54 23 38 2C 43 48 52 24 |OID:PRINT#8,CHR$| 00001960: 28 50 45 45 4B 28 58 29 29 3B 3A 49 46 50 45 45 |(PEEK(X));:IFPEE| 00001970: 4B 28 58 29 3D 31 33 54 48 45 4E 39 39 30 0D 39 |K(X)=13THEN990.9| 00001980: 31 30 20 4E 45 58 54 0D 39 31 35 20 47 45 54 41 |10 NEXT.915 GETA| 00001990: 24 3A 49 46 41 24 3D 22 22 54 48 45 4E 39 31 35 |$:IFA$=""THEN915| 000019A0: 0D 39 31 36 20 41 3D 41 53 43 28 41 24 29 3A 50 |.916 A=ASC(A$):P| 000019B0: 52 49 4E 54 41 24 3B 3A 50 4F 4B 45 50 41 2C 41 |RINTA$;:POKEPA,A| 000019C0: 3A 50 41 3D 50 41 2B 31 3A 49 46 41 01 01 01 01 |:PA=PA+1:IFA....| 000019D0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 000019E0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 000019F0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A00: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A10: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A20: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A30: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A40: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A50: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A60: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A70: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A80: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001A90: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001AA0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001AB0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001AC0: 01 01 01 01 01 01 01 01 01 01 |.......... |
..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
". RESET BUFFER ? .Y.ES OR .N.O".31 GE
TN$:IFN$=""THEN31.32 IFN$="N"THENPRINT".
.":RETURN.33 IFN$="Y"THEND=B:PRINT"..":R
ETURN.34 GOTO30.35 PRINT"...........*.BU
FFER CONTENTS.*..":FORX=BTOD:GETA$:IFA$=
""THEN38.36 GETA$:IFA$=""THEN36.37 IFA$=
"."THEN439.38 PRINTCHR$(PEEK(X));:NEXT:P
RINT". ":PRINT:PRINT".................*
END *.".39 GETA$:IFA$=""THEN39.40 GOTO43
9.45 GOSUB1100:D=B.46 G=1:PRINT".
.* LOADING *. ":PRINT:OPEN8,8,8
,"0:"+AF$+",S,R".47 GET#8,A$:IFA$=""THEN
G=1:GOTO47.49 IFA$="_"THENA$=CHR$(13).50
IFA$=CHR$(199)THENG=G+1:IFG=5THEN600.51
A=ASC(A$):POKED,A:D=D+1:IFD=P-1THENPOKE
D,92:GOTO439.52 PRINTA$;:GOTO47.60 PRINT
" .":PRINT". ECHOPLEX ON ? .Y.ES OR
.N.O".61 GETE$:IFE$=""THEN61.62 IFE$="N"
THENRETURN.63 IFE$="Y"THENRETURN.64 GOTO
61.100 GOSUB30:GOSUB60:GOTO212.110 DIMF%
(255),T%(255):FORJ=32TO64:T%(J)=J:NEXT:T
%(13)=13:T%(20)=8.120 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:N
EXT:FORJ=91TO95:T%(J)=J:NEXT.160 FORJ=19
3TO218:K=J-128:T%(J)=K:NEXT.180 FORJ=0TO
255:K=T%(J):IFK<>0THENF%(K)=J:F%(K+128)=
J:NEXT.210 NEXT:RETURN.212 PRINT"..... *
C-64 TRANS-TERM 64 TO ASCII * ....
".217 IFM$="Y"THENPRINT"..".218 GOTO1.30
0 IFPEEK(950)=69THENPR$="EVEN".305 IFPEE
K(950)=79THENPR$="ODD".310 IFPEEK(950)=7
8THENPR$="NONE".315 IFPEEK(951)=83THENWD
$="SEVEN".320 IFPEEK(951)=69THENWD$="EIG
HT".325 IFPEEK(952)=79THENST$="ONE".330
IFPEEK(952)=84THENST$="TWO".335 IFPEEK(9
53)=70THENEC$="FULL".340 IFPEEK(953)=72T
HENEC$="HALF".350 RETURN.380 PRINT" WHIC
H PRINTER? .V.IC OR .P.ROWRITER".382 GE
TA$:IFA$=""THEN382.383 IFA$="V"THEN389.3
84 IFA$="P"THEN392.385 GOTO439.389 OPEN4
,4,7:POKE53265,11:FORX=BTOD.390 PRINT#4,
CHR$(PEEK(X));:NEXTX:CLOSE4:POKE53265,27
:GOTO439.392 OPEN4,4,7:POKE53265,11:FORX
=BTOD.393 PRINT#4,CHR$(27);CHR$(80)CHR$(
PEEK(X));:NEXTX:CLOSE4:POKE53265,27:GOTO
439.400 IFPR$="NONE"THENPR$="EVEN":POKE8
29,(PEEK(829)+96):POKE950,69:GOTO439.402
IFPR$="EVEN"THENPR$=" ODD":POKE829,(PEE
K(829)-64):POKE950,79:GOTO439.404 IFPR$=
" ODD"THENPR$="NONE":POKE829,(PEEK(829)-
32):POKE950,78:GOTO439.410 IFWD$="EIGHT"
THENWD$="SEVEN":POKE828,(PEEK(828)+32):P
OKE951,83:GOTO439.412 IFWD$="SEVEN"THENW
D$="EIGHT":POKE828,(PEEK(828)-32):POKE95
1,69:GOTO439.420 IFST$="ONE"THENST$="TWO
":POKE828,(PEEK(828)+128):POKE952,84:GOT
O439.422 IFST$="TWO"THENST$="ONE":POKE82
8,(PEEK(828)-128):POKE952,79:GOTO439.430
IFEC$="FULL"THENEC$="HALF":POKE829,(PEE
K(829)+16):POKE953,72:GOTO439.432 IFEC$=
"HALF"THENEC$="FULL":POKE829,(PEEK(829)-
16):POKE953,70:GOTO439.439 PRINT"..... C
-64 TRANS-TERM 1.0 BUSAROW (C) 1983 ....
".470 PRINT".......OPTION LIST..........
...FUNCTION KEYS......";.479 PRINT"
.. ..".480 PRINT"..1.. ASC
II TERMINAL .. .. .F1.= USER ID #".481 P
RINT"..2.. DISPLAY F1-F4 .. .. .F2.= PA
SSWORD".485 PRINT"..3.. DISPLAY BUFFN..&
..A..HJE.V......#A....|X.......X...X...
.$.%B.%TMI.....D.........H.JJI.NH.J....L
........ .......IN....Z.FER .. .. .F5
.= OPEN BUFFER".490 PRINT"..6.. LOAD BUF
FER .. .. .F6.= CLOSE BUFFER".492 PRI
NT"..7.. SEND BUFFER .. .. .F7.= RETU
RN TO MENU".493 PRINT"..8.. BASIC TO FIL
E .. .. .F8.= RECEIVE BASIC".494 PRINT"
..9.. FILE TO BASIC .. ..".495 PRINT"..
A.. CREATE FILE .. ........PARAMETERS
........";.499 PRINT"..B.. REBOOT PROGRA
M .. ..".500 PRINT"..C.. SET PARITY
.. .. PARITY - ";PR$ ".501 PRINT"
..D.. SET WORDSIZE .. .. WORDSIZE - ";
WD$.503 PRINT"..E.. SET STOPBITS .. ..
STOPBITS - ";ST$.504 PRINT"..F.. SET DU
PLEX .. .. DUPLEX - ";EC$.505 PRIN
T"..G.. QUIT PROGRAM .. .. ECHOPLEX -
OFF".507 PRINTTAB(19)".. ..".509 PRINT".
........................................
...".521 IFD-B=0THENPRINT". BUFFER IS EM
PTY.":GOTO535.522 PRINT". ";D-B;"BYTE FI
LE IN BUFFER.".535 GETOP$:IFOP$=""THEN53
5.540 M$="N":OP=VAL(OP$):PRINTOP;".".545
ONOPGOTO100,800,35,380,700,45,1290,1400
,1600.550 IFOP$="A"THEN1510.560 IFOP$="B
"THENCLOSE5:GOTO0.565 IFOP$="C"THEN400.5
70 IFOP$="D"THEN410.580 IFOP$="E"THEN420
.582 IFOP$="F"THEN430.585 IFOP$="G"THENC
LOSE5:PRINT"...":NEW.590 GOTOM.......P..
.........R......................P......P
.....R.................TP.Q..........R..
..;;;.............R...P..P....R...R.W...
.....P.U...Q..........TP.Q........TP....
..........R....SAVING . ";AF$;" . TO DIS
K".705 OPEN8,8,8,"@0:"+AF$+",S,W".720 FO
RX=BTOD:PRINT#8,CHR$(PEEK(X));:NEXT:PRIN
T#8,CHR$(92).730 PRINT".CLOSING DISK FIL
E.":CLOSE8:GOTO439.800 PRINT"..... C-64
TRANS-TERM 1.0 BUSAROW (C) 1983 ...".801
PRINT"........ SPECIAL FUNCTION KEYS ..
".805 PRINT"..YOUR ID# . F1 . - ."
;:FORX=830TOID:PRINTCHR$(PEEK(X));:NEXT:
PRINT.810 PRINT"..YOUR PASSWORD . F2 .
- .";:FORX=850TOPA:PRINTCHR$(PEEK(X));:N
EXT:PRINT.820 PRINT"..YOUR MEMBER # . F
3 . - .";:FORX=870TOME:PRINTCHR$(PEEK(X)
);:NEXT:PRINT.830 PRINT"..YOUR ACCESS #
. F4 . - .";:FORX=890TOAC:PRINTCHR$(PEE
K(X));:NEXT:PRINT.840 PRINT"......ALL OK
?".845 GETA$:IFA$=""THEN845.846 IFA$="N
"THEN850.847 GOTO439.850 PRINT"....SELEC
T .F1. - .F4. TO CHANGE.".852 GETA$:IFA$
=""THEN852.854 IFA$=CHR$(133)THENPRINT".
..INPUT ID #":ID=830:GOTO890.855 IFA$=CH
R$(137)THENPRINT"...INPUT PASSWORD":PA=8
50:GOTO915.856 IFA$=CHR$(134)THENPRINT".
..INPUT MEMBER #":ME=870:GOTO935.857 IFA
$=CHR$(138)THENPRINT"...INPUT ACCESS #":
AC=890:GOTO955.860 GOTO852.890 GETA$:IFA
$=""THEN890.892 A=ASC(A$):PRINTA$;:POKEI
D,A:ID=ID+1:IFA$=CHR$(13)THEN900.894 GOT
O890.900 OPEN8,8,8,"@0:F1,S,W":FORX=830T
OID:PRINT#8,CHR$(PEEK(X));:IFPEEK(X)=13T
HEN990.910 NEXT.915 GETA$:IFA$=""THEN915
.916 A=ASC(A$):PRINTA$;:POKEPA,A:PA=PA+1
:IFA....................................
........................................
........................................
........................................
........................................
........................................
..................
> CLICK IMAGE PREVIEW FOR FULL MODAL