home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 November
/
1990-11.d64
/
mn
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
96 lines
100 ifa=0thena=1:load"textreader64",8,1
110 poke56,56:poke55,0:clr
120 f=49153:fl=49170:fori=820to1023:pokei,0:next
130 n=11:dimt$(n),a$(n),p$(n)
140 fori=0 to n:read t$(i),a$(i),p$(i):next
150 sp$=" "
160 a$="compute's november gazette disk":cx=20-len(a$)/2
170 z$="":a$=left$(sp$,cx)+a$+sp$:fori=1to40
180 z$=z$+chr$(asc(mid$(a$,i))+128):next
190 np=int(n/7):cp=0:tt=183
200 poke53280,15:poke53281,15
210 poke53282,8:poke53283,1:poke53284,6
220 gosub720
230 print"[147]":poke53280,15:poke53281,15:poke53265,peek(53265)or64
240 printchr$(142)"[147][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
250 print""z$;
260 print"[160][160][168][195][169][160][177][185][185][176][160][195][207][205][208][213][212][197][160][208][213][194][204][174][160][201][206][212][167][204][172][160][204][212][196][174][160][160]";
270 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
280 print"[146][144]----------------------------------------";
290 s=cp*7:e=cp*7+6:ife>nthene=n
300 fori=stoe:print"[160]";chr$(177+i-cp*7);"[160][151]";t$(i);
310 printleft$(sp$,36-len(t$(i)));
320 print"[146][144]----------------------------------------";:next
330 print"this is page #";cp+1;"of";np+1
340 print"press [210][197][212][213][210][206][146] for next page[145][145]"
350 if cp=1 then tt=181
360 if cp=0 then tt=183
370 print"[145][145][160][208][210][197][211][211][160][177][173]"chr$(tt);
380 print"[160][212][207][160][204][207][193][196][160][193][160][208][210][207][199][210][193][205][160][207][210][160][193][210][212][201][195][204][197][160]";
390 print"[160][160][160][160][160][160][160][160][208][210][197][211][211][160][216][160][212][207][160][197][216][201][212][160][212][207][160][194][193][211][201][195][160][160][160][160][160][160][160][160]";
400 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"7"anda$<>"x")then400
410 ifa$="x"thenprint"[147]":poke53265,27:sys65409:poke56,160:poke55,0:clr:end
420 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
430 ifa$=chr$(13)then230
440 fv=(asc(a$)-48):fv=fv+6*(fv>7)
450 c=fv+cp*7-1
460 ifc>nthen400
470 if a$(c)="xx" goto 660
480 print"[147]":poke53265,27:ifcp=1 and c=11 then 690
490 b=0:print""tab(11)"article[146] or program"
500 printtab(8)"[145][145][145][145][145]press any key to switch,"
510 printtab(10)"or return[146] to select."
520 geta$:ifa$=""then520
530 ifa$=chr$(13)then570
540 ifb=0thenar$="article or program[146]":b=1:goto560
550 ar$="article[146] or program":b=0
560 print""tab(11)ar$:goto520
570 ifb=0then690
580 ifc<>3then660
590 b=0:c=1
600 cx=21-len(q$(c))/2:b$=left$(sp$,cx)+q$(c)
610 print""b$
620 geta$:ifa$=""then620
630 ifa$=chr$(13)thenp$(c)=r$(c):goto660
640 ifb=0thenc=c+1:b=1:goto600
650 c=c-1:b=0:goto600
660 print"[147][146][155]load[146]";chr$(34);p$(c);chr$(34);",8":print"run"
670 d$=p$(c):gosub1000
680 poke631,13:poke632,13:poke631,13:poke198,2:end
690 fori=1tolen(a$(c)):pokei+f,asc(mid$(a$(c),i,1)):next
700 pokefl,len(a$(c))+2:d$=t$(c)
710 print"[147]":d$=a$(c):gosub1000:sys49171:goto230
720 printchr$(14)"[147] [194]efore attempting to run any programs"
730 print" please refer to the instructions in"
740 print" [195][207][205][208][213][212][197]'s [199]azette [205]agazine issue"
750 print" dated the same month as this disk."
760 print" [208]lease note that this disk contains"
770 print" [194][207][206][213][211] programs which are not published"
780 print" in the [199]azette. [198]or your convenience,"
790 print" documentation has been included on the"
800 print" disk, along with a text reader. [215]hen a"
810 print" [194][207][206][213][211] program is selected from the"
820 print" menu, you are given the option of"
830 print" reading the article or running the"
840 print" program. [213]se the cursor keys to make"
850 print" your selection, then hit [210][197][212][213][210][206]."
860 print" [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
870 getmt$:ifmt$=""then870
880 return
900 data caveman,xx,caveman
910 data ditto,xx,ditto.msg
920 data times table tutor,xx,times.tutor
930 data right/side,xx,right/side
940 data pharaoh's revenge,xx,pharaoh revenge
945 data tank shootout,xx,tank shootout
950 data *bonus* eye-catcher,eyecatcher.a,eye-boot
960 data *bonus* bastion,bastion.a,bastion
970 data compute's gazette art gallery,gallery.a,gallery64
980 data beginner basic,xx,beg/bas
990 data 64 mlx,xx,64 mlx
995 data automatic proofreader,xx,proofreader
1000 poke53265,27:print"[146]";
1010 ff$="loading "+chr$(34)+d$+chr$(34)
1020 printtab((40-len(ff$))/2)ff$
1030 print" please stand by[155]":return