home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 12
/
012.d81
/
hello
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
114 lines
1 rem hello
5 ifpeek(51201)<>12orpeek(51202)<>200orpeek(52222)<>5then7
6 goto10
7 load"routines v4",8,1
10 v=53248:s=v+1024:sys52176
15 dv=peek(186):ifdv<8thendv=8
20 print"[147]":forx=stos+24:pokex,0:next
25 q$="'"
30 open8,8,8,"#":open15,8,15,"ua:8 0 18 0":print#15,"b-p:8 154"
40 get#8,n1$,n2$,a$,a$,a$,s$,a$,a$,i1$:close8:close15
45 ifi1$<>"\"thenpoke65533,.:poke65534,.:pokev+32,.:goto60
50 poke65533,val(n1$+n2$):poke65534,val(s$)
60 cd$="":si=usr(65534)
80 bs$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
90 sp$=" [160]"
120 dimix$(22,1),ix(22,1),c%(4):fori=1to4:readc%(i):next
121 data2,5,6,7
150 pokev+33,1:pokev+32,c%(si)
160 readin$:tt$="[204][207][193][196][211][212][193][210][160][206]umber "+in$
170 print"[144]";sp$;"";tab(19-len(tt$)/2);tt$:print""
190 forco=1to22
192 forc1=.to1
194 readix$(co,c1),ix(co,c1)
196 ifix$(co,.)="!"thencx=co-1:co=22:c1=3
198 nextc1
200 nextco
210 print"[150]";
230 forco=1tocx
240 poke646,c%(ix(co,.))
250 ifsi=ix(co,.)thenprint"";
251 ifix(co,.)<>ix(co-1,.)thenprint"[211]ide"ix(co,.)"[146] ";:goto290
252 print" [146] ";
290 printchr$(co+96)"[160]= "ix$(co,.);
292 printspc(22-len(ix$(co,.)));
295 ifsi=ix(co,.)thenprint"";
300 ifix(co,.)<>ix(co-1,.)thenprint"[211]ide"ix(co,.)"[146][157]";:goto310
304 print" [146]";
310 next
320 printleft$(cd$,25)"[144][215]hich "spc(24)"[216][146] to exit";bs$;
329 k$="?"
330 ks$=k$:b$="[157]":sp$(0)=""+k$+"[146]":sp$(1)="[146]"+k$+"[146]":printsp$(sp+1);b$;:sp=notsp
331 getk$:forzd=1to222:next:ifk$<" "ork$>"z"thenk$=ks$:goto330
340 ifk$="x"then19000
350 ifk$<"a"then330
355 ifk$>chr$(cx+64)then330
360 printchr$(asc(k$)or32);"[157]";
380 k=asc(k$)and31
390 ifk<=cxthen30000
400 goto330
9999 end
10000 d=peek(186):n$="hello":open15,d,15,"s0:"+n$:close15:saven$,d:end
11000 data12
12000 data"[195]ontents [205]ap",1,contents map,
12002 data"[208]ayload [208]rograms",1,payload,2
12005 data"[195]ommodore [208]rograms",1,payload,1
12006 :
12007 data"[208]ixel [208]age",2,pixel page,
12008 data"[208]aperless [208]ages",2,presenter,1
12009 data"[201]nflux",2,presenter,2
12010 data"[205]ath [210]eflections",2,presenter,3
12030 data"[194]ack [201]ssue [204]ist",2,back issue boot,
12035 data"[207]rder [198]orm",2,order form,
12040 data"[198]eedback [196]isk [205]aker",2,f.b maker.1,
15999 data!,,!,
18000 return
19000 print"[147][144] [204][207][193][196][211][212][193][210][160]is not public domain."
19005 print" [204][207][193][196][211][212][193][210][160]is unprotected for your"
19010 printtab(28);"convenience.":print"[215]e want you to be able";
19015 print" to copy, modify, and learn from the";
19017 print" programs on [204][207][193][196][211][212][193][210].":print:print"[208]lease respect this policy:"
19020 print:print"[196]o not allow unauthorized copies":printtab(29)"to be made."
19022 print:print"([211]chools may make a copy for each [195]-64.)"
19025 print:print"[212]ype [210][213][206] then press <[210][197][212][213][210][206]> to return to [204][207][193][196][211][212][193][210]."
20000 end
23000 poke646,c%(val(s$)):print"[147][212]he diskette currently in your drive is"
23010 ifi1$<>"\"thenprint" not a regular [204][207][193][196][211][212][193][210] issue.":goto24000
23020 print" side "s$" of [204][207][193][196][211][212][193][210][160]"mid$(str$(val(n1$+n2$)),2)"."
24000 poke646,c%(ix(k,.)):print""tab(17-len(ix$(k,.))/2);q$;ix$(k,.);q$;" is on"
24010 print" side"ix(k,.)"of [204][207][193][196][211][212][193][210] "in$"."
24020 print"[144] [201]nsert that side, please"
24030 printspc(19)"&"
24040 printspc(12)"press space bar"
24050 print" or press [210][197][212][213][210][206][146][160]to return to menu"
24055 print:print" ([201] suggest you turn the disk over.)
24060 [151]198,.:[146]198,1:[161]k$:[139]k$[179][177]" "[167][141]63002:[141]63000:[138]
24080 [153]
30000 [143] read side indicator
30002 [141]63000:[141]63002
30003 [137]31000
30004 [159]8,8,8,"#":[159]15,8,15,"ua:8 0 18 0":[152]15,"b-p:8 154"
30005 [161]#8,n1$,n2$,a$,a$,a$,s$,a$,a$,i1$,i2$:[160]8:[160]15
30010 [151]646,c%(ix(k,.)):[151]v[170]32,c%([197](s$))
30020 [139][197](s$)[179][177]ix(k,.)[167] 23000
30025 [151]65535,10[172][197](s$)[170]ix(k,1)
30030 [139]ix$(k,1)[178]"presenter"[175][194](597)[179][177]0[167][151]6400,0:[151]44,25:[138]
31000 ix$[178]"side"[170][196](ix(k,.)):[159]15,dv,15,"i0":[160]15
31005 [159]15,dv,15,"r0:"[170]ix$[170]"="[170]ix$:[132]15,en:[160]15
31010 [139]en[178]62[167][153]"load":[137]24000
31015 [151]65535,10[172]ix(k,.)[170]ix(k,1)
31020 [137]40000
40000 [151]53281,.:[153]"load(NULL)aunching "ix$(k,.);"stop";
40010 [151]599,0
40015 [129]i[178]0[164]23:[151]s[170]i,0:[130]
40016 [151]198,0:[151]631,13:[151]632,13
40017 [139] ix$(k,1)[179][177]"presenter"[167][151]597,0:[137]40030
40020 [153]"stopl(NULL)"[199](34)ix$(k,1)[199](34)",8":[153]"run"
40025 [151]6400,0:[151]44,25:[151]198,2:[128]
40030 [153]"load"[199](34);ix$(k,1);[199](34)",8":[153]"run"
40040 [151]631,13:[151]632,13:[151]198,2:[151]65535,10[172]ix(k,.)[170]ix(k,1):[128]
63000 [129]i[178].[164]24:[151]s[170]i,.:[130]:[151]s[170]1,100:[151]s[170]2,100:[151]s[170]5,10:[151]s[170]6,2
63001 [151]s[170]24,15:[151]s[170]4,33:[129]dl[178]1[164]600:[130]:[151]2[170]4,32:[142]
63002 [129]i[178]0[164]24:[151]s[170]i,0:[130]:[151]s[170]1,40:[151]s[170]2,40:[151]s[170]5,10:[151]s[170]6,2
63003 [151]s[170]24,15:[151]s[170]4,33:[129]dl[178]1[164]600:[130]:[151]s[170]4,32:[142]