home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_B.d64 / koala-shower (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  291b  |  7 lines
  1. 10 na$="":input"[147] name (ohne '[193][146]pic' !) ";na$:ifna$=""thenprint"[147]":end
  2. 20 l$="?pic "+na$+"*"
  3. 30 sys(57812)l$,8,0:poke781,0:poke782,32:sys65493
  4. 40 x=53265:pokex+7,24:pokex,59:pokex+5,24:pokex+16,peek(18192):pokex+15,.
  5. 50 fora=0to999:poke1024+a,peek(16192+a):poke55296+a,peek(17192+a):next
  6. 60 poke198,0:wait198,1:poke198,0:pokex+7,20:pokex,27:pokex+5,200:run
  7.