home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8603.d64 / scroll-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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 :
  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.