0 'CIRCLE.LDR v2.0 c1987 Jon Diercks [73327,2353] - see CIRCLE.DOC
1 GOSUB5000
4 B=64704:CLS:PRINT@48,"Creating CIRCLE.CO"
5 A=B:C=B+E:D=D+B:S=99:M=99:PRINT@88,"Line":PRINT@128,"Address"
6 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO6
7 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
8 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO6
40 SAVEM"circle",B,C,D
50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55
51 IFU>16THENU=U-16:O=1ELSEO=0
52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55
53 K=(U-1)*16+V-1:RETURN
55 BEEP:PRINT@165,"Bad character":END
60 IFM<N*2+5THEN70
61 IFL<>RTHENBEEP:PRINT@165,"Checksum fail":END
62 READY:M=1:GOSUB50:IFK=0THEN40
63 S=S+1:PRINT@110,S;:PRINT@150,A;:N=K:M=3:GOSUB50:M=5:L=K:GOSUB50:L=K*256+L:R=0
70 M=M+2:GOSUB50:R=R+K:RETURN
100 DATA38E521160122A8FD32A5FDFE02DACEFC1F32A7FD9732A6FD7A32AAFD3AA9FD21A5FD86DC8FFD573AA8FD21A6FD86DC8FFD5FD5CD92FDD13AA9FD21
101 DATA380726A5FD96DC8FFD57D5CD92FDD13AA8FD21A6FD96DC8FFD5FD5CD92FDD13AA9FD21A5FD86DC8FFD57CD92FD3AA9FD21A6FD86DC8FFD573AA8FD
102 DATA38F72521A5FD86DC8FFD5FD5CD92FDD13AA9FD21A6FD96DC8FFD57D5CD92FDD13AA8FD21A5FD96DC8FFD5FD5CD92FDD13AA9FD21A6FD86DC8FFD57
103 DATA384724CD92FD3AA5FD3D21A6FDBED834AF3AA7FD9632A7FDD2D9FC3AA5FD3D32A5FD21A7FD8677C3D9FC3EFFC97AFEF0D07BFE40D03AAAFDA7C24C
104 DATA05C10274C34D74C9
105 DATA00
5000 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=228:D=-64704:RETURN