home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9107a.d64 / schocker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.2 KB  |  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.