home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 June / 1985-06.d64 / mn (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  63 lines
  1. 10 goto110
  2. 12 poke53265,27
  3. 13 printchr$(14)"[147] [194]efore attempting to run any programs"
  4. 14 print" please refer to the instructions in"
  5. 16 print" the [195][207][205][208][213][212][197]!'s [199]azette [205]agazine issue"
  6. 18 print" dated the same month as this disk."
  7. 20 print" [208]lease note the [199]azette [196]isk often"
  8. 22 print" features programs which write data"
  9. 24 print" to the disk.  [195]opy those programs to"
  10. 26 print" another disk - this disk is write"
  11. 28 print" protected."
  12. 30 print"      [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
  13. 32 getmt$:ifmt$=""then32
  14. 34 return
  15. 110 poke53282,8:poke53283,15:poke53284,2
  16. 120 gosub500
  17. 140 sp$="                                      "
  18. 150 a$="table of contents for "+mo$+" 1985":cx=21-len(a$)/2
  19. 151 z$="":a$=left$(sp$,cx)+a$+sp$:fori=1to40
  20. 152 z$=z$+chr$(asc(mid$(a$,i))+128):next
  21. 172 np=int(it/8):cp=0
  22. 173 gosub12
  23. 175 poke53265,peek(53265)or64
  24. 176 poke53280,14:poke53281,14
  25. 177 print"[147][142]----------------------------------------";
  26. 180 print"[158][160][160][195][207][205][208][213][212][197][167][211][160][199][193][218][197][212][212][197][160][198][207][210][160][214][201][195][173][178][176][160][193][206][196][160][182][180][160][160]";z$;
  27. 200 print"[158][160][160][160][168][195][169][160][177][185][184][181][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][160]";
  28. 245 print"[146]----------------------------------------";
  29. 250 s=cp*8:e=cp*8+7:ife>itthene=it
  30. 260 fori=stoe:print"[160][198]";chr$(177+i-cp*8);"[160][151]";n$(i);
  31. 270 printleft$(sp$,35-len(n$(i)));
  32. 280 print"[146][156]----------------------------------------";
  33. 300 next
  34. 310 print:print"this is page #";cp+1;"of";np+1
  35. 320 print"press [158][210][197][212][213][210][206][146] for next page"
  36. 340 geta$:ifa$<>chr$(13)and(a$<"[133]"ora$>"[140]")then340
  37. 350 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  38. 355 ifa$=chr$(13)then175
  39. 360 fv=(asc(a$)-133)*2+1:fv=fv+7*(fv>8)
  40. 365 c=fv+cp*8-1:ifc>itthen340
  41. 470 sys65409:print"[142]load";chr$(34);f$(c);chr$(34);",8":i$="run"
  42. 480 fori=1tolen(i$):poke631+i,asc(mid$(i$,i)):next
  43. 481 poke53280,6:print"";
  44. 482 printtab(18-len(f$(c))/2-4)"loading ";chr$(34)f$(c)chr$(34)
  45. 483 print"           please stand by"
  46. 490 poke631+i,13:poke631,13:poke198,i+1:end
  47. 499 end
  48. 500 open15,8,15,"i0"
  49. 510 open1,8,8,"0:64 contents,s,r":input#15,en,em$:if en>0 then 600
  50. 520 input#1,mo$:input#1,it:dimn$(it),f$(it)
  51. 530 fori=0toit:input#1,n$(i):input#1,f$(i):next
  52. 540 close1:close15:return
  53. 600 close1:close15
  54. 610 print"[147][195]an't read [212]able of [195]ontents"
  55. 615 print"[196]isk [197]rror:";en;em$
  56. 620 print"[195]heck:"
  57. 630 print"1) [195]orrect disk inserted?
  58. 640 [153]"2) right$s drive door closed?
  59. 650 print"3) [193]ll cables attached?"
  60. 660 print"[210]emove, then re-insert disk, press any  key to try again."
  61. 670 geta$:ifa$=""then670
  62. 680 run
  63.