home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9212a.d64 / laufschrift(prg) (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 CLR:RESTORE:J=53265:DIMC(59):SYS65371:SYS64931:SYS64789:POKE56334,.:POKE19,1
  2. 2 POKEJ,11:FORA=49152TO49253:READB:POKEA,B:NEXT:SYS49152:POKE49163,208:SYS49152
  3. 3 DATA169,115,133,1,32,20,192,169,208,141,26,192,32,20,192,169,119,133,1,96,162
  4. 4 DATA,160,16,189,,208,157,,32,232,208,247,238,26,192,238,29,192,136,208,238
  5. 5 DATA96,173,18,208,201,187,208,249,169,64,160,5,133,250,132,251,160,,162,7,200
  6. 6 DATA177,250,136,145,250,200,192,39,208,245,169,32,145,250,165,250,24,105,40
  7. 7 DATA133,250,144,2,230,251,160,,202,16,225,96,6,14,3,1,3,14,6,5:GOSUB18
  8. 8 FORT=9216TO10239:POKET,255-PEEK(T):NEXT:FORT=9223TO10239STEP8:POKET,255:NEXT
  9. 9 PRINT"[147][156]";SPC(14);"LAUFSCHRIFT":PRINTSPC(14);"-----------":POKE56334,1
  10. 10 PRINTSPC(18);"[159]BY":PRINTSPC(11);"TOURAJ TAJBAKHSH":POKE53272,25:POKEJ,27
  11. 11 INPUT"BITTE TEXT EINGEBN : ";E$:POKE56334,.:POKEJ,11:PRINT""E$
  12. 12 F=LEN(E$):FORA=1TOF:C(A)=PEEK(1024+A-1):NEXT:POKE646,10:GOSUB18:POKE53272,28
  13. 13 FORA=8TO15:FORB=55296+(A*40)TO55335+(A*40):POKEB,PEEK(49238+A):NEXTB,A
  14. 14 FORT=1224TO1263:POKET,100:NEXT:FORT=1704TO1743:POKET,99:NEXT:POKEJ,27
  15. 15 FORA=1TOF:G=12288+8*C(A):IFG=12544THENFORB=.TO7:SYS49195:NEXTB,A
  16. 16 FORB=7TO.STEP-1:FORH=.TO7:IF(PEEK(G+H)AND2^B)=2^BTHENPOKE1383+(40*H),207
  17. 17 NEXTH:SYS49195:NEXTB,A:FORA=.TO39:FORB=.TO9:NEXT:SYS49195:NEXT:GOTO15
  18. 18 POKE53280,.:POKE53281,.:PRINTCHR$(8)"[147]"SPC(11)"[164][175][185][162][184][183][163][163]    [163][163][183][184][146][162][185][175][164]"
  19. 19 PRINTSPC(9)"[223]   LAUFSCHRIFT V1.0   [146][169]":PRINTSPC(11)"[163][183][184][162][185][175][164][164]    [164][164][175][185][162][146][184][183][163]"
  20. 20 PRINTSPC(35)"[150][164][164][164]":PRINTSPC(34)"[169]PAL[223][146]";:RETURN
  21.