home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 34 / Tiger_Disk_034_1997-01_Tiger-Crew-Disk_de_Side_A.d64 / hi-eddi-shower (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  566b  |  17 lines
  1. 5 print"[147]    ";
  2. 10 fori=900to980:reada:pokei,a:next
  3. 20 input"bild-name";n$
  4. 30 a=peek(56576):poke56576,a and 252
  5. 40 b=peek(53272):poke53272,8
  6. 50 c=peek(53265):poke53265,c or32
  7. 60 f=16*6+8
  8. 70 fori=49152to50152:pokei,f:next
  9. 80 sys900,n$
  10. 90 poke198,0:wait198,1
  11. 100 poke56576,a:poke53272,b:poke53265,c
  12. 110 data32,253,174,32,212,225,169,92,162,8,160,2,32,186,255,32,192,255,162
  13. 120 data92,32,198,255,32,207,255,32,207,255,162,32,160,0,132,251,169,224,133
  14. 130 data252,32,193,3,208,9,169,192,133,252,162,4,32,193,3,32,204,255,169,92
  15. 140 data76,195,255,32,207,255,145,251,169,195,36,144,208,8,200,208,242,230
  16. 150 data252,202,208,237,96
  17.