home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_B.d64 / funky-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  366b  |  8 lines
  1. 5 x=peek(53280):y=peek(53281):poke53280,z:poke53281,z:print"[147][198]unktionstastencheck"
  2. 7 print"[196]ruecken [211]ie eine [212]aste !!"
  3. 10 poke198,0:wait198,1:geta$:a=asc(a$)-132:a=2*a-1+(a>4)*7:ifa<1ora>8then30
  4. 20 print"[197]s wurde [198]unktionstaste [153]"a"[157][157][157][198][154][146]gedrueckt !":goto10
  5. 30 ifa$="[192]"thenpoke53280,x:poke53281,y:end
  6. 35 print"[203]eine [198]unktionstaste !! [211]ie drueckten"
  7. 40 print"die [212]aste '[150]"a$"[154]' ([193][211][195][201][201] ="asc(a$)"[157]) !!":goto10
  8.