home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / linker (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  439b  |  17 lines
  1. 6 OPEN15,8,15
  2. 10 PRINT"[147]":B=15360
  3. 15 FORX=15360TO15360+8*64:POKEX,0:NEXT
  4. 20 FORX=1TO8:PRINT"NAME DES"X". SPRITES";:INPUTA$(X):
  5. 25 NEXT:PRINT
  6. 30 FORX=1TO8:Y=B:IFA$(X)=""THENB=B+64:GOTO70
  7. 40 : OPEN2,8,2,A$(X)+",S,R":INPUT#15,A,B$,C,D:PRINTA;B$;C;D,A$(X)
  8. 45 : IFA<>0THEN80
  9. 50 : GET#2,A$
  10. 52 : A=ASC(A$+CHR$(0)):POKEB,A:B=B+1:IFST<>64THEN50
  11. 60 : CLOSE2:B=Y+64
  12. 70 NEXT:GOSUB 90
  13. 80 CLOSE15:END
  14. 90 PRINT:PRINT"DISKETTE WECHSELN":           POKE198,0:WAIT198,1
  15. 100 SYS(57812)"@:EDISPRITE",8:POKE193,0:POKE194,60
  16. 110 POKE174,000:POKE175,62:SYS62957:RETURN
  17.