home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01a.d64 / menu.advert (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  113 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. 42 read a$:if a$<>"marker" then 42
  5. 44 gosub 50000:clr
  6. 50 n=11:n=n-1:dim t$(n),a$(n),p$(n)
  7. 60 fori=0ton:readt$(i),a$(i),p$(i):next
  8. 70 sp$="                                      "
  9. 80 a$="gazette's january advertisers":cx=20-len(a$)/2
  10. 90 z$="":a$=left$(sp$,cx)+a$+sp$:fori=1to40
  11. 100 z$=z$+chr$(asc(mid$(a$,i))+128):next
  12. 110 np=int(n/8):cp=0:tt=183
  13. 120 poke53280,15:poke53281,15
  14. 130 poke53282,8:poke53283,1:poke53284,6
  15. 140 gosub610:rem opening advisory
  16. 150 print"[147]":poke53280,15:poke53281,15:poke53265,peek(53265)or64
  17. 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]";
  18. 170 print""z$;
  19. 180 print"[160][160][168][195][169][160][177][185][185][181][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]";
  20. 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]"
  21. 200 print"[146][144]----------------------------------------";
  22. 210 s=cp*8:e=cp*8+7:ife>nthene=n
  23. 220 fori=stoe:print"[160]";chr$(177+i-cp*8);"[160][151]";p$(i);
  24. 230 printleft$(sp$,36-len(p$(i)));
  25. 240 print"[146][144]----------------------------------------";:next
  26. 250 print"this is page #";cp+1;"of";np+1
  27. 260 print"press [210][197][212][213][210][206][146] for next page[145][145]"
  28. 265 gosub 900
  29. 266 :
  30. 270 print"[145][145][160][208][210][197][211][211][160][177][173]"chr$(tt);
  31. 280 print"[160][212][207][160][204][207][193][196][160][193][206][160][193][196][214][197][210][212][201][211][197][205][197][206][212][160][160][160][160][160]";
  32. 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]";
  33. 300 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8"anda$<>"x")then300
  34. 310 ifa$="x"then 950
  35. 320 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  36. 330 ifa$=chr$(13)then150
  37. 340 fv=(asc(a$)-48):fv=fv+7*(fv>8)
  38. 350 c=fv+cp*8-1
  39. 360 ifc>nthen300
  40. 365 if a$(c)="xx" goto 550
  41. 366 if p$(c)="xx" goto 580
  42. 370 print"[147]":poke53265,27:ifcp=1 and c=11 then 580
  43. 380 if a$(c)="gazscreen" then 430
  44. 390 if a$(c)="text" then 580
  45. 400 if a$(c)="program" then 550
  46. 410 :
  47. 420 :
  48. 430 b=0:poke52992+3,len(t$(c)):rem length of file name
  49. 440 for i=1 to len(t$(c)):poke 52992+3+i,asc(mid$(t$(c),i,1)):next
  50. 450 sys 52992:rem load and show the picture
  51. 460 run
  52. 470 ifc<>3then550
  53. 480 b=0:c=1
  54. 490 cx=21-len(q$(c))/2:b$=left$(sp$,cx)+q$(c)
  55. 500 print""b$
  56. 510 geta$:ifa$=""then510
  57. 520 ifa$=chr$(13)thenp$(c)=r$(c):goto550
  58. 530 ifb=0thenc=c+1:b=1:goto490
  59. 540 c=c-1:b=0:goto490
  60. 550 print"[147][146][155]load[146]";chr$(34);t$(c);chr$(34);",8":print"run"
  61. 560 d$=t$(c):gosub850
  62. 570 poke631,13:poke632,13:poke631,13:poke198,2:end
  63. 580 fori=1tolen(t$(c)):pokei+49153,asc(mid$(t$(c),i,1)):next:rem filename
  64. 590 poke49170,len(t$(c))+2:d$=p$(c):rem filename length
  65. 600 print"[147]":d$=t$(c):gosub850:sys49171:goto150
  66. 610 printchr$(14)"[147]"
  67. 680 return
  68. 700 data diskoplenty.ad,program,disk o'plenty
  69. 710 data fgm connction.ad,text,fgm connection
  70. 720 rem data kfpd.ad,text,kf-pd software
  71. 730 rem data bare bones.ad,gazscreen, bare bones software
  72. 740 rem data cbs.ad,text,computer bargain store
  73. 745 rem data yanney soft.ad,program, yanney software
  74. 747 data marcus.ad,text,marcus electronics store
  75. 750 data microstorm.ad,program,microstorm software
  76. 751 data modem.ad,text,9600 bps modem sale (ibm only)
  77. 752 data special disks.ad,text,special gazette disks
  78. 755 data gazette.ad,gazscreen,compute's gazette
  79. 760 data backissue.ad,text,back issues
  80. 770 data mapping.ad,text,mapping the 64
  81. 780 data ad.ad,text, classified ads
  82. 790 data submission.ad,text,gazette submissions
  83. 850 poke53265,27:print"[146]";
  84. 860 ff$="loading "+chr$(34)+d$+chr$(34)
  85. 870 printtab((40-len(ff$))/2)ff$
  86. 880 print"            please stand by[155]":return
  87. 900 tt=176+8
  88. 910 if (cp+1)*8 > (n+1) then tt=176+n+1-cp*8
  89. 920 return
  90. 950 print"[147]":poke53265,27:sys65409:poke56,160:poke55,0:clr
  91. 960 load"mn",8
  92. 50000 for x=52992 to 53186:read a:poke x,a:next:return
  93. 55000 data marker
  94. 60000 data 76,26,207,0,0,0,0,0,0,0,0
  95. 60001 data 0,0,0,0,0,0,0,0,0,0,0
  96. 60002 data 0,0,0,0,32,38,207,32,74,207,32
  97. 60003 data 228,255,240,251,96,169,4,133,251,169,207
  98. 60004 data 133,252,169,15,162,8,160,0,32,186,255
  99. 60005 data 173,3,207,166,251,164,252,32,189,255,169
  100. 60006 data 0,170,160,176,32,213,255,96,165,1,41
  101. 60007 data 254,133,1,169,0,133,251,169,180,133,252
  102. 60008 data 169,0,133,253,169,216,133,254,162,183,160
  103. 60009 data 239,32,151,207,169,0,133,251,169,176,133
  104. 60010 data 252,169,0,133,253,169,4,133,254,162,179
  105. 60011 data 160,254,32,151,207,173,253,179,141,24,208
  106. 60012 data 173,254,179,141,33,208,173,255,179,141,32
  107. 60013 data 208,165,1,9,1,133,1,96,142,25,207
  108. 60014 data 140,24,207,160,0,177,251,145,253,165,252
  109. 60015 data 205,25,207,208,8,165,251,205,24,207,208
  110. 60016 data 1,96,230,251,208,2,230,252,230,253,208
  111. 60017 data 227,230,254,169,0,240,221,251
  112. 61000 rem end of listing
  113.