home *** CD-ROM | disk | FTP | other *** search
/ Publication 14 / Publication_14_19xx_Civitas_de_Side_B.d64 / softscroller (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  68 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr
  2. 5 goto300
  3. 100 a=12*4096
  4. 110 readd
  5. 115 ifd=-1then140
  6. 120 pokea,d
  7. 125 a=a+1
  8. 130 goto110
  9. 140 sys12*4096
  10. 150 poke1,peek(1)and253
  11. 151 print"[147]":poke53280,14:poke53281,6:poke646,14:new
  12. 160 data 169,0,133,251,169,160,133,252,160,0,177,251,145,251,136
  13. 161 data 208,249,230,252,165,252,201,192,208,241,169,0,133,251,169
  14. 162 data 224,133,252,160,0,177,251,145,251,136,208,249,230,252,165
  15. 163 data 252,201,0,208,241,173,148,192,141,1,233,173,149,192,141
  16. 164 data 2,233,96,224,0,208,42,120,169,6,141,150,192,32,128
  17. 165 data 192,173,17,208,41,240,24,109,150,192,141,17,208,206,150
  18. 166 data 192,16,236,160,40,204,18,208,208,251,169,128,44,17,208
  19. 167 data 208,242,240,15,224,13,208,11,173,17,208,41,240,24,105
  20. 168 data 7,141,17,208,32,240,233,96,160,2,169,248,205,18,208
  21. 169 data 208,251,169,249,205,18,208,208,251,136,208,239,96,63,192,-1
  22. 300 poke53280,6:poke53281,0:gosub301:goto310
  23. 301 print"[145][147][158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  24. 302 print" [194][156]             soft scroll            [146][158][194]"
  25. 303 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][159]":return
  26. 310 printtab(6)"mit diesem programm koennen"
  27. 311 printtab(6)"sie ein weiches (soft) scrollen"
  28. 312 printtab(6)"eines programmlistings erzielen."
  29. 313 printtab(6)"zur aktivierung des soft-scrolls"
  30. 314 printtab(6)"geben sie ein:[154]"
  31. 315 printtab(6)"poke 1, peek(1) and 253[159]"
  32. 316 printtab(6)"dann (im unsichtbaren) den nor-"
  33. 317 printtab(6)"malen list-befehl wie list100-"
  34. 318 printtab(6)"als beispiel. unterbrechen "
  35. 319 printtab(6)"koennen sie den soft-scroll "
  36. 320 printtab(6)"mit runstop (taste gedrueckt"
  37. 321 printtab(6)"halten."
  38. 322 printtab(13)"drueck space":gosub360
  39. 330 gosub301
  40. 331 printtab(6)"nach runstop koennen sie weiter"
  41. 332 printtab(6)"im soft-scroll-modus bleiben,"
  42. 333 printtab(6)"indem sie list eingeben. sie"
  43. 334 printtab(6)"jedoch auch den modus ausschalten."
  44. 336 printtab(6)"folgenden befehl ein:[154]"
  45. 337 printtab(6)"poke 1, peek (1) or 2[159]"
  46. 338 printtab(6)"bei erneutem soft-scroll wunsch"
  47. 339 printtab(6)"ist wieder der schon erwaehnte"
  48. 340 printtab(6)"poke einzugeben. "
  49. 341 printtab(6)"mit runstop/restore kommen sie"
  50. 342 printtab(6)"auch dem modus. es empfiehlt"
  51. 343 printtab(6)"sich, dann den ausschaltpoke"
  52. 344 printtab(6)"trotzdem einzugeben."
  53. 345 printtab(13)"drueck space":gosub360:goto400
  54. 360 poke198,0:wait198,1:gete$
  55. 361 ife$=chr$(32)thenreturn
  56. 362 goto360
  57. 400 gosub301:print""
  58. 401 printtab(6)"ins basic mit aktivierung [1]"
  59. 402 printtab(6)"programm beenden          [2]"
  60. 403 printtab(6)"zum utilitie-menue        [3]"
  61. 405 poke198,0:wait198,1:gete$
  62. 406 ife$="1"then420
  63. 407 ife$="2"thensys64738
  64. 408 ife$="3"then410
  65. 409 goto405
  66. 410 print""tab(6)"[129]geht nicht...zgst. !     ":end
  67. 420 print""tab(6)"[129]bitte warten             ":goto100
  68.