Loadstar 158/158.d81/b.gfs

Commodore BASIC | 2022-08-26 | 3KB | 110 lines

6 poke56,56:clr:poke53371,0
10 poke53281,0:poke53280,0
20 dv=peek(186):ifdv<8thendv=8
30 sys57812"gfs inpany c700",dv,0:poke780,0:poke781,0:poke782,199:sys65493
32 sys57812"gfs unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
34 sys57812"gfs mouse 9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
36 sys57812"gfs font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
38 sys57812"gfs scripterc400",dv,0:poke780,0:poke781,0:poke782,196:sys65493
40 ip=199*256:un=201*256:ml=144*256:mv=ml+111:pokemv,143:sc=196*256:v=53248
42 syssc,224,204,56:syssc+3,"[144]"
50 dimw$(200)
52 sysip,"gfs data",dv
54 w$(0)=mid$(w$(0),3)
100 print"[147]":poke53272,31
102 print"[172][163][163][163][163][163][163][163][163][163][163][163][163][163][163][166][163][163][163][163][163][163][163][163][163][163][163][163][166][163][163][163][163][163][163][163][163][163][163][187]";
104 fori=0to22
106 print"[165]              [168]            [168]          [167]";
108 next
110 print"[188][164][164][164][164][164][164][164][164][164][164][164][164][164][164][220][164][164][164][164][164][164][164][164][164][164][164][164][220][164][164][164][164][164][164][164][164][164][164]"
112 poke2023,126:poke2023+54272,5
116 fori=217to242:pokei,peek(i)or128:next
118 print"[155]"
120 fori=1to23:sysml+15,i,1,14,i,i:sysml+15,i+23,16,27,i,i:next
122 fori=0to2:sysml+15,47+i,29,38,14+i*3,17+i*3:next
130 m1$="[163][163][163][163][163][163][163][163][163][163][157][157][157][157][157][157][157][157][157][157]   [201][206][198][207]   [157][157][157][157][157][157][157][157][157][157][164][164][164][164][164][164][164][164][164][164]"
132 m2$="[163][163][163][163][163][163][163][163][163][163][157][157][157][157][157][157][157][157][157][157]  [193][204][204] 46  [157][157][157][157][157][157][157][157][157][157][164][164][164][164][164][164][164][164][164][164]"
134 m3$="[163][163][163][163][163][163][163][163][163][163][157][157][157][157][157][157][157][157][157][157] [204][207][193][196][211][212][193][210] [157][157][157][157][157][157][157][157][157][157][164][164][164][164][164][164][164][164][164][164]"
150 fori=0to22
160 printtab(2)w$(i*4);
170 printtab(17)w$((i+23)*4)
180 next
200 tb=29:print"[129]"tab(tb)"[212][200][197] [205][201][199][200][212][217]"
204 printtab(tb)" [204][207][193][196][211][212][193][210]"
210 printtab(tb)"[154] [176][174][176][174][176][174][176][174]
212 [153][163]tb)" (NULL)^-\(NULL)(NULL)/^
214 printtab(tb)" [173][189][173][189][173][189][173][189]
220 [153][163]tb)"or^or^or^oror=^
222 printtab(tb)"[171]\[221][221][221][221][221] [221]
224 [153][163]tb)"exp /expexp/exp >
230 printtab(tb)"[176][174][174][176][176][174][174][160][160][176]
232 [153][163]tb)"/^-<(NULL)(NULL)(NULL)or^(NULL)
234 printtab(tb)"[173][189][189][173][173][189][173][189][173][189]
240 [153]"list":[158]ml[170]12,29,14,m1$
242 [158]ml[170]12,29,17,m2$
244 [158]ml[170]12,29,20,m3$
300 [158]ml
310 [158]ml[170]6:[151]mv[170]1,49:[151]mv[170]2,3
320 [158]ml[170]9
322 [139]rg%[177]0[175]rg%[179]24[167][158]ml[170]33,1,14,1,23,15,3:[139]sl%[167]p[178]sl%:[137]350
324 [139]rg%[177]23[175]rg%[179]46[167][158]ml[170]33,16,27,1,23,15,3:[139]sl%[167]p[178]sl%[170]23:[137]350
326 [139]rg%[177]46[167][139]l2%[167][145]rg%[171]46[141]500,600,700
340 [137]320
350 [151]v[170]21,0:[158]ml[170]39,160
370 [158]57812w$(p[172]4[171]4),dv,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
380 [151]251,64:[151]252,224:[151]253,204
382 [158]51456:[158]51459
390 [158]sc[170]6,2,8,"asc(NULL)(NULL)(NULL) (NULL)atn(NULL)val: "[170]w$(p[172]4[171]4)
392 [158]sc[170]6,2,9,"(NULL)(NULL) right$(NULL)(NULL)(NULL)val : "[170]w$(p[172]4[171]3)
394 [158]sc[170]6,2,10,"str$val(NULL)right$chr$(NULL)val(NULL) : "[170]w$(p[172]4[171]2)
396 [158]sc[170]6,2,11,"(NULL)(NULL)right$(NULL)(NULL)((NULL)) : "[170]w$(p[172]4[171]1)
397 [139]af[167][158]sc[170]6,7,22,"left$old peekutton to (NULL)uit lenycle
398 ifaf=0thensyssc+6,14,22,"[195]lick for [205]enu"
400 ifaf=0then410
404 sysml+24,200
406 goto418
410 sysml+9:ifl2%=0then410
418 sys51459
420 ifafthenreturn
430 goto310
500 pokev+21,0:sysml+39,160:ifnfthensysml+42,168:goto550
502 print"":sysml+12,29,14,m1$
510 nf=1
520 poke214,7:print:printtab(4)"[172][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][187]"
530 printtab(4)"[165][159][212]hese 46 [199]eos fonts [167]"
532 printtab(4)"[165][159]are from back issues[167]"
534 printtab(4)"[165][159]of [204][207][193][196][211][212][193][210]. [195]lick  [167]"
536 printtab(4)"[165][159]on a font to see it.[167]"
538 printtab(4)"[165][159][195]lick on  [193][204][204] 46 [146] to[167]"
540 printtab(4)"[165][159]see the fonts cycle.[167]"
542 printtab(4)"[188][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][190]"
544 sysml+39,168
550 sysml+9
560 ifl2%=0then550
570 sysml+42,160:pokev+21,1
580 return
600 print"";:sysml+12,29,17,m2$
610 af=1
620 forp=1to46:gosub350
622 sysml+9:ifl1%thenp=46
630 next
632 af=0:pokev+21,1
634 print"[155]";:sysml+12,29,17,m2$
640 return
700 print"";:sysml+12,29,20,m3$
710 sysml+24,100
720 pokev+21,0:sysml+3
730 goto40000
9999 goto9999
10000 d=peek(186):n$="b.gfs":open15,d,15,"s0:"+n$:close15:saven$,d:end
40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
40030 forj=8to29:i=peek(820+j):ifi=14thennext
40040 close2:open2,i,2:close2:ifstthen40060
40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
40060 next:return
40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
40090 print"run:":poke631,13:poke632,13:poke198,2:end