home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1986 April
/
1986-04.d64
/
mn
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
71 lines
10 goto110
12 poke53265,27
13 printchr$(14)"[147] [194]efore attempting to run any programs"
14 print" please refer to the instructions in"
16 print" the [195][207][205][208][213][212][197]!'s [199]azette [205]agazine issue"
18 print" dated the same month as this disk."
20 print" [208]lease note the [199]azette [196]isk often"
22 print" features programs which write data"
24 print" to the disk. [195]opy those programs to"
26 print" another disk - this disk is write"
28 print" protected."
30 print" [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
32 getmt$:ifmt$=""then32
34 return
110 poke53282,8:poke53283,15:poke53284,2
120 gosub500
140 sp$=" "
150 a$="table of contents for "+mo$+" 1986":cx=20-len(a$)/2
151 z$="":a$=left$(sp$,cx)+a$+sp$:fori=1to40
152 z$=z$+chr$(asc(mid$(a$,i))+128):next
172 np=int(it/8):cp=0
173 gosub12
175 poke53265,peek(53265)or64
176 poke53280,14:poke53281,14
177 print"[147][142]----------------------------------------";
180 print"[158][195][207][205][208][213][212][197][161][167][211][160][199][193][218][197][212][212][197][160][173][160][182][180][172][160][177][178][184][172][160][193][206][196][160][214][201][195][173][178][176]";z$;
200 print"[158][160][160][160][168][195][169][160][177][185][184][182][160][195][207][205][208][213][212][197][161][160][208][213][194][204][201][195][193][212][201][207][206][211][172][201][206][195][174][160][160]";
245 print"[146]----------------------------------------";
250 s=cp*8:e=cp*8+7:ife>itthene=it
260 fori=stoe:print"[160]";chr$(177+i-cp*8);"[160][151]";n$(i);
270 printleft$(sp$,36-len(n$(i)));
280 print"[146]----------------------------------------";
300 next:ifnp+1=1thenxz=1:print"":goto330
310 print"this is page #";cp+1;"of";np+1
320 print"press [158][210][197][212][213][210][206][146] for next page[145][145]"
330 print"[145][145][158][208][210][197][211][211][160][177][173][184][160][212][207][160][204][207][193][196][160][195][207][210][210][197][211][208][207][206][196][201][206][199][160][208][210][207][199][210][193][205][160]"
340 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8")then340
341 ifxz=1anda$=chr$(13)then340
342 ifxz=1then360
350 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
355 ifa$=chr$(13)then175
360 fv=(asc(a$)-48):fv=fv+7*(fv>8)
365 c=fv+cp*8-1:ifc>itthen340
470 sys65409:print"[142]load";chr$(34);f$(c);chr$(34);",8":i$="run"
480 fori=1tolen(i$):poke631+i,asc(mid$(i$,i)):next
481 poke53280,6:print"";
482 printtab(18-len(f$(c))/2-4)"loading ";chr$(34)f$(c)chr$(34)
483 print" please stand by"
490 poke631+i,13:poke631+i+1,28:poke631,13:poke198,i+1:end
500 open15,8,15,"i0"
510 open1,8,8,"0:64 contents,s,r":input#15,en,em$:if en>0 then 600
520 input#1,mo$:input#1,it:dimn$(it),f$(it)
530 fori=0toit:input#1,n$(i):input#1,f$(i):next
540 close1:close15:return
600 close1:close15
610 print"[147][195]an't read [212]able of [195]ontents"
615 print"[196]isk [197]rror:";en;em$
620 print"[195]heck:"
630 print"1) [195]orrect disk inserted?
640 [153]"2) right$s drive door closed?
650 print"3) [193]ll cables attached?"
660 print"[210]emove, then re-insert disk, press any key to try again."
670 geta$:ifa$=""then670
680 run
1360 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8")then360
1370 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
1380 ifa$=chr$(13)then230
1390 fv=(asc(a$)-48):fv=fv+7*(fv>8)
1400 c=fv+cp*8-1:ifc>tthen360
1410 poke53265,27:sys65409