home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 June
/
1984-06.d64
/
vm
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
53 lines
100 poke36879,24:poke36865,24:gosub800
120 print"[147]one moment please...":gosub500
140 sp$=" "
172 np=int(it/8):cp=0
175 printchr$(142);
180 poke36867,0
185 print"[147][146][144][169] compute!'s gazette [144][223]";
190 a$="contents:"+mo$+" 1984"
195 cx=11-len(a$)/2:a$=left$(left$(sp$,cx)+a$+sp$,22):printa$;
200 print"[159][144][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
245 print"[146]press to see:"
250 s=cp*8:e=cp*8+7:ife>itthene=it
260 fori=stoe:print"[144]f";chr$(49+i-cp*8);"[146]";
262 a$=n$(i):k=len(a$):ifk<19then268
265 a$=n$(i):fork=19to1step-1
266 ifmid$(a$,k,1)<>" "thennextk:stop
267 k=k-1
268 printleft$(a$,k):print" "mid$(a$,k+2,18)
300 nexti
310 print" page #";cp+1;"of";np+1
320 print"[144][223][146] next page:return[144][169][146][157][148] ";
325 if(e-s)>6then337
330 print"";:fori=1to(7-(e-s))*2-1:print"[144]";sp$;:next
335 printleft$(sp$,21)"[157][148] ";
337 poke36867,46
340 sys828:geta$:ifa$<>chr$(13)and(a$<"[133]"ora$>"[140]")then340
350 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
355 ifa$=chr$(13)then175
360 fv=(asc(a$)-133)*2+1:fv=fv+7*(fv>8)
365 c=fv+cp*8-1:ifc>itthen340
470 poke36879,27:print"[147][146][142]load";chr$(34);f$(c);chr$(34);",8":i$="run"
480 fori=1tolen(i$):poke631+i,asc(mid$(i$,i)):next
490 poke631+i,13:poke631,13:poke198,i+1:end
499 end
500 open15,8,15,"i0"
510 open1,8,8,"0:vicontents,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:":printen;em$
620 print"[195]heck:"
630 print"1)[208]roper disk?
640 [153]"2)str$rive door closed?
650 print"3)[193]ll cables attached?"
660 print"[210]emove, then re-insertdisk, press any key to try again."
670 geta$:ifa$=""then670
680 run
800 fori=828to858:reada:pokei,a:next:return
900 data 120,173,4,144,205,96,3,240,248,141,96,3,41,248,10,9,8,141,15,144,32,159,255
910 data 165,197,201,64,240,228,88,96