7 :
8 :REM LOWER TOP OF BASIC TO $4000
9 :
10 POKE52,64:POKE56,64:CLR
17 :
18 :REM SET BKGD AND BRDR COLOR
19 :
20 POKE53281,0:POKE53280,0
30 IFPEEK(49152)=32THEN60
37 :
38 :REM BLOAD DEMO SCREEN AND ML
39 :
40 SYS57812"DEMO",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
50 SYS57812"COPY.O",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
57 :
58 :REM     SET GLOBAL VARIABLES
59 :
60 Z=40:CM=49152:A=16384:C=54272:F=1024:R=1184
97 :
98 :REM       MAIN MENU
99 :
100 PRINT"[147][129]   [195] [207] [208] [217] [205] [197] [205]    1 9 9 0    [196] [197] [205] [207]
110 [153][163]10)"CONT(ATNCONT)REA (null)CROLL"
120 [153][163]10)"CONT((null)CONT)INDOW (null)CROLL"
130 [153][163]10)"CONT((null)CONT)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)
140 GETA$:IFA$<>"A"ANDA$<>"W"ANDA$<>"R"THEN140
150 IFA$="A"THEN200
160 IFA$="W"THEN300
170 GOTO500
197 :
198 :REM   AREA SCROLL ROUTINE
199 :
200 PRINT"[147][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
210 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":V=0
220 POKE214,22:PRINT:PRINT"     [195][210][211][210]-[213][208]/[196][207][215][206] [154]SCROLLS    [205] [154]MENU
230 [158]CM,A[170]Z[172]V,R,240:[158]CM,A[170]F[170]Z[172]V,R[170]C,240
240 [161]A$:[139]A$[179][177]"ON"[175]A$[179][177]""[175]A$[179][177]"M"[167]240
250 [139]A$[178]""[167][139]V[179]18[167]V[178]V[170]1
260 [139]A$[178]"ON"[167][139]V[167]V[178]V[171]1
270 [139]A$[178]"M"[167]100
280 [137]230
297 :
298 :[143]   WINDOW SCROLL ROUTINE
299 :
300 D[178]30:S[178]1150:Z[178]40:CM[178]49152:X[178]6:Y[178]0
310 [153]"LOADSYS     ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
320 [129]I[178]0[164]6:[153]"     (null)                              (null)":[130]
330 [153]"     /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
340 [151]214,22:[153]:[153]"      LEN(null)(null)(null) (null)VAL(null)(null)CONT SCROLL    (null) CONTMENU"
350 B[178]A[170]X[170]Y:E[178]B[170]F:G[178]S[170]C:[129]I[178]0[164]6
360 [158]CM,B[170]I[172]Z,S[170]I[172]Z,D
370 [158]CM,E[170]I[172]Z,G[170]I[172]Z,D
380 [130]
390 [161]A$:[139]A$[178]""[167]390
400 [139]A$[178]"CMD"[167][139]X[167]X[178]X[171]1
410 [139]A$[178]""[167][139]X[179]Z[171]D[171]2[167]X[178]X[170]1
420 [139]A$[178]""[167][139]Y[179]681[167]Y[178]Y[170]Z
430 [139]A$[178]"ON"[167][139]Y[167]Y[178]Y[171]Z
440 [139]A$[178]"M"[167]100
450 [137]350
497 :
498 :[143]   RETURN TO LOADSTAR
499 :
500 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER%:[160]15
510 [139]ER%[179][177]63[167][153]"LOAD":[128]
520 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
530 [153]"RUN"
540 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:BITS":[160]15:[148]"BITS",8:[128]