home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette: Best of 1988 / BESTOF88.D64 / mn (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  94 lines
  1. 10 ifa=0thena=1:load"text reader.64",8,1
  2. 20 ifa=1thena=2:load"italics.set",8,1
  3. 30 poke56,56:poke55,0:clr
  4. 40 f=49153:fl=49170:fori=820to1023:pokei,0:next
  5. 50 n=12:dimt$(n),a$(n),p$(n),q$(6),r$(6)
  6. 60 fori=0ton:readt$(i),a$(i),p$(i):next:fori=1to6:readq$(i),r$(i):next
  7. 70 sp$="                                      "
  8. 80 a$="compute!'s 1988 best of gazette - 64":cx=20-len(a$)/2
  9. 90 z$="":a$=left$(sp$,cx)+a$+sp$:fori=1to40
  10. 100 z$=z$+chr$(asc(mid$(a$,i))+128):next
  11. 110 np=int(n/8):cp=0
  12. 120 poke53280,15:poke53281,15
  13. 130 poke53282,8:poke53283,1:poke53284,6
  14. 140 gosub630
  15. 150 print"[147]":poke53280,15:poke53281,15:poke53265,peek(53265)or64
  16. 160 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]";
  17. 170 print""z$;
  18. 180 print"[160][160][168][195][169][160][177][185][184][184][160][195][207][205][208][213][212][197][161][160][208][213][194][204][201][195][193][212][201][207][206][211][172][160][201][206][195][174][160][160]";
  19. 190 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]";
  20. 200 ifcp=1thenprint""
  21. 210 print"[146][144]----------------------------------------";
  22. 220 s=cp*8:e=cp*8+7:ife>nthene=n
  23. 230 fori=stoe:print"[160]";chr$(177+i-cp*8);"[160][151]";t$(i);
  24. 240 printleft$(sp$,36-len(t$(i)));
  25. 250 print"[146][144]----------------------------------------";:next
  26. 260 ifcp=1thenprint""
  27. 270 print"this is page #";cp+1;"of";np+1
  28. 280 print"press [210][197][212][213][210][206][146] for next page[145][145]":ifcp=1thenprint"[145][145]"
  29. 290 print"[145][145][160][208][210][197][211][211][160][177][173]"chr$(184+(cp=1)*3);
  30. 300 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]";
  31. 310 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]";
  32. 320 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8"anda$<>"x")then320
  33. 330 ifa$="x"thenprint"[147]":poke53265,27:sys65409:poke56,160:poke55,0:clr:end
  34. 340 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  35. 350 ifa$=chr$(13)then150
  36. 360 fv=(asc(a$)-48):fv=fv+7*(fv>8)
  37. 370 c=fv+cp*8-1:ifc=0then600
  38. 380 ifc>nthen320
  39. 390 print"[147]":poke53265,27
  40. 400 b=0:print""tab(11)"article[146] or program"
  41. 410 printtab(8)"[145][145][145][145][145]press any key to switch,"
  42. 420 printtab(10)"or return[146] to select."
  43. 430 geta$:ifa$=""then430
  44. 440 ifa$=chr$(13)then480
  45. 450 ifb=0thenar$="article or program[146]":b=1:goto470
  46. 460 ar$="article[146] or program":b=0
  47. 470 print""tab(11)ar$:goto430
  48. 480 ifb=0then600
  49. 490 ifc<>2andc<>3andc<>9then570
  50. 500 b=0:c=-(c=2)-(c=3)*3-(c=9)*5
  51. 510 cx=21-len(q$(c))/2:b$=left$(sp$,cx)+q$(c)
  52. 520 print""b$
  53. 530 geta$:ifa$=""then530
  54. 540 ifa$=chr$(13)thenp$(c)=r$(c):goto570
  55. 550 ifb=0thenc=c+1:b=1:goto510
  56. 560 c=c-1:b=0:goto510
  57. 570 print"[147][155]load";chr$(34);p$(c);chr$(34);",8":i$="run"
  58. 580 fori=1tolen(i$):poke631+i,asc(mid$(i$,i)):next:d$=p$(c):gosub900
  59. 590 poke631+i,13:poke631+i+1,28:poke631,13:poke198,i+1:end
  60. 600 fori=1tolen(a$(c)):pokei+f,asc(mid$(a$(c),i,1)):next
  61. 610 pokefl,len(a$(c))+2:d$=t$(c)
  62. 620 print"[147]":d$=a$(c):gosub900:sys49171:goto150
  63. 630 printchr$(14)chr$(8)"[147] [194]efore attempting to run any programs"
  64. 640 print" on this disk, please read the file"
  65. 650 print" [200][207][215] [212][207] [213][211][197] [212][200][197] [196][201][211][203]. [212]o load this file"
  66. 660 print" into the text reader, select option 1"
  67. 670 print" on the next screen."
  68. 680 print"      [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
  69. 690 getmt$:ifmt$=""then690
  70. 700 return
  71. 710 data how to use the disk,readme,xx
  72. 720 data arcade volleyball,volleyball.a,volleyball
  73. 730 data basically music,basic music.a,xx
  74. 740 data bb barrage,bb barrage.a,xx
  75. 750 data "crossroads ii: pandemonium",crossroads ii.a,crossroads ii
  76. 760 data eight thousand dragons,dragons.a,dragons
  77. 770 data fire!,fire!.a,fire!
  78. 780 data mob maker,mob maker.a,mob maker
  79. 790 data mosaic,mosaic.a,mosaic
  80. 800 data quick!,quick!.a,xx
  81. 810 data rally racer,rally racer.a,rally racer
  82. 820 data scorpion ii,scorpion ii.a,scorpion ii
  83. 830 data trap,trap.a,trap
  84. 840 data "basically music[146] or demo (fur elise)",basic music
  85. 850 data "basically music or demo (fur elise)[146]",basic music.demo
  86. 860 data "game[146] or screen editor",bb.boot
  87. 870 data "game or screen editor[146]",bb barrage.edt
  88. 880 data "quick155[146] or quick! relocator",quick.boot
  89. 890 data "quick155 or quick! relocator[146]",new quick
  90. 900 poke53265,27:print"[146]";
  91. 910 ff$="loading "+chr$(34)+d$+chr$(34)
  92. 920 printtab((40-len(ff$))/2)ff$
  93. 930 print"            please stand by[155]":return
  94.