home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 April / 1994-04a.d64 / mn (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  68 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=5:n=n-1:dimt$(n),p$(n),a$(n),as(n),ps(n)
  5. 60 fori=0ton:readt$(i),p$(i),a$(i),as(i):next:rem ps(i)
  6. 70 sp$="                                      "
  7. 80 a$="gazette's main menu - april 1994":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. 150 print"[147]":poke53280,15:poke53281,15:poke53265,peek(53265)or64
  14. 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]";
  15. 170 print""z$;
  16. 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]";
  17. 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]"
  18. 200 print"[146][144]----------------------------------------";
  19. 210 s=cp*8:e=cp*8+7:ife>nthene=n
  20. 220 fori=stoe:print"[160]";chr$(177+i-cp*8);"[160][151]";t$(i);
  21. 230 printleft$(sp$,36-len(t$(i)));
  22. 240 print"[146][144]----------------------------------------";:next
  23. 250 print"this is page #";cp+1;"of";np+1
  24. 265 gosub 900
  25. 266 :
  26. 270 print"[145][145][160][208][210][197][211][211][160][177][173]"chr$(tt);
  27. 280 print"[160][160][160][160][160][160][212][207][160][204][207][193][196][160][193][160][211][197][204][197][195][212][201][207][206][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  28. 290 print"[208][210][197][211][211][160][216][160][212][207][160][210][197][212][213][210][206][160][212][207][160][194][193][211][201][195][160][160][160][160][160]";
  29. 300 geta$:ifa$<>chr$(13)and(a$<"1"ora$>"8"anda$<>"x")then300
  30. 310 ifa$="x"then 950
  31. 320 ifa$=chr$(13)thencp=cp+1:ifcp>npthencp=0
  32. 330 ifa$=chr$(13)then150
  33. 340 fv=(asc(a$)-48):fv=fv+7*(fv>8)
  34. 350 c=fv+cp*8-1
  35. 360 ifc>nthen300
  36. 365 if as(c)=1 goto 550
  37. 366 rem if p$(c)="1" goto 580
  38. 370 print"[147]":poke53265,27:goto580
  39. 460 ifb=0then580
  40. 470 goto550
  41. 480 b=0:c=1
  42. 490 cx=21-len(q$(c))/2:b$=left$(sp$,cx)+q$(c)
  43. 500 print""b$
  44. 510 geta$:ifa$=""then510
  45. 520 ifa$=chr$(13)thenp$(c)=r$(c):goto550
  46. 530 ifb=0thenc=c+1:b=1:goto490
  47. 540 c=c-1:b=0:goto490
  48. 550 print"[147][146][155]load[146]";chr$(34);a$(c);chr$(34);",8":print"run"
  49. 560 d$=p$(c):pp=ps(c):gosub850
  50. 570 poke631,13:poke632,13:poke631,13:poke198,2:end
  51. 580 fori=1tolen(a$(c)):pokei+f,asc(mid$(a$(c),i,1)):next
  52. 590 pokefl,len(a$(c))+2:d$=t$(c)
  53. 600 print"[147]":d$=a$(c):pp=as(c):gosub850:sys49171:goto150
  54. 680 return
  55. 700 data table of contents,ttt,toc,2
  56. 710 data gazette advertisers,menu.advert,menu.advert,1
  57. 720 data features,menu.feature,menu.feature,1
  58. 730 data columns,menu.column,menu.column,1
  59. 740 data programs,menu.prog,menu.prog,1
  60. 850 poke53265,27:print"[146]";
  61. 860 ff$="loading "+chr$(34)+d$+chr$(34)
  62. 870 printtab((40-len(ff$))/2)ff$
  63. 880 print"            please stand by[155]":return
  64. 900 tt=176+8
  65. 910 if (cp+1)*8 > (n+1) then tt=176+n+1-cp*8
  66. 920 return
  67. 950 sys64738
  68.