home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / scroll-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  49 lines
  1. 0 rem ************************
  2. 1 rem ** pseudo-scroll-demo **
  3. 2 rem **--------------------**
  4. 3 rem **    (c) 1985 by     **
  5. 4 rem **    n.bergerhoff    **
  6. 5 rem **    meisenweg 22    **
  7. 6 rem **   5020 frechen 4   **
  8. 7 rem **  tel. 02234/64610  **
  9. 8 rem ************************
  10. 9 ifa=0thena=1:load"pseudo-scroll",8,1
  11. 10 init=49152:ein=49232:aus=49400
  12. 11 sysinit
  13. 12 :
  14. 100 print"[147]     [216][216][216]   [216][216][216] [216][216][216][216] [216]  [216] [216][216][216]  [216][216][216][216]
  15. 110 [153]"     (NULL)  (NULL) (NULL)    (NULL)    (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL)
  16. 120 print"     [216]  [216] [216]    [216]    [216]  [216] [216]  [216] [216]  [216]
  17. 130 [153]"     (NULL)(NULL)(NULL)   (NULL)(NULL)  (NULL)(NULL)(NULL)  (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL)
  18. 140 print"     [216]       [216] [216]    [216]  [216] [216]  [216] [216]  [216]
  19. 150 [153]"     (NULL)       (NULL) (NULL)    (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL)
  20. 160 print"     [216]    [216][216][216]  [216][216][216][216]  [216][216]  [216][216][216]  [216][216][216][216]
  21. 170 [153]
  22. 180 [153]"      (NULL)(NULL)(NULL)  (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)  (NULL)(NULL)(NULL)(NULL) (NULL)    (NULL)
  23. 190 print"     [216]    [216]    [216]  [216] [216]  [216] [216]    [216]
  24. 200 [153]"     (NULL)    (NULL)    (NULL)  (NULL) (NULL)  (NULL) (NULL)    (NULL)
  25. 210 print"      [216][216]  [216]    [216][216][216]  [216]  [216] [216]    [216]
  26. 220 [153]"        (NULL) (NULL)    (NULL)  (NULL) (NULL)  (NULL) (NULL)    (NULL)
  27. 230 print"        [216] [216]    [216]  [216] [216]  [216] [216]    [216]
  28. 240 [153]"     (NULL)(NULL)(NULL)   (NULL)(NULL)(NULL) (NULL)  (NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)
  29. 250 sysein,3,1,0
  30. 260 gosub1000:print"[154][147]"
  31. 270 sysein,3,0,0
  32. 280 printtab(11)"pseudo-scroll-demo"
  33. 290 printtab(17)"hoch"
  34. 300 gosub1000
  35. 310 sysein,3,1,1
  36. 320 printtab(16)"[145]runter"
  37. 330 gosub1000
  38. 340 sysein,1,1,1
  39. 350 printtab(16)"[145]schnell"
  40. 360 gosub1000
  41. 370 sysein,10,1,1
  42. 380 printtab(16)"[145]langsam"
  43. 390 gosub1000
  44. 400 print"[154][147]":sysein,3,0,0
  45. 410 printtab(12)"taste[154][216]druecken"
  46. 420 wait198,255:poke198,0:end
  47. 430 :
  48. 1000 fori=1to3000:next:return
  49.