1 REM GD
2 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
3 A=USR(21):A=USR(17):A=USR(19):A=USR(1)
4 PRINTCHR$(14)"[147][206][207][212][197]: [193]N OVERLAID GRID CANNOT BE ERASED.";
5 PRINT"[196]O YOU WISH TO CONTINUE?"
6 GETA$:IFA$=""THEN6
7 IFA$<>"Y"THEN20
8 SYS36864:PRINT:PRINT"[197]NTER [216]-AXIS WIDTH IN DOTS."
9 A$="":INPUT"(72 DOTS PER INCH.)";A$:PRINT:XA=VAL(A$):IFXA<2THENXA=36
10 PRINT:PRINT"[197]NTER [217]-AXIS WIDTH IN DOTS."
11 A$="":INPUT"(60 DOTS PER INCH.)";A$:PRINT:YA=VAL(A$):IFYA<2THENYA=30
12 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):OPEN15,D0,15,"UI:":CLOSE15
13 X1=XA:Y1=199-YA
14 A=USR(66),X1,0,X1,200
15 X1=X1+XA
16 IFX1<320THEN14
17 A=USR(66),0,Y1,320,Y1
18 Y1=Y1-YA
19 IFY1>0THEN17
20 GETA$:IFA$=""THEN20
21 LOAD"CMND",D0