0 SYS 42926
10 INPUT"SPRITEADRESSE";AD$
11 IFLEFT$(AD$,1)<>"$"THENAD=VAL(AD$):GOTO20
12 IFLEN(AD$)<>5THENPRINT"[145][145]":GOTO10
13 AD$=RIGHT$(AD$,4)
14 AD=0:FORS=1TOLEN(AD$):H=ASC(MID$(AD$,S))-48:AD=AD*16+H+7*(H>9):NEXT
20 INPUT"DEHNUNG IN X-RICHTUNG (1- 10)  1[157][157][157]";DX
25 IFDX<1ORDX>10THENPRINT"[145][145][145]":GOTO20
30 INPUT"DEHNUNG IN Y-RICHTUNG (1-100)  1[157][157][157]";DY:IFDY<1ORDY>100THENPRINT"[145][145][145]":GOTO30
40 PRINT"DRUCKER BEREIT ?"
45 GETA$:IFA$=""GOTO45
50 PRINT"WORKING..."
100 OPEN1,4,6:PRINT#1,CHR$(0):CLOSE1
120 OPEN2,4
130 A$=CHR$(20)+CHR$(27)+CHR$(75)+CHR$(24*DX)+CHR$(0)
140 FORX=0TO23:Y=AY
150 FORK=6TO0STEP-1
160 IF(PEEK(AD+INT(Y/DY)*3+INT(X/8)))AND2^(7-(XAND7))THENDA=DAOR2^K
165 Y=Y+1:NEXTK
180 FORI=1TODX:DA$=DA$+CHR$(DA):NEXTI:DA=0
190 NEXTX:PRINT#2,A$;DA$:DA$=""
200 AY=AY+7:IFAY<21*DYTHEN140
210 CLOSE1:END