home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1998 Special / special1988a.d64 / mn (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  69 lines
  1. 10 poke 53280,15:poke 53281,15:poke 646,6
  2. 20 poke53282,8:poke53283,1:poke53284,6:gosub360
  3. 30 sp$="                                      "
  4. 40 a$="table of contents for "+mo$+" 1988":cx=20-len(a$)/2
  5. 50 z$="":a$=left$(sp$,cx)+a$+sp$:fori=1to40
  6. 60 z$=z$+chr$(asc(mid$(a$,i))+128):next
  7. 70 np=int(it/8):cp=0:gosub560
  8. 80 poke53265,peek(53265)or64:poke53280,15:poke53281,15
  9. 90 printchr$(142)"[147][142][144]----------------------------------------";
  10. 100 print"[160][160][195][207][205][208][213][212][197][161][167][211][160][199][193][218][197][212][212][197][160][177][185][184][184][160][211][208][197][195][201][193][204][160][201][211][211][213][197][160]";
  11. 110 print"[160][160][160][160][160][160][160][195][207][205][205][207][196][207][210][197][160][182][180][160][208][210][207][199][210][193][205][160][205][197][206][213][160][160][160][160][160][160][160][160]";
  12. 120 print"[160][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][201][206][195][174][160][160]";
  13. 130 print"[146][144]----------------------------------------";
  14. 140 s=cp*8:e=cp*8+7:ife>itthene=it
  15. 150 fori=stoe:print"[160]";chr$(177+i-cp*8);"[160][151]";n$(i);
  16. 160 printleft$(sp$,36-len(n$(i)));
  17. 170 print"[146][144]----------------------------------------";
  18. 180 next:ifnp+1=1thenxz=1:print"":goto210
  19. 190 print"this is page #";cp+1;"of";np+1
  20. 200 print"press [210][197][212][213][210][206][146] for next page[145][145]"
  21. 210 print"[145][145][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]"
  22. 220 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8")then220
  23. 230 ifxz=1anda$=chr$(13)then220
  24. 240 ifxz=1then270
  25. 250 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  26. 260 ifa$=chr$(13)then80
  27. 270 fv=(asc(a$)-48):fv=fv+7*(fv>8)
  28. 280 c=fv+cp*8-1:ifc>itthen220
  29. 290 sys65409:poke53280,15:poke53281,15
  30. 300 print"[147][142][155]load";chr$(34);f$(c);chr$(34);",8":i$="run"
  31. 310 fori=1tolen(i$):poke631+i,asc(mid$(i$,i)):next
  32. 320 poke53280,15:poke 53281,15:print"";
  33. 330 printtab(18-len(f$(c))/2-4)"loading ";chr$(34)f$(c)chr$(34)
  34. 340 print"           please stand by[155]"
  35. 350 poke631+i,13:poke631+i+1,28:poke631,13:poke198,i+1:end
  36. 360 open15,8,15,"i0"
  37. 370 open1,8,8,"0:64 contents,s,r":input#15,en,em$:if en>0 then410
  38. 380 input#1,mo$:input#1,it:dimn$(it),f$(it)
  39. 390 fori=0toit:input#1,n$(i):input#1,f$(i):next
  40. 400 close1:close15:return
  41. 410 close1:close15
  42. 420 print"[147][195]an't read [212]able of [195]ontents"
  43. 430 print"[196]isk [197]rror:";en;em$
  44. 440 print"[195]heck:"
  45. 450 print"1) [195]orrect disk inserted?
  46. 460 [153]"2) right$s drive door closed?
  47. 470 print"3) [193]ll cables attached?"
  48. 480 print"[210]emove, then re-insert disk, press any  key to try again."
  49. 490 geta$:ifa$=""then490
  50. 500 run
  51. 510 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8")then270
  52. 520 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  53. 530 fv=(asc(a$)-48):fv=fv+7*(fv>8)
  54. 540 c=fv+cp*8-1:ifc>tthen270
  55. 550 poke53265,27:sys65409
  56. 560 poke53265,27
  57. 570 printchr$(14)"[147][144] [194]efore attempting to run any programs"
  58. 580 print" please refer to the instructions in"
  59. 590 print" the [195][207][205][208][213][212][197]!'s [199]azette 1988 [211]pecial"
  60. 600 print" [201]ssue."
  61. 610 print" [208]lease note the [199]azette [196]isk often"
  62. 620 print" features programs which write data"
  63. 630 print" to the disk. [195]opy those programs to"
  64. 640 print" another disk - this disk is write"
  65. 650 print" protected."
  66. 660 print"      [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
  67. 670 getmt$:ifmt$=""then670
  68. 680 return
  69.