home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 May / 1994-05a.d64 / menu.column (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  98 lines
  1. 10 ifa=0thena=1:load"textreader64",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 may 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. 355 if c=0thenprint"[147]":gosub990
  38. 360 ifc>nthen300
  39. 365 if a$(c)="xx" goto 550
  40. 366 if p$(c)="xx" goto 580
  41. 370 print"[147]":poke53265,27:ifcp=1 and c=11 then 580
  42. 380 b=0:print""tab(11)"article[146] or program"
  43. 390 printtab(8)"[145][145][145][145][145]press any key to switch,"
  44. 400 printtab(10)"or return[146] to select."
  45. 410 geta$:ifa$=""then410
  46. 420 ifa$=chr$(13)then460
  47. 430 ifb=0thenar$="article or program[146]":b=1:goto450
  48. 440 ar$="article[146] or program":b=0
  49. 450 print""tab(11)ar$:goto410
  50. 460 ifb=0then580
  51. 470 goto 550
  52. 480 b=0:c=1
  53. 490 cx=21-len(q$(c))/2:b$=left$(sp$,cx)+q$(c)
  54. 500 print""b$
  55. 510 geta$:ifa$=""then510
  56. 520 ifa$=chr$(13)thenp$(c)=r$(c):goto550
  57. 530 ifb=0thenc=c+1:b=1:goto490
  58. 540 c=c-1:b=0:goto490
  59. 550 print"[147][146][155]load[146]";chr$(34);p$(c);chr$(34);",8":print"run"
  60. 560 d$=p$(c):gosub850
  61. 570 poke631,13:poke632,13:poke631,13:poke198,2:end
  62. 580 fori=1tolen(a$(c)):pokei+f,asc(mid$(a$(c),i,1)):next
  63. 590 pokefl,len(a$(c))+2:d$=t$(c)
  64. 600 print"[147]":d$=a$(c):gosub850:sys49171:goto150
  65. 610 printchr$(14)"[147] [194]efore attempting to run any programs,"
  66. 611 print" please refer to the related column."
  67. 617 print" [195]olumns are on this side and programs"
  68. 618 print" are on the flip side. [210]emember to"
  69. 619 print" turn the disk over and reload the"
  70. 620 print" menu after you've run a program.           "
  71. 621 print"               "
  72. 626 print"      [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
  73. 670 getmt$:ifmt$=""then670
  74. 680 return
  75. 700 data 64/128 view,64/128 view,xx
  76. 710 data feedback,feedback,xx
  77. 720 data d'iversions,d'iversions,xx
  78. 730 data beginner basic,beginner basic,alphabets
  79. 740 data machine language,mach language,makess
  80. 750 data programmer's page,prog page,convert
  81. 760 data geos,geos,xx
  82. 770 data pd picks,pd picks,xx
  83. 850 poke53265,27:print"[146]";
  84. 855 if b=1then gosub 990
  85. 860 ff$="loading "+chr$(34)+d$+chr$(34)
  86. 870 printtab((40-len(ff$))/2)ff$
  87. 880 print"            please stand by[155]":return
  88. 900 tt=176+8
  89. 910 if (cp+1)*8 > (n+1) then tt=176+n+1-cp*8
  90. 920 return
  91. 950 print"[147]":poke53265,27:sys65409:poke56,160:poke55,0:clr
  92. 960 load"mn",8
  93. 990 rem flip disk now
  94. 991 print"       flip to other side of disk
  95. 992 [153]"           then hit any key..."
  96. 993 [161] a$:[139] a$[178]"" [167] 993
  97. 999 [142]
  98.