10 GOTO630
20 POKE2,PEEK(56):POKE56,PEEK(46)+10:CLR:F=PEEK(56):I=1
30 H=I:N=255:IFPEEK(2)<>160THENN=PEEK(2)
40 N=N-F-I:D=F*256:M=828:DIMB%(35,20)
50 PRINT"[147]":OPEN1,8,15:D$="S":GOSUB540:F$=H$
60 GOSUB410:T=J:S=.:Z=I:V=T:Q=S
70 GOSUB280:PRINT"[210]EADING [199]ETTING [211]TARTED DISKETTE..."
80 IFB%(V,Q)=.THENGOSUB290:Z=Z+I:IFZ>NTHEN110
90 Q=Q+I:IFQ>20THENQ=.:V=V+I
100 IFV<=LTHEN80
110 CLOSE3
120 D$="D":GOSUB540:IFH$<>C$THENGOTO120
130 GOSUB280:PRINT"[215]RITING [205]INITEL/64 [208]ROGRAM DISKETTE...":Z=I:V=T:Q=S
140 IFB%(V,Q)=.THENGOSUB340:Z=Z+I:IFZ>NTHEN170
150 Q=Q+I:IFQ>20THENQ=.:V=V+I
160 IFV<=LTHEN140
170 CLOSE3:S=Q+I:IFS>20THENS=.:V=V+I
180 T=V:IFT>LTHEN210
190 D$="S":GOSUB540:IFH$<>F$THEN190
200 Z=I:V=T:Q=S:GOTO70
210 CLOSE1:PRINT"[195]OPYING COMPLETE.  [210]EFER TO THE"
220 PRINT"[211]ETTING [213]P [205]INITEL/64 SECTION ON YOUR"
230 PRINT"INSTRUCTION CARD.":GOTO620
240 A$="[205]INITEL/64 [208]GM":C$="PC"
250 PRINT"[198]ORMATTING DISKETTE..."
260 PRINT#1,"N0:"+A$+","+C$:GOSUB530:IFETHEN610
270 H=.:RETURN
280 PRINT#1,"I0":OPEN3,8,3,"#":RETURN
290 C=.
300 PRINT#1,"U1";3;0;V;Q:GOSUB530:IFNOTETHEN320
310 C=C+I:IFC<3GOTO300
320 PRINT#1,"B-P";3;0:GOSUB390:SYSM:GOSUB400:W=ST:IFW=.ORW=64THENRETURN
330 GOSUB520:GOTO610
340 C=.:PRINT#1,"B-A";0;V;Q:PRINT#1,"B-P";3;0
350 GOSUB390:SYSM+3:GOSUB400:W=ST:IFW>.ANDW<>64THEN610
360 PRINT#1,"U2";3;0;V;Q:GOSUB530:IFNOTETHENRETURN
370 C=C+I:IFC<3THEN360
380 GOTO330
390 P=PEEK(3):R=PEEK(4):POKE4,F+Z:RETURN
400 POKE3,P:POKE4,R:RETURN
410 J=I:L=.:U=.:B=4:Z=.:V=18:Q=.:GOSUB280:GOSUB300
420 S=.:K=INT((B-4)/4)+I:G=21:IFK>17THENG=19
430 IFK>24THENG=18
440 IFK>30THENG=17
450 Y=G-PEEK(D+B):IFY=GTHEN:FORX=.TOG-I:B%(K,X)=.:NEXT:B=B+3:GOTO470
460 B=B+I:A=PEEK(D+B):FORX=.TO7:B%(K,S)=2^XANDA:S=S+I:IFS<GTHENNEXT:GOTO460
470 B=B+I:IFG<21THENFORX=GTO20:B%(K,X)=-I:NEXT
480 U=U+Y:IFY=.ANDJ=KTHENJ=J+I:GOTO500
490 IFYTHENL=K
500 IFB<143THEN420
510 CLOSE3
520 RETURN
530 INPUT#1,E$,M$,T$,S$:E=VAL(E$):E$=E$+" "+M$+" "+T$+" "+S$:RETURN
540 G$="[199]ETTING [211]TARTED":IFD$="D"THENG$="[205]INITEL/64 [208]ROGRAM"
550 PRINT"[201]NSERT THE "G$" DISKETTE"
560 PRINT"AND PRESS [[210][197][212][213][210][206]]"
570 GETA$:IFA$<>CHR$(13) THEN570
580 IFHANDD$="D"THENGOSUB240
590 OPEN2,8,0,"$0":GOSUB530:IFETHEN610
600 FORX=ITO14:GET#2,A$,B$:NEXTX:H$=A$+B$:GET#2,A$,A$,B$:CLOSE2:RETURN
610 PRINT"ERROR: ST="W;E$
620 POKE56,PEEK(2):CLR:END
630 IFPEEK(46)=15THEN20
640 POKE53280,6:POKE53281,6
650 PRINTCHR$(14);CHR$(8);"[147]    [205]INITEL/64 [196]ISKETTE [195]OPY [208]ROGRAM"
660 PRINT"[212]HIS PROGRAM WILL COPY THE [199]ETTING"
670 PRINT"[211]TARTED DISKETTE TO YOUR DISKETTE"
680 PRINT"WHICH YOU HAVE LABELLED [205]INITEL/64"
690 PRINT"[208]ROGRAM.  [196]URING THIS PROCESS, THE"
700 PRINT"[205]INITEL/64 [208]ROGRAM DISKETTE WILL BE"
710 PRINT"AUTOMATICALLY FORMATTED FOR YOU,"
720 PRINT"[197][210][193][211][201][206][199] [193][206][217] [197][216][201][211][212][201][206][199][160][198][201][204][197][211]."
730 PRINT"[208]RESS [[210][197][212][213][210][206]] TO CONTINUE OR [[211][212][207][208]]"
740 PRINT"TO QUIT."
750 GETA$:IFA$<>CHR$(13)THEN750
760 FORX=828TO915:READN:POKEX,N:NEXT
770 POKE45,156:POKE46,15:POKE55,0:POKE3994,0:POKE3995,0:GOTO20
780 DATA76,66,3,76,97,3,162,3,32,198,255,160,0,132,3,32,207,255,32,138,3
790 DATA145,3,32,128,3,165,144,208,3,200,208
800 DATA238,32,204,255,96,162,3,32,201,255,160,0,132
810 DATA3,32,138,3,177,3,32,128,3,32
820 DATA210,255,165,144,208,3,200,208,238,32,204,255
830 DATA96,72,165,1,9,3,133,1,88,104,96,72,120,165,1,41,252,133,1,104,96