home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / SWAPPER.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  36 lines
  1. 10 POKE55,.:POKE56,160:CLR:Q$=CHR$(34):E$="00":K=3168:PRINT"[147][142]"
  2. 20 PRINT"ENTER FIRST DEVICE NUMBER."
  3. 25 GOSUB500:A=Z:IFZ=.THENEND
  4. 27 IFFTHENF=.:GOTO20
  5. 30 PRINT"                                  "
  6. 35 PRINT"ENTER SECOND DEVICE NUMBER."
  7. 40 GOSUB500:B=Z:IFZ=.THENEND
  8. 42 IFFTHENF=.:PRINT"":GOTO35
  9. 45 IFA<>BTHEN55
  10. 50 PRINT"[147]YOU ENTERED TWO IDENTICAL NUMBERS.":GOTO20
  11. 55 POKEK+44,A:POKEK+56,A+32:POKEK+61,A+64
  12. 60 POKEK+52,B:POKEK+69,B+32:POKEK+74,B+64:PRINT"[147]"
  13. 65 PRINT"ENTER DEVICE NUMBER FOR FILE."
  14. 70 GOSUB500:IFZ=.THENEND
  15. 72 IFFTHENF=.:GOTO65
  16. 75 GOSUB700:IFSTTHEN65
  17. 77 OPEN15,Z,15:GOSUB600:IFJ$=E$THENPRINT"                     ":GOTO80
  18. 78 CLOSE15:GOTO65
  19. 80 PRINT"ENTER FILENAME FOR FILE."
  20. 85 F$="":PRINT"                [145]":INPUTF$:IFF$=""THENCLOSE15:PRINT"[147]":GOTO65
  21. 90 OPEN8,Z,1,F$:GOSUB600:IFJ$<>"00"THENCLOSE8:GOTO80
  22. 95 PRINT"[147]WRITING ";Q$;F$;Q$;"..."
  23. 100 FORI=.TO94:PRINT#8,CHR$(PEEK(I+K));:NEXT:CLOSE8:CLOSE15:PRINT"...DONE":END
  24. 500 PRINT"(FROM 4 TO 30)":PRINT"    [145]"
  25. 510 Z=.:INPUTZ:IFZ=.THENRETURN
  26. 520 IFZ>3ANDZ<31THENRETURN
  27. 530 PRINT"                                       "
  28. 540 PRINT"[145]ILLEGAL DEVICE NUMBER":F=1:RETURN
  29. 600 INPUT#15,J$,O$,H$,N$
  30. 610 IFJ$="00"THENRETURN
  31. 620 PRINT"                                       "
  32. 630 PRINT"[145]";J$;",";O$;",";H$;",";N$:RETURN
  33. 700 POKE186,Z:POKE185,8:POKE184,8:POKE183,1:POKE187,22:POKE188,8:SYS65472
  34. 710 IFSTTHENPRINT"[147]DEVICE";Z;"[157] NOT PRESENT"
  35. 720 CLOSE8:RETURN
  36.