home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8603.d64 / laufschrift (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  53 lines
  1. 0 POKE53272,23:POKE53280,0:POKE53281,0
  2. 50 PRINT"[147][204]ESE [196]ATEN EIN.....[194]ITTE WARTEN [211]IE....."
  3. 60 FORI=56256TO56295:POKEI,1:NEXT
  4. 8999 REM **** MASCHINENSPRACHE ****
  5. 9000 DATA120,169,31,141,20,3,169,192,141,21,3,173,17,208,41,127,141,17,208,169
  6. 9010 DATA186,141,18,208,169,129,141,26,208,88,96,173,25,208,141,25,208,48,7,173
  7. 9020 DATA13,220,88,76,49,234,173,84,195,201,6,240,16:REM_LAENGE 1.UNTERPRG.
  8. 9040 DATA169,6,141,84,195,169,1,141,18,208
  9. 9041 DATA32,0,193,76,188,254
  10. 9090 DATA169,0,141,84,195,169,231,141,18,208
  11. 9091 DATA169,200,141,22,208,76,188,254
  12. 9210 DATA120,169,49,141,20,3,169,234,141,21,3,169,240,141,26,208,88,96
  13. 9300 FORI=49152TO49256:READQ:POKEI,Q:NEXT
  14. 9400 DATA174,251,3,202,142,251,3,142,22,208,224,255,240,1,96,162,7,142,251,3
  15. 9410 DATA142,22,208,162,0,189,193,7,157,192,7,232,224,39,208,245,174,250,3,232
  16. 9420 DATA142,250,3,189,0,194,141,231,7,96
  17. 9500 FORI=49408TO49457:READQ:POKEI,Q:NEXT:POKE1019,0:POKE1018,0
  18. 9999 PRINT"[147]"
  19. 10000 PRINT"[158]  [204]AUFSCHRIFTGENERATOR VON S.[199]OEBBELS":PRINT"[205]ENUE:"
  20. 10001 PRINT"-1- [197]RSTELLEN DER [204]AUFSCHRIFT"
  21. 10002 PRINT"-2- [193]NSEHEN DER [211]CHRIFT"
  22. 10003 PRINT"-3- [211]PEICHERN ([196]ISK)"
  23. 10004 PRINT"-4- [193]ENDERN DES [212]EXTES"
  24. 10005 INPUT"[201]HRE [215]AHL ";A
  25. 10006 IFA=1THENSYS49239:POKE53270,200:GOTO20000
  26. 10007 IFA=2THENPOKE1018,0:PRINT"[147]":SYS49152:GOTO10000
  27. 10008 IFA=3THENSYS49239:POKE53270,200:GOTO30000
  28. 10009 IFA=4THENSYS49239:POKE53270,200:GOTO40000
  29. 10010 GOTO9999
  30. 20000 PRINT"[147][196]ER [212]EXT DARF MAX. ETWAS LAENGER ALS 6"
  31. 20001 PRINT"[218]EILEN SEIN. (MAX. 256 [218]EICHEN)"
  32. 20002 PRINT"[215]ENN [211]IE DEN [212]EXT EINGEGEBEN HABEN,"
  33. 20003 PRINT"[196]RUECKEN [211]IE BITTE [210]ETURN."
  34. 20004 INPUT"[212]EXT ";A$:A$="":GOSUB48000:GOTO9999
  35. 30000 PRINT"[147]":INPUT"[198]ILENAMEN ";A$:IFA$=""THEN30000
  36. 30001 PRINT"[194]ITTE WARTEN..."
  37. 30009 OPEN1,8,1,A$
  38. 30010 PRINT#1,CHR$(0);CHR$(192);:FORI=49152TO49664+255:W=PEEK(I)
  39. 30020 PRINT#1,CHR$(W);:NEXTI:CLOSE1
  40. 30030 PRINT"[196]AS EBEN ERZEUGTE [208]ROGRAMM KOENNEN [211]IE"
  41. 30031 PRINT"SPAETER ABSOLUT LADEN UND MIT [211][217][211]49152"
  42. 30032 PRINT"AKTIVIEREN."
  43. 30033 PRINTTAB(32)"[210]ETURN"
  44. 30034 GETA$:IFA$=""THEN30034
  45. 30035 GOTO9999
  46. 40000 PRINT"[147][211]IE KOENNEN DEN UNTEN STEHENDEN [212]EXT"
  47. 40001 PRINT"AENDERN. [193]CHTEN [211]IE JEDOCH AUF DAS AUTO-"
  48. 40002 PRINT"MATISCHE [218]EILENSCROLLING. [196]RUECKEN [211]IE"
  49. 40003 PRINT"[159][210][197][212][213][210][206] UM ZU ENDEN."
  50. 40004 FORI=0TO255:POKE1344+6+I,PEEK(49664+I):NEXT
  51. 40005 PRINT"":INPUT"[212]EXT ";A$:GOSUB48000:GOTO9999
  52. 48000 FORI=0TO255:POKE49664+I,PEEK(1024+I+8*40+6):NEXT:RETURN
  53.