home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 July / 64er_Magazin_91-07_1991_Markt__Technik_de_Side_A.d64 / schocker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 rem *******  s c h o c k e r  *******
  2. 2 rem nach <run> bitte 20 sek. warten !
  3. 3 rem dann start mit     sys 49152
  4. 4 dimc(75):fora=0to9:c(48+a)=a:c(65+a)=10+a:next:fora=0to13:reada$:forb=1to32:
  5. 5 b$=mid$(a$,b*2-1,2)
  6. 6 poke49152+a*32+b-1,c(asc(left$(b$,1)))*16+c(asc(right$(b$,1))):nextb,a
  7. 7 data"78a9338501a900855fa9d08560a900855aa9d8855ba9008558a9d0855920bfa3"
  8. 8 data"a93785012098c1a200a007b900c8488810f9a007689900c88810f9ad2cc01869"
  9. 9 data"088d2cc08d36c09006ee2dc0ee37c0cad0d7a000b900c8a2074829019da4c168"
  10. 10 data"6aca10f59848a203a004bda4c18502b9a4c19da4c1a50299a4c1c8ca10ec68a8"
  11. 11 data"a900aa48bda4c14a682ae8e00890f49900c888d0bfee91c0ee56c0ad56c0c9d0"
  12. 12 data"90b0a208bdaec19d0080ca10f75860eeacc1d00aeeadc1adadc1c950b00aad8d"
  13. 13 data"02c907f0034c31eaa9008dacc18dadc18d8d02782059c1a200a0ffbd000499e8"
  14. 14 data"c688e8d0f6eeddc0cee0c0adddc0c90890e5ad02dd09038d02ddad00dd25fc8d"
  15. 15 data"00dda9138d18d0a9048dddc0a9c68de0c0a20aa0ff20b3ee88d0facad0f52059"
  16. 16 data"c1ad00dd25fc09038d00dda9158d18d0584c31ea782015fd20a3fd2018e52098"
  17. 17 data"c14c7be38e16d020a3fd2050fd2015fd205bff2098c16c00a0ad20d08502a900"
  18. 18 data"8d20d0ad11d029ef8d11d02087c1a20020b3eecad0fa2087c1a5028d20d0ad11"
  19. 19 data"d009108d11d060a210a000ce20d0ee20d088d0f7cad0f260a9af8d1403a9c08d"
  20. 20 data"150358600000000000000000000044c134c1c3c2cd3830c2cd3830ffffffff00"
  21.