home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / PTBX2-3.ARC / DITTO1 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  31 lines
  1. 4 REM(null)
  2. 5 IFX=0THENX=1:POKE646,PEEK(647):IFPEEK(56)=160THENLOAD"A",8,1
  3. 10 SYS52496:CLR:DIMTK%(35):B=52734:C=53035:D=53071:E=52080:F=E+45:A=49152:J=52002:K=52384:N=52778:R=52917:U=51792:SY=51712:CS$="[145]":POKE53280,0:POKE53281,0:IFPEEK(828)THENT1=1:T2=35:GOTO80
  4. 45 PRINT"      FROM TRACK  [160]  TO TRACK[157][157][157][157][157][157][157][157][157][157][157][157][157]";:INPUTT1$:INPUT"[145]";T2$:T1=VAL(LEFT$(T1$,2)):T2=VAL(LEFT$(T2$,2)):IFT1>35ORT1<1ORT2>35ORT2<1ORT2-T1<0THEN400
  5. 65 PRINT"          DO YOU WANT TO COPY":PRINT"    TRACKS"T1"THROUGH"T2"INCLUSIVE?":SYS52541:IFPEEK(828)=0THEN10
  6. 80 PRINT"    PLACE ORIGINAL DISK IN DEVICE 8":SYS52558:POKE251,0:POKE252,24:POKE254,27:OPEN15,8,15,"I":OPEN5,8,5,"#":PRINT#15,"U1:"5;0;18;0:CLOSE5:SYSA:FORL=.TO44STEP2:PRINT#15,"M-W"CHR$(L)CHR$(4)CHR$(2)CHR$(PEEK(B+L))CHR$(PEEK(B+1+L)):NEXT
  7. 110 FORL=.TO34STEP2:PRINT#15,"M-W"CHR$(L+48)CHR$(4)CHR$(2)CHR$(PEEK(C+L)(null)k(null)i(null)x(null)REM(null)(null)(null)(null)CMD(null)GOSUB(null)(null)(null)REM(null)REMPOKEREAD(null)PRINTGOSUB(null)OPENPOKE(null)PRINT#M-W"[199](L)[199](6)[199](2)[199]([194](D[170]L))[199]([194](D[170]1[170]L)):[130]:[153]"LOAD":[159]5,8,5,"#":HS[178]36[171]2[172]T1:DR[178]128:[139]HS[179][171]1[167]DR[178]0
  8. 130 HS[178][182](HS):[152]15,"M-W"[199](170)[199](7)[199](3)[199](36)[199](DR)[199](HS):T3[178]T1:T4[178]T2:[139]T2[171]T1[177]5[167]T4[178]T1[170]5
  9. 140 SE[178]20:[139]T3[177]17[167]SE[178]18:[139]T3[177]24[167]SE[178]17:[139]T3[177]30[167]SE[178]16
  10. 145 [158]SY:[153]"           LOADING TRACK"T3:[152]15,"M-E"[199](0)[199](6):[152]15,"M-E"[199](78)[199](6):[158]E:[152]15,"M-R"[199](0)[199](3)[199](1):[161]#15,A$:[139][198](A$[170][199](0))[179][177]0[167]175
  11. 160 TK%(T3)[178]4:[152]15,"M-W"[199](171)[199](7)[199](2)[199](0)[199](2):[139]T3[178]T4[167]215
  12. 170 T3[178]T3[170]1:[137]140:[143][204]
  13. 175 [129]Y[178].[164]SE:[152]15,"M-E"[199](44)[199](6):[158]F:[130]:T3[178]T3[170]1:[139]T2[171]T1[178]0[167]215
  14. 185 [129]I[178]T3[164]T4:[152]15,"M-E"[199](7)[199](6):[152]15,"M-E"[199](78)[199](6):[158]E:[158]SY:[153]CS$;I:[152]15,"M-R"[199](0)[199](3)[199](1):[161]#15,A$:[139][198](A$[170][199](0))[178]0[167]TK%(I)[178]4:[137]210
  15. 200 SE[178]20:[139]I[177]17[167]SE[178]18:[139]I[177]24[167]SE[178]17:[139]I[177]30[167]SE[178]16
  16. 205 [129]Y[178].[164]SE:[152]15,"M-E"[199](44)[199](6):[158]F:[130]
  17. 210 [130]:[143][204]
  18. 215 [152]15,"M-E"[199](114)[199](7):[160]5:[160]15:[153]"LOAD    PLACE "[199](34)"COPY-TO"[199](34)" DISK IN DEVICE 8"
  19. 225 [158]52558:[151]251,0:[151]252,24:[159]15,8,15,"I":[159]5,8,5,"#":[152]15,"U1:"5;0;18;0:[160]5:[152]15,"M-R"[199](0)[199](28):[161]#15,WP$:WP[178][198](WP$[170][199](0))[175]16:[139]WP[178]0[167][153]"LOAD":[153][166]7)"REMOVE WRITE PROTECT TAB":[160]15:[137]225
  20. 250 [152]15,"M-W"[199](48)[199](0)[199](2)[199](0)[199](5):[129]L[178].[164]144[169]3:[152]15,"M-W"[199](L)[199](6)[199](3)[199]([194](N[170]L))[199]([194](N[170]L[170]1))[199]([194](N[170]L[170]2)):[130]:[129]L[178].[164]50[169]2:[152]15,"M-W"[199](150[170]L)[199](6)[199](2)[199]([194](R[170]L))[199]([194](R[170]L[170]1)):[130]:[158]A:[129]L[178].[164]38[169]2:[152]15,"M-W"[199](L)[199](4)[199](2)[199]([194](U[170]L))[199]([194](U[170]1[170]L)):[130]
  21. 280 [129]L[178].[164]120[169]3:[152]15,"M-W"[199](50[170]L)[199](4)[199](3)[199]([194](K[170]L))[199]([194](K[170]L[170]1))[199]([194](K[170]L[170]2)):[130]:[159]5,8,5,"#":[152]15,"M-W"[199](170)[199](7)[199](3)[199](36)[199](DR)[199](HS):[152]15,"M-E"[199](150)[199](6):[153]"LOAD           WRITING TRACK"
  22. 310 T3[178]T1:[129]I[178]T3[164]T4:[152]15,"M-W"[199](171)[199](7)[199](2)[199](0)[199](2):[158]SY:[153]CS$;I:SE[178]20:[139]I[177]17[167]SE[178]18:[139]I[177]24[167]SE[178]17:[139]I[177]30[167]SE[178]16
  23. 325 [152]15,"M-W"[199](176)[199](7)[199](2)[199](8)[199](SE[170]1):[158]52256:[139]TK%(I)[178]4[167][152]15,"M-E"[199](151)[199](4):TK%(I)[178]3:[137]350
  24. 335 [158]J:[152]15,"M-E"[199](171)[199](6):[152]15,"M-E"[199](0)[199](6):[129]Y[178]1[164]SE:[158]J:[152]15,"M-E"[199](177)[199](6):[152]15,"M-E"[199](57)[199](4):[130]
  25. 350 [139]I[179]T4[167][152]15,"M-E"[199](157)[199](6)
  26. 355 [130]I:[152]15,"M-E"[199](114)[199](7):[160]5:[160]15:[139]T2[171]T1[177]5[167]T1[178]T1[170]6:[137]80
  27. 370 [153]"LOAD":[153][166]12)"BACKUP COMPLETED":[153][166]11)"RUN AGAIN (Y/N) ?"
  28. 375 [161]G$:[139]G$[178]"Y"[167][156]:[137]10
  29. 380 [139]G$[179][177]"N"[167][158]SY:[129]TM[178]1[164]700:[137]375
  30. 385 [160]5:[159]15,8,15,"UJ":[129]TM[178]1[164]1200:[130]:[160]15:[158]64738
  31.