home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07a.d64 / menu.column (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  99 lines
  1. 10 ifa=0thena=1:load"text reader",8,1
  2. 30 poke56,56:poke55,0:clr
  3. 40 f=49153:fl=49170:fori=820to1023:pokei,0:next
  4. 50 n=8:n=n-1:dimt$(n),a$(n),p$(n)
  5. 60 fori=0ton:readt$(i),a$(i),p$(i):next
  6. 70 sp$="                                      "
  7. 80 a$="gazette's july columns":cx=20-len(a$)/2
  8. 90 z$="":a$=left$(sp$,cx)+a$+sp$:fori=1to40
  9. 100 z$=z$+chr$(asc(mid$(a$,i))+128):next
  10. 110 np=int(n/8):cp=0:tt=183
  11. 120 poke53280,15:poke53281,15
  12. 130 poke53282,8:poke53283,1:poke53284,6
  13. 140 gosub610:rem opening advisory
  14. 150 print"[147]":poke53280,15:poke53281,15:poke53265,peek(53265)or64
  15. 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]";
  16. 170 print""z$;
  17. 180 print"[160][160][168][195][169][160][177][185][185][180][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]";
  18. 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][160][160][145]"
  19. 200 print"[146][144]----------------------------------------";
  20. 210 s=cp*8:e=cp*8+7:ife>nthene=n
  21. 220 fori=stoe:print"[160]";chr$(177+i-cp*8);"[160][151]";t$(i);
  22. 230 printleft$(sp$,36-len(t$(i)));
  23. 240 print"[146][144]----------------------------------------";:next
  24. 250 print"this is page #";cp+1;"of";np+1
  25. 260 rem print"press [210][197][212][213][210][206][146] for next page[145][145]"
  26. 265 gosub 900
  27. 266 :
  28. 270 print"[145][145][160][208][210][197][211][211][160][177][173]"chr$(tt);
  29. 280 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]";
  30. 290 print"[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][205][193][201][206][160][205][197][206][213][160][160][160][160][160][160]";
  31. 300 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8"anda$<>"x")then300
  32. 310 ifa$="x"then 950
  33. 320 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  34. 330 ifa$=chr$(13)then150
  35. 340 fv=(asc(a$)-48):fv=fv+7*(fv>8)
  36. 350 c=fv+cp*8-1
  37. 360 ifc>nthen300
  38. 365 if a$(c)="xx" goto 550
  39. 366 if p$(c)="xx" goto 580
  40. 370 print"[147]":poke53265,27:ifcp=1 and c=11 then 580
  41. 380 b=0:print""tab(11)"article[146] or program"
  42. 390 printtab(8)"[145][145][145][145][145]press any key to switch,"
  43. 400 printtab(10)"or return[146] to select."
  44. 410 geta$:ifa$=""then410
  45. 420 ifa$=chr$(13)then460
  46. 430 ifb=0thenar$="article or program[146]":b=1:goto450
  47. 440 ar$="article[146] or program":b=0
  48. 450 print""tab(11)ar$:goto410
  49. 460 ifb=0then580
  50. 470 goto550
  51. 480 b=0:c=1
  52. 490 cx=21-len(q$(c))/2:b$=left$(sp$,cx)+q$(c)
  53. 500 print""b$
  54. 510 geta$:ifa$=""then510
  55. 520 ifa$=chr$(13)thenp$(c)=r$(c):goto550
  56. 530 ifb=0thenc=c+1:b=1:goto490
  57. 540 c=c-1:b=0:goto490
  58. 550 print"[147][146][155]load[146]";chr$(34);p$(c);chr$(34);",8":print"run"
  59. 560 d$=p$(c):gosub850
  60. 570 poke631,13:poke632,13:poke631,13:poke198,2:end
  61. 580 fori=1tolen(a$(c)):pokei+f,asc(mid$(a$(c),i,1)):next
  62. 590 pokefl,len(a$(c))+2:d$=t$(c)
  63. 600 print"[147]":d$=a$(c):gosub850:sys49171:goto150
  64. 610 printchr$(14)"[147] [194]efore attempting to run any programs,"
  65. 611 print" please refer to the related column."
  66. 617 print" [195]olumns are on this side and programs"
  67. 618 print" are on the flip side. [212]o return to"
  68. 619 print" the [195]olumns after running a program,"
  69. 620 print" remember to turn the disk over and      reload [205]enu.[195]olumn.
  70. 621 [153]"               "
  71. 626 [153]"      (NULL)(NULL)val(NULL)(NULL) atn(NULL)(NULL) (NULL)val(NULL) asc(NULL)(NULL) (NULL)left$val (NULL)val(NULL)(NULL)"
  72. 670 [161]mt$:[139]mt$[178]""[167]670
  73. 680 [142]
  74. 700 [131] 64/128 view,64/128 view,xx
  75. 710 [131] feedback,feedback,filereader
  76. 720 [131] d'iversions,d'iversions,xx
  77. 730 [131] beginner basic,beginner basic,golf scores
  78. 740 [131] machine language,mach language,screen zap
  79. 750 [131] programmer's page,prog page,calc restore
  80. 760 [131] geos,geos,xx
  81. 770 [131] pd picks,pd picks,xx
  82. 850 [151]53265,27:[153]"wait";
  83. 855 [139] b[178]1[167] [141] 990
  84. 860 ff$[178]"loading "[170][199](34)[170]d$[170][199](34)
  85. 870 [153][163](40[171][195](ff$))[173]2)ff$
  86. 880 [153]"            please stand bylist"
  87. 885 [139] [200](p$(c),3)[178]"scr" [167] [151]53281,6:[151]53280,6
  88. 887 [142]
  89. 900 tt[178]176[170]8
  90. 910 [139] (cp[170]1)[172]8 [177] (n[170]1) [167] tt[178]176[170]n[170]1[171]cp[172]8
  91. 920 [142]
  92. 950 [153]"load":[151]53265,27:[158]65409:[151]56,160:[151]55,0:[156]
  93. 960 [147]"mn",8
  94. 990 [143] flip disk now
  95. 991 [153]"       flip to other side of disk
  96. 992 print"           then hit any key..."
  97. 993 get a$:if a$="" then 993
  98. 999 return
  99.