home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 3 / Dimension_64_Nr.03_19xx_-_de_Side_B.d64 / sprite-p (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  646b  |  24 lines
  1. 0 sys 42926
  2. 10 input"spriteadresse";ad$
  3. 11 ifleft$(ad$,1)<>"$"thenad=val(ad$):goto20
  4. 12 iflen(ad$)<>5thenprint"[145][145]":goto10
  5. 13 ad$=right$(ad$,4)
  6. 14 ad=0:fors=1tolen(ad$):h=asc(mid$(ad$,s))-48:ad=ad*16+h+7*(h>9):next
  7. 20 input"dehnung in x-richtung (1- 10)  1[157][157][157]";dx
  8. 25 ifdx<1ordx>10thenprint"[145][145][145]":goto20
  9. 30 input"dehnung in y-richtung (1-100)  1[157][157][157]";dy:ifdy<1ordy>100thenprint"[145][145][145]":goto30
  10. 40 print"drucker bereit ?"
  11. 45 geta$:ifa$=""goto45
  12. 50 print"working..."
  13. 100 open1,4,6:print#1,chr$(0):close1
  14. 120 open2,4
  15. 130 a$=chr$(20)+chr$(27)+chr$(75)+chr$(24*dx)+chr$(0)
  16. 140 forx=0to23:y=ay
  17. 150 fork=6to0step-1
  18. 160 if(peek(ad+int(y/dy)*3+int(x/8)))and2^(7-(xand7))thenda=daor2^k
  19. 165 y=y+1:nextk
  20. 180 fori=1todx:da$=da$+chr$(da):nexti:da=0
  21. 190 nextx:print#2,a$;da$:da$=""
  22. 200 ay=ay+7:ifay<21*dythen140
  23. 210 close1:end
  24.