home *** CD-ROM | disk | FTP | other *** search
/ Publication 12 / Publication_12_19xx_Civitas_de_Side_A.d64 / reader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  52 lines
  1. 4 ifa=0thena=1:load"charset*",8,1
  2. 5 ifa=1thena=2:load"routi*",8,1
  3. 6 ifa=2thena=3:load"logo*",8,1
  4. 10 f(1)=0:f(2)=0:f(3)=15:ga=8:gosub3000
  5. 11 print"[155][147]"chr$(8):poke53280,15:poke53281,11:poke53272,24
  6. 12 forg=1to4:poke2039+g,223+g:poke53246+g*2,24*g+102:poke53247+g*2,210
  7. 13 poke53286+g,0:next:poke211,4:poke214,23:sys58732:t=1:si=54272
  8. 14 print"[152]chapters  contenz  credits  quit":dimt$(50),q$(4),q(4)
  9. 15 q$(1)="chapters":q$(2)="contenz":q$(3)="credits":q$(4)="quit":q(1)=4:q(2)=14
  10. 16 q(3)=23:q(4)=32:open2,8,2,"config*,s,r":input#2,a:forg=1toa:input#2,t$(g)
  11. 17 next:close2:x$=t$(1):gosub1000
  12. 100 q=16384:poke53269,255
  13. 101 sys49152,q,q+800,1024:geta$:ifa$=chr$(13)then200
  14. 102 ifa$=""andq<64000thenq=q+40
  15. 103 ifa$="[145]"andq>16423thenq=q-40
  16. 104 ifa$=""andq<62000thenq=q+800
  17. 105 ifa$="[157]"andq>17183thenq=q-800
  18. 110 goto101
  19. 200 z=1
  20. 201 poke211,q(z):poke214,23:sys58732:print"[155]"q$(z):geta$:ifa$=chr$(13)then205
  21. 202 poke211,q(z):poke214,23:sys58732:print"[152]"q$(z):ifa$=""andz<4thenz=z+1
  22. 203 ifa$="[157]"andz>1thenz=z-1
  23. 204 goto201
  24. 205 onzgoto300,400,500,600
  25. 300 poke646,15:poke781,23:sys59903:z=t
  26. 301 poke211,1:poke214,23:sys58732:print"text[146] : ";left$(t$(z),12)
  27. 302 geta$:ifa$=chr$(13)thenx$=t$(z):t=z:gosub1000:goto100
  28. 303 ifa$="[145]"andz<athenz=z+1
  29. 304 ifa$=""andz>1thenz=z-1
  30. 305 goto301
  31. 400 gosub2000:poke646,15:forg=0to22:poke781,g:sys59903:next:print""
  32. 401 a$="[212][193][194][204][197] [207][198] [195][207][206][212][197][206][218] :":forg=1tolen(a$):poke211,10+g:poke214,2:sys58732
  33. 402 print""mid$(a$,g,1):pokesi+24,15:pokesi+5,24:pokesi+6,68:pokesi+1,29
  34. 403 pokesi,69:pokesi+4,17:forz=1to50:nextz:pokesi+4,0:pokesi+5,0:pokesi+6,0
  35. 404 nextg:forg=1to16:poke211,1:poke214,g+3:sys58732:printleft$(t$(g),12)
  36. 405 next:forg=32to17step-1:poke211,26:poke214,g-13:sys58732
  37. 406 printleft$(t$(g),12):next
  38. 407 geta$:on-(a$="")goto407:goto101
  39. 500 x$="info*":gosub1000:goto100
  40. 600 poke646,15:poke781,23:sys59903:z=t
  41. 602 poke211,1:poke214,23:sys58732:print"sure ??? ";
  42. 603 geta$:ifa$<>"y"anda$<>"j"anda$<>"n"then603
  43. 604 ifa$="n"thengosub2000:goto101
  44. 605 sys64738
  45. 1000 poke53265,11:poke53269,0:sys57812x$+"*",8,1:poke780,0:sys65493
  46. 1001 poke53269,255:poke53265,27:gosub2000:return
  47. 2000 poke211,.:poke214,23:sys58732:print"[155]    [152]chapters  contenz  credits  quit
  48. 2001 [142]
  49. 3000 [153]"load"[199](8):[151]53280,15:[151]53281,15:[151]53272,21:[151]788,52
  50. 3001 [153]"stop place disc into drive and press space! "
  51. 3002 [161]a$:[145][171](a$[179][177][199](32))[137]3002:[142]
  52.