home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 September / 64er_Magazin_85-09_1985_Markt__Technik_de.d64 / blinker-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  29 lines
  1. 10 a$=chr$(18):a$=a$+chr$(176)
  2. 20 fori=1to38:a$=a$+chr$(192):next:a$=a$+chr$(174):a$=a$+chr$(221)
  3. 30 fori=1to38:a$=a$+chr$(32):next:a$=a$+chr$(221):a$=a$+chr$(173)
  4. 40 fori=1to38:a$=a$+chr$(192):next:a$=a$+chr$(189)
  5. 50 :bl=828:s$="":l$="    ":v=53280
  6. 60 fori=0to3:reada$(i):next:fori=0to3:readb$(i):next
  7. 70 fori=0to3:readt$(i):next:fori=0to3:readf$(i):next
  8. 80 fori=0to5:readd$(i):next
  9. 90 :pokev,6:print"[147]";chr$(14)chr$(8)chr$(5)
  10. 100 x$=b$(0):gosub500:prints$;:fori=0to3:printl$a$(i):print:next:sysbl,4,6
  11. 110 fb=val(chr$(peek(251))):onfbgoto150,200,250,2000
  12. 120 goto100
  13. 150 x$=b$(1):gosub500:prints$;:fori=0to3:printl$t$(i):print:next:sysbl,4,6
  14. 160 fb=val(chr$(peek(251))):on-(fb=4)goto100:goto400
  15. 200 x$=b$(2):gosub500:prints$;:fori=0to3:printl$f$(i):print:next:sysbl,4,6
  16. 210 fb=val(chr$(peek(251))):on-(fb=4)goto100:goto400
  17. 250 x$=b$(3):gosub500:prints$;:fori=0to5:printl$d$(i):print:next:sysbl,6,6
  18. 260 fb=val(chr$(peek(251))):on-(fb=6)goto100:goto400
  19. 400 print"":fori=0to18:print:next:printl$l$"[194]itte eine [212]aste drucken"
  20. 410 poke198,0:wait198,255:goto100
  21. 500 rem
  22. 510 ln=len(x$):print"[147]";a$;"";spc((40-ln)/2);x$chr$(146);"":return
  23. 1000 data "[193]rbeit mit [212]astatur","[193]rbeit mit [196]iskette","[193]rbeit mit [196]rucker"
  24. 1010 data "[197]nde","[205][197][206][213][197]","[212][193][211][212][193][212][213][210]","[196][201][211][203][197][212][212][197]","[196][210][213][195][203][197][210]"
  25. 1020 data "[204]esen","[211]chreiben","[197]ditieren","[205]enue"
  26. 1030 data "[196]irectory","[204]oad","[211]ave","[205]enue"
  27. 1040 data "[194]riefkopf","[199]russwort","[212]itel","[211]eitenzahl","[212]ext","[205]enue"
  28. 2000 pokev,14:printchr$(9):end
  29.