home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01a.d64 / mn (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  69 lines
  1. 10 if a=0then a=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=6: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 - january 1995":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][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]";
  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. 750 data gazette disk masthead,ttt,masthead,2
  61. 850 poke53265,27:print"[146]";
  62. 860 ff$="loading "+chr$(34)+d$+chr$(34)
  63. 870 printtab((40-len(ff$))/2)ff$
  64. 880 print"            please stand by[155]":return
  65. 900 tt=176+8
  66. 910 if (cp+1)*8 > (n+1) then tt=176+n+1-cp*8
  67. 920 return
  68. 950 sys64738
  69.