home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9109a.d64 / spr+hires-edit (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 FORI=828TO828+34:READA:POKEI,A:NEXT:A=0:B=0:Z=8192:O=Z:H$="[147]":FORI=1TO18:READA
  2. 2 N$=N$+CHR$(A):NEXT:PRINT"[147][153]"+N$+"[146][154][157][157][157][157][157][157][157][157][157][157][158]SPRITE+HIRES EDITOR V1.0"
  3. 3 FORI=0TOZ/5:NEXT:FORI=704TO766:POKEI,0:NEXT:B=0:B$="JJJ[157][157][157]JJJ[157][157][157]JJJ":A=0
  4. 4 C=53272:D=53265:POKED,60:POKEC,24:PRINTCHR$(147):POKE53281,0:POKE53280,0
  5. 5 POKE214,A:POKE211,B:SYS58640:PRINTB$
  6. 6 GETA$:IFA$=""THEN6:DATA162,32,160,0,134,100,132,99,169,0,170,145,99
  7. 7 IFA$=""ANDB<37THENPRINTH$:B=B+1:Z=Z+8:GOTO5:DATA200,192,0,208,249,232,224
  8. 8 IFA$="S"THENGOTO19:DATA32,240,11,164,100,200,132,100,160,0,192,0,240,233,96
  9. 9 IFA$="[157]"ANDB>0THENPRINTH$:B=B-1:Z=Z-8:GOTO5:DATA77,73,67,72,65,69,76,32,67
  10. 10 IFA$=""ANDA<22THENPRINTH$:A=A+1:Z=Z+320:GOTO5:DATA90,89,67,72,79,87,83
  11. 11 IFA$=CHR$(145)ANDA>0THENPRINTCHR$(147):A=A-1:Z=Z-320:GOTO5:DATA75,73
  12. 12 IFA$=CHR$(13)THENF=AD:GOTO16
  13. 13 IFA$="A"THENPOKEC,21:POKED,27:PRINTH$:POKE19,1:INPUT"ADR:";AD:GOTO4
  14. 14 IFA$=H$THENPRINTH$;:SYS828:A=0:B=0:Z=O:GOTO5
  15. 15 GOTO6
  16. 16 T=0:Y=0:FORI=0TO20:POKEZ+T,PEEK(F):POKEZ+T+8,PEEK(F+1):POKEZ+T+16,PEEK(F+2)
  17. 17 T=T+1:Y=Y+1:F=F+3:IFY=8THENT=T+312:Y=0
  18. 18 NEXTI:GOTO5:REM BY M.C. (1991)
  19. 19 POKED,27:POKEC,21:POKE19,1:INPUT"[147][154]NAME:";R$:R$=MID$(R$,1,16)
  20. 20 SYS57812R$,8,1:POKE174,255:POKE175,63:POKE193,0:POKE194,32:SYS62957:GOTO4
  21.