home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 9 / 64er_Magazin_Sonderheft_09_86-09_1986_Markt__Technik_de_Side_A.d64 / track40.demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  574b  |  21 lines
  1. 1 rem basic-demo zur [get+print]
  2. 2 rem                                     :
  3. 3 rem        germano caronni
  4. 4 rem        greubstelstr.10
  5. 5 rem       ch-5430 wettingen
  6. 6 rem                                     :
  7. 8 rem demo zu track40,(muss im speicher sein)
  8. 9 poke53280,0:poke53281,0:print"[147]"
  9. 10 sys50000
  10. 20 input"[147]block (0-78)";b:ifb<0orb>78then25
  11. 30 input"text";a$:b$=chr$(0):fori=1to7
  12. 31 b$=b$+b$:next:b$=b$+left$(b$,127)
  13. 40 a$=a$+left$(b$,255-len(a$))
  14. 50 [printa$,b]
  15. 60 print"[147]text ist gespeichert  --  taste"
  16. 70 wait198,1:poke198,0
  17. 80 [getb$,b]
  18. 90 print"der neue text :":printb$
  19. 100 print"der alte text :":printa$
  20. 110 print"";a$=b$
  21.