1 ! +++++++++++++++++++++++++++++++++++
2 ! Program ....   COPYDISK.800
3 ! Utg}va  1.0    1982-04-18
4 ! av (c) Bengt Lundstr|m
5 ! {ndrat till ABC800 av Bo Kullmar
8 ! Ins{nt av Bo Kullmar
9 ! +++++++++++++++++++++++++++++++++++
10 ! Programmet kan l{tt {ndras
11 ! tillbaka till ett ABC80 program!
15 ! COPYDISK, Pprogram som kopierar
20 ! en disk i drive 0 till en exakt
21 ! kopia p} dirve 1.
22 ! 
23 ! OBS FARLIGT ATT KOPIERA TILL
24 ! "FEL H]LL"!
25 ! 
60 FLOAT 
70 SINGLE 
80 NO EXTEND 
300 DIM Q1$=256,S$(7)=256 : Q1$=SPACE$(256)
1000 ; : ; 'NU SKALL VI KOPIERA ALLT FR]N'
1010 ; : ; 'DISK 0 TILL DISK 1'
1020 ; : ; '[R DET OK (Ja) '; : INPUT A$
1030 IF A$<>'Ja' THEN ; : ; 'TUR ATT MAN FR]GAR ELLER HUR' : ; : ; 'OBS STORT J MED  ETT LITET a' : GOTO 1240
1040 ; CHR$(12)
1050 ; CUR(2,0) DBLE 'COPYDISK 0 TO DISK 1'
1060 ; CUR(8,1) 'Programmet ger un en exakt kopia av'
1070 ; ' drive 0 p} dirve 1!'
1080 A=PEEK2(-212) ! F|r ABC80 65065
1090 POKE A+6,62720,SWAP%(62720)
1100 FOR T%=0 TO 79
1110   FOR S%=0 TO 7%
1120     POKE -767%,0%
1130     Q1$=SPACE$(256)
1140     Z%=CALL(24678%,SWAP%(T%)+32%*S%)
1150     S$(S%)=Q1$
1160   NEXT S% 
1170   FOR S%=0% TO 7%
1180     Q1$=S$(S%)
1190     POKE -767%,1%
1200     Z%=CALL(24675%,SWAP%(T%)+32%*S%)
1210     ; CUR(14,1) 'Nu kopieras sp}r: sektor:'
1220     ; CUR(16,14) T% '     ' S%
1230 NEXT S% : NEXT T% 
1240 END