00000000: 0D 0D 31 30 30 20 50 52 49 4E 54 43 48 52 24 28 |..100 PRINTCHR$(|
00000010: 31 34 29 22 93 05 12 20 20 20 20 20 20 20 20 20 |14)"... |
00000020: C1 D5 D4 CF 2D C4 C9 C1 CC 20 D4 D2 C1 CE D3 2D |....-.... .....-|
00000030: D4 C5 D2 CD 20 20 20 20 20 20 20 20 20 20 20 11 |.... .|
00000040: 22 0D 32 30 30 20 50 52 49 4E 54 22 05 11 11 11 |".200 PRINT"....|
00000050: 11 1D 1D 1D 1D 1D C3 4F 4C 4F 52 20 4F 52 20 CD |.......OLOR OR .|
00000060: 4F 4E 4F 43 48 52 4F 4D 45 20 CD 4F 4E 49 54 4F |ONOCHROME .ONITO|
00000070: 52 22 3A 50 52 49 4E 54 22 1D 1D 1D 1D 1D A3 1D |R":PRINT".......|
00000080: 1D 1D 1D 1D 1D 1D 1D A3 22 0D 33 30 30 20 47 45 |........".300 GE|
00000090: 54 41 24 3A 49 46 41 24 3D 22 22 54 48 45 4E 33 |TA$:IFA$=""THEN3|
000000A0: 30 30 0D 34 30 30 20 49 46 41 24 3D 22 4D 22 54 |00.400 IFA$="M"T|
000000B0: 48 45 4E 50 4F 4B 45 35 33 32 38 31 2C 30 3A 50 |HENPOKE53281,0:P|
000000C0: 4F 4B 45 35 33 32 38 30 2C 30 3A 47 4F 54 4F 36 |OKE53280,0:GOTO6|
000000D0: 30 30 0D 35 30 30 20 50 4F 4B 45 35 33 32 38 30 |00.500 POKE53280|
000000E0: 2C 38 3A 50 4F 4B 45 35 33 32 38 31 2C 36 0D 36 |,8:POKE53281,6.6|
000000F0: 30 30 20 50 4F 4B 45 38 32 35 2C 35 32 3A 50 52 |00 POKE825,52:PR|
00000100: 49 4E 54 22 93 9E 12 20 20 C3 2D 36 34 20 D4 D2 |INT"... .-64 ..|
00000110: C1 CE D3 2D D4 C5 D2 CD 20 31 2E 30 20 C2 55 53 |...-.... 1.0 .US|
00000120: 41 52 4F 57 20 28 43 29 20 31 39 38 33 20 20 22 |AROW (C) 1983 "|
00000130: 0D 37 30 30 20 49 46 41 24 3D 22 4D 22 54 48 45 |.700 IFA$="M"THE|
00000140: 4E 50 52 49 4E 54 22 05 11 11 11 11 11 11 11 11 |NPRINT".........|
00000150: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |............... |
00000160: CC CF C1 C4 C9 CE C7 20 D4 D2 C1 CE D3 D4 C5 D2 |....... ........|
00000170: CD 20 92 90 22 3A 47 4F 54 4F 39 30 30 0D 38 30 |. ..":GOTO900.80|
00000180: 30 20 50 52 49 4E 54 22 05 11 11 11 11 11 11 11 |0 PRINT"........|
00000190: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
000001A0: 20 CC CF C1 C4 C9 CE C7 20 D4 D2 C1 CE D3 D4 C5 | ....... .......|
000001B0: D2 CD 20 92 95 22 0D 39 30 30 20 50 52 49 4E 54 |.. ..".900 PRINT|
000001C0: 22 13 11 11 4C CF 22 43 48 52 24 28 33 34 29 22 |"...L."CHR$(34)"|
000001D0: 41 55 54 4F 2D 44 49 41 4C 22 43 48 52 24 28 33 |AUTO-DIAL"CHR$(3|
000001E0: 34 29 22 2C 38 22 3A 50 52 49 4E 54 22 4E 45 57 |4)",8":PRINT"NEW|
000001F0: 22 0D 39 31 30 20 50 4F 4B 45 39 35 30 2C 36 39 |".910 POKE950,69|
00000200: 3A 50 4F 4B 45 39 35 31 2C 38 33 3A 50 4F 4B 45 |:POKE951,83:POKE|
00000210: 39 35 32 2C 37 39 3A 50 4F 4B 45 39 35 33 2C 37 |952,79:POKE953,7|
00000220: 30 0D 39 32 30 20 50 4F 4B 45 38 32 38 2C 33 38 |0.920 POKE828,38|
00000230: 3A 50 4F 4B 45 38 32 39 2C 39 36 3A 50 4F 4B 45 |:POKE829,96:POKE|
00000240: 31 39 38 2C 39 0D 39 34 30 20 44 41 54 41 31 39 |198,9.940 DATA19|
00000250: 2C 31 37 2C 31 37 2C 31 33 2C 31 33 2C 38 32 2C |,17,17,13,13,82,|
00000260: 38 35 2C 37 38 2C 31 33 0D 39 36 30 20 46 4F 52 |85,78,13.960 FOR|
00000270: 49 3D 31 54 4F 39 3A 52 45 41 44 58 3A 50 4F 4B |I=1TO9:READX:POK|
00000280: 45 36 33 30 2B 49 2C 58 3A 4E 45 58 54 3A 4E 45 |E630+I,X:NEXT:NE|
00000290: 57 0D 0A 52 45 41 44 59 2E 0D 0A 0D |W..READY.... |
..100 PRINTCHR$(14)"... AUTO-DIA
L TRANS-TERM .".200 PRINT"....
......COLOR OR MONOCHROME MONITOR":PRINT
"...............".300 GETA$:IFA$=""THEN3
00.400 IFA$="M"THENPOKE53281,0:POKE53280
,0:GOTO600.500 POKE53280,8:POKE53281,6.6
00 POKE825,52:PRINT"... C-64 TRANS-TERM
1.0 BUSAROW (C) 1983 ".700 IFA$="M"THE
NPRINT"........................ LOADING
TRANSTERM ..":GOTO900.800 PRINT"........
................ LOADING TRANSTERM ..".9
00 PRINT"...LO"CHR$(34)"AUTO-DIAL"CHR$(3
4)",8":PRINT"NEW".910 POKE950,69:POKE951
,83:POKE952,79:POKE953,70.920 POKE828,38
:POKE829,96:POKE198,9.940 DATA19,17,17,1
3,13,82,85,78,13.960 FORI=1TO9:READX:POK
E630+I,X:NEXT:NEW..READY....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL