home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 June / 1985-06.d64 / vm (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  2KB  |  80 lines
  1. 10 goto100
  2. 12 printchr$(14)"[147] [194]efore attempting to"
  3. 13 print" run any programs"
  4. 14 print" please refer to the"
  5. 15 print" instructions in the"
  6. 16 print" [195][207][205][208][213][212][197]!'s [199]azette"
  7. 17 print" [205]agazine issue dated"
  8. 18 print" the same month as"
  9. 19 print" this disk."
  10. 20 print"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207][160][195][207][206][212]."
  11. 22 getmt$:ifmt$=""then22
  12. 23 print"[147] [208]lease note that the"
  13. 24 print" [199]azette [196]isk often"
  14. 25 print" features programs"
  15. 26 print" which write data to"
  16. 27 print" the disk. [195]opy those"
  17. 28 print" programs to another"
  18. 29 print" disk - this disk is"
  19. 30 print" write protected."
  20. 32 print"[208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [205][197][206][213]"
  21. 33 getmt$:ifmt$=""then33
  22. 34 return
  23. 100 poke36879,24:poke36865,24:gosub800
  24. 120 gosub500
  25. 140 sp$="                      "
  26. 172 np=int(it/8):cp=0
  27. 173 gosub12
  28. 175 printchr$(142);
  29. 180 poke36867,0
  30. 185 print"[147][146][144][169] compute!'s gazette [144][223]";
  31. 190 a$=mo$+" 1985"
  32. 195 cx=11-len(a$)/2:a$=left$(left$(sp$,cx)+a$+sp$,22):printa$;
  33. 196 print"  (c) 1985 compute!"
  34. 200 print"  publications, inc.  ";
  35. 250 s=cp*8:e=cp*8+7:ife>itthene=it
  36. 260 fori=stoe:print"[144]f";chr$(49+i-cp*8);"[146]";
  37. 262 a$=n$(i):k=len(a$):ifk<19then268
  38. 265 a$=n$(i):fork=19to1step-1
  39. 266 ifmid$(a$,k,1)<>" "thennextk:stop
  40. 267 k=k-1
  41. 268 printleft$(a$,k):print"   "mid$(a$,k+2,18)
  42. 300 nexti
  43. 310 print"[144]    page #";cp+1;"of";np+1
  44. 320 print"[223][146] next page:return[144][169][146][157][148] ";
  45. 325 if(e-s)>6then337
  46. 330 print"";:fori=1to(7-(e-s))*2-1:print"[144]";sp$;:next
  47. 335 printleft$(sp$,21)"[157][148] ";
  48. 337 poke36867,46
  49. 340 sys828:geta$:ifa$<>chr$(13)and(a$<"[133]"ora$>"[140]")then340
  50. 350 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  51. 355 ifa$=chr$(13)then175
  52. 360 fv=(asc(a$)-133)*2+1:fv=fv+7*(fv>8)
  53. 365 c=fv+cp*8-1:ifc>itthen340
  54. 470 poke36879,27:print"[147][146][142]load";chr$(34);f$(c);chr$(34);",8":i$="run"
  55. 480 fori=1tolen(i$):poke631+i,asc(mid$(i$,i)):next
  56. 481 print"";
  57. 482 printtab(7)"loading"
  58. 483 print""tab(10-len(f$(c))/2)chr$(34)f$(c)chr$(34)
  59. 484 print"   please stand by"
  60. 490 poke631+i,13:poke631,13:poke198,i+1:end
  61. 499 end
  62. 500 open15,8,15,"i0"
  63. 510 open1,8,8,"0:vicontents,s,r":input#15,en,em$:if en>0 then 600
  64. 520 input#1,mo$:input#1,it:dimn$(it),f$(it)
  65. 530 fori=0toit:input#1,n$(i):input#1,f$(i):next
  66. 540 close1:close15:return
  67. 600 close1:close15
  68. 610 print"[147][195]an't read [212]able of   [195]ontents"
  69. 615 print"[196]isk [197]rror:":printen;em$
  70. 620 print"[195]heck:"
  71. 630 print"1)[208]roper disk?
  72. 640 [153]"2)str$rive door closed?
  73. 650 print"3)[193]ll cables attached?"
  74. 660 print"[210]emove, then re-insertdisk, press any  key  to try again."
  75. 670 geta$:ifa$=""then670
  76. 680 run
  77. 800 fori=828to858:reada:pokei,a:next:return
  78. 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
  79. 910 data 165,197,201,64,240,228,88,96
  80.