#include #include #define COPYBUF 0x5a000L /* 512 bytes * 9 sectors * 80 tracks */ #define MAGIC 0x087654321L #define VIRGIN 0xe5e5 #define BUFLEN 8*1024 #define NUMSEC 80*9 /* 720 sectors */ long bufadr; /* address of copy buffer */ char buf[256]; char fmtbuf[BUFLEN]; main() { int old_res,choice,dfalt,hi,rd_flag; tf_init(80); dfalt = 0; /* set initial default */ hi=1; rd_flag=FALSE; old_res=Getrez(); if (old_res==0) Setscreen(-1L,-1L,1); title("Reasonable Disk Copier","Version 1.7 - December 23, 1985"); bufadr = Malloc(COPYBUF); /* allocate COPYBUF size buffer */ if (bufadr==0L) { cls(); center("Runs only on systems with 1 Meg upgrade or TOS in ROM!",12); error("NOT ENOUGH MEMORY TO RUN! Press [RETURN]"); return; } do { cls(); center( "Reasonable Disk Copier V1.7 - December 23, 1985",0); center("Copyright 1985 by Michael Curry",1); center( "CIS 72507,2146 or The Key System BBS (415) 352-5528",3N^NuNV# 3$F3 $HBy$L3$RN#!N^NuNV# 3$F3 $HBy$L3$RN#!N^NuNV# 3 3$F3$H3$L3$RN#!N^NuNV3 3$FBy$H3$L3$RN09N^NuNV3 3$FBy$H3$L3$RN09N^NuNV3 3$FBy$H3$L3$RN09N^NuNV3 3 3l$FBy$H3$L3$RNN^NuNV3 3$FBy$H3$L3$RN09N^NuNV3 !By!3$F3$HBy$L3$RN09"N^NuNV3 3$FBy$H3$L3$RN09N^NuNV3 3$FBy$H3$L3$RN09N^Nu#$F"<psNBNuNVBBJlDRBJ lD RB0. -@0.2. An=@ .gDN^NuNVH?BCB..,. f# <`hlDRCJlDRCn8fzB`0l :HGH`xe`Jge`|fD# D`# JLN^NuNV3#P0.|Hм-@=|` nH2n#P2RRn nm.$>NB@09#xN^NuNV##P ## ##X ##x #$^ #$p # $>> aF3#x$DpN^NuNV>a*pN^NuNV3#X3 #Z3 #\3#^3#`3#b3#d3#f3#h3#j3#l3#n3 #p3"#r#$$^3(#t3*#v>N n,0#z n00#| n40#~ n80# n<0# n@0#B@09#xN^NuNV3#X3 #Z3 #\3#^3#`3#b3#d3#f>INN^NuNV3#X3 #Z3 #\3#^3#`3#b3#d3#f>JNN^NuNV>MN n0#z n 0#| n0#~ n0#B@09#xN^NuNV3#X# $^>NNN^NuNV3#X# $^>#NN^NuNV3#X3 #Z3 #\3#^3#`>dNN^NuNV3#X3 #Z3 #\3#^3#`>eNN^NuNV3#X>fNN^NuNV3#X>gNN^NuNV3#X3 #Z>hN n 0#z n0#| n0#~ n0#B@09#xN^NuNV3#X3 #Z3 #\3#^3#`3#b>iNN^NuNV3#X>kNN^NuNVH *n(n >0-W?0,WN~T:>0-W?,0,WN~T8>?NbT>>?,NbT<89F0G9@0F9@GoFnB@`pJL0N^NuNV0.n o0.`0. N^NuNV0.n l0.`0. N^Nu @(#)CLOCK.ACC V0.03 Atari Corp. /jwt N %*/37m:x<>?@b\xT CLOCK Clock  >        2>  (                      "             L .:     $ & " " "       ( ( .   zf  $             *