home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8612.d64 / hyper2.demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  686b  |  32 lines
  1. 100 REM -------------------------------
  2. 110 REM         LAUFSCHRIFTDEMO
  3. 120 REM       ZU 'HYPERSCREEN II'
  4. 130 REM           BY R.FRAHM
  5. 140 REM -------------------------------
  6. 150 :
  7. 160 :
  8. 170 IF A=0 THEN A=1:LOAD "HYPERSCREEN II",8,1
  9. 180 IF A=1 THEN A=2:LOAD "SCROLL.OBJ",8,1
  10. 190 :
  11. 200 RESTORE:X=0
  12. 210 READ A$
  13. 220 : IF A$="@" THEN POKE 49652+X,0:GOTO 290
  14. 230 :  FOR I=1 TO LEN(A$)
  15. 240 :     POKE 49652+X,ASC(MID$(A$,I,1))
  16. 250 :     X=X+1
  17. 260 :  NEXT I
  18. 270 GOTO 210
  19. 280 :
  20. 290 POKE 49170,032:POKE 49171,208
  21. 300 POKE 49172,192:POKE 49324,032
  22. 310 POKE 49325,024:POKE 49326,193
  23. 320 :
  24. 330 SYS 49152
  25. 340 :
  26. 350 REM -AB HIER STEHEN DIE DATEN FUER-
  27. 360 REM ----DEN ZU SCROLLENDEN TEXT----
  28. 370 :
  29. 380 DATA "HYPERSCEEN II  GESCHRIEBEN VON"
  30. 390 DATA " R.FRAHM UND C.ZAENKER    "
  31. 400 DATA "@"
  32.