home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 June / 64er_Magazin_86-06_1986_Markt__Technik_de_Side_A.d64 / erg.pseudo-scrol (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  703b  |  23 lines
  1. 0 rem *******************************
  2. 1 rem *                             *
  3. 2 rem * ergaenzung zu pseudo-scroll *
  4. 3 rem * fuer c-64 mit alten rom's   *
  5. 4 rem *                             *
  6. 5 rem * a.lazarevic'                *
  7. 6 rem * im geyberg 19               *
  8. 7 rem * 5165 huertgenwald-gey       *
  9. 8 rem * tele.: (02429) 7171         *
  10. 9 rem *******************************
  11. 10 :
  12. 11 poke49315,76:poke49316,96:poke49317,193:poke49318,96
  13. 12 fort=49504to49534:read da:poket,da:nextt
  14. 13 input"[147]filenamen ";n$
  15. 14 open 1,8,1,n$
  16. 15 print#1,chr$(0);chr$(192);
  17. 16 for i=49152to49534
  18. 17 print#1,chr$(peek(i));
  19. 18 next i
  20. 19 close1
  21. 20 data157,232,6,232,208,250,160,0,162,216,132,248,134,249,173,134,2,145
  22. 21 data248,200,208,251,230,249,166,249,224,220,208,243,96
  23.