`: 1a@TEXT:5,1:6,1:20,0,61,3:385:R%2:C%21:810:" *** INPUT USR COORDINATES ***";(14);(27);"U" aR%6:C%0:810:" RIMARY DATE:MM.DDYYYY >-":L10:800:M((A$,1,2)):Y((A$,6,5)):D((A$,4,2)) bC%17:810:"AM*PM >-":L3:80" SOLAR":CH$(3)" P/NATAL":CH$(4)" P/SOLAR":ED14:CN1:SP1:SO0:O110:O26:HE$"OFF" @Z&C153248:C255296:C37168 eZ+S(X)(X180):D(X)X180 Z0Q(X)(X)(((X))((X)((X)))10060) Z5U(X)X((XMO)MO):W(X)(X100.5)100:RNPUT ******** d9: ,e>19,0,62,3:385:R%2:C%21:810:"*** INPUT PROGRESSION COORDINATES ***";(14);(27);"U" eCR%6:C%0:810:(BN$,1,1)"0"" RIMARY DATE:MM.DDYYYY >-":L10:800:M((A$,1,2)):Y((A$,6,5)):D((A$,4,2)) eHC%1:810: OPTIONS":LCS(L):@,C1,L,60,1,2,A$:365:TM16:A$:@,C1,236,65(TM10),1,1,"("((TM),2,1)")"A$: J^v:Q$:(Q$)1(Q$)6 m^{(Q$)640,645,650,655,660,665 ^BN$"101000":685 ^BN$"100100":685 ^BN$"101100":685 ^BN$"010011":
LIAN DATE ROUTINE *** h: iIM12(Y4800)M3:J(2(IM(IM12)12)7365IM)12 0iJ(J)D(IM48)32083:J2299171915 QiJJ(IM4800)(IM1200)38 biJDJF24.5 iT((J2415020)F24.5)36525:TN((J2415020)1224.5)36525 iL .45229.0130125T):MC((RA)(OB)):MC0MCMC k(RA)0MCMC kMCD(MC) /lY0:R1RAR(30):FF3:1025:H(5,CN)U(L180) tlR1RAR(60):FF1.5:1025:H(6,CN)U(L180):FF1:1025:H(1,CN)L lR1RAR(120):FF1.5:Y1:1025:H(2,CN)L:R1R 0:F$A$:C%12:810:"IME:HH.MM >-":L6:800:F(A$):X$A$:A$"NOON"X$"12.00":F12:F$"AM" {bC%10:810:"IME ZONE:HH >-":L6:800:X(A$):C%11:810:"ONG:DDD.MM >-":L7:800:L5(A$) bC%12:810:"AT :DD.MM >-":L6:800:B4(A$):C%20:R%20:
(X)X180 8[:Y(X)((1XX)X):CS(X)320(((A$)(SC8))2):CE(X)40((A$)2):SC(X)(X640)200 Q[?X(X)(X(1XX)) [D345:TM119:P$(TM)::TM16:AS$(TM)::TM112:CU%(TM,1,1),CU%(TM,2,1),CU%(TM,3,1): \ITM112:CU%(TM,1," ROGRESSION YEAR:YYYY >-":L5:800:Y2(A$) >fMC%17:810:"AM*PM >-":L3:800:F$A$:C%12:810:"IME:HH.MM >-":L6:800:F(A$):X$A$ fRC%2:810:"RESENT TIME ZONE:HH >-":L6:800:X(A$):C%3:810:"RESENT LONG:DDD.MM >-":L7:800:L5(A$) &gW685 ^BN$"111111":685 ^630 ^: _ ******* BINARY BRAIN ************ _: 3_(BN$,1,1)"1"755 L_(BN$,2,1)"1"830 _CN((BN$,4),"1"):1635:965:1675:710:1710:CCN:TXCN1:CNTX4:(BN$,CN2,1)"1"705 _:@,C1,0,190,(J.5)68569:N(4L146097):LL((146097N3)4) jIT(4000(L1)1461001):LL(1461IT4)31:JT(80L2447) `jKL(2447JT80):L(JT11):JTJT212L:IK100(N49)ITL jK$(K):(K$)10K$"0"(K$,1) jJ$"-"(K$,2)"-"((IK),4):J$AR(150):FF3 l1025:H(3,CN)L:H(4,CN)U(MC180):I16:H(I,CN)U(H(I,CN)) lI 1mI16:CU(H(I,CN)180):H(I6,CN)C:I:1065: CmX1:Y1X1 pmXXY(X(R1)(OB)(B4)):XX0XXXX m R2RA(XXFF):Y1R2RA(XXFF) m(R1R2810:"S THE ABOVE INFORMATION CORRECT (Y/N) ?" 2c :Q$:Q$"Y"Q$"N":ՋQ$"N"0,5,79,24:5:0,0,79,24:760 Ac5:(142) cF$(1)F$:F$(2)F$:F1$(1)X$:F1$(2)"12.00":X(1)X:X(2)X:B4(1)B4:B4(2)B4:L5(1)L5:L5(2)L5:FQ(F)X:L5Q(L5):B2),CU%(TM,2,2),CU%(TM,3,2)::TM112:PD%(TM,1),PD%(TM,2),PD%(TM,3): \N: @\S ********* MAIN MENU ************* G\X: \]MX$"055122236360480548548480360236122055":MY$"114152170170152114074038016016038074" \b@,0,2:@,0:@,1,320,100,318,SCC%4:810:"RESENT LAT :DD.MM >-":L6:800:B4(A$):C%20:R%21:810:"S THE ABOVE INFORMATION CORRECT (Y/N) ?" lg\:Q$:Q$"Y"Q$"N":ՋQ$"N"0,5,79,24:5:0,0,79,24:830 {ga5:(142) hfF$(3)F$:F$(4)F$:F1$(3)X$:F1$(4)"12.00":X(3) 1,1,"^":CNC:715 _965 _1150:1505:1435: _Q$ `Q$"_"605 ,`Q$"A"CCN:735:1810:715 q`(Q$)5(Q$)0CCN:CN(Q$):735:1635:1675:1710:715: 715 `GE$(1,CN)""CNC:715: `: ` ***** USR INPUT ********((JT),2)J$: j: j ** PLACIDUS//ANGLES ********* j: GkTTM(CN):L5Q(L5(CN)):B4R(Q(B4(CN))):FQ((F1$(CN)))X(CN):F$(CN)"PM"FF12 [kCN2CN41120 kRAR(U((6.6460655562400.05126T2.5805E5TTF)15L5)) kOBR(23!)1E41050 mR1R2:1030 mL((R2)(OB)):L0LL m (R2)0LL n$LD(L): fn)TM112:CH(TM,CN):1475:H$(TM,CN)A$::H1H(1,CN):TM112:K(TM)H(TM,CN)::K(13).1:K(14)360 n.TM113:TXTM114:K(TX)K(TM)1080 n3K1K(TM):K(4R(Q(B4)):F$"PM"FF12 d900:TM(1)T:TM(2)TN:J(1)J:J(2)J:J$(1)J$:J$(2)J$: sd A$"":5,11:25,R%,L24,R%:R%R%2:1,0:1,A$:1:5,3:0,0,79,24:A$""1,970,15,,,,1:ՙ"" yd% d*208,0:49176,0,R%,C%: d/: d4 ***** PROGRESSION I(318),0,360,360,9:@,1,320,100,190,SC(190),0,360,360,9 Y]gI021006:@,320(I)190,SC(320(I)190),320(I)318,SC(320(I)318),1: ]lTX1:TM1242:@,C3,((MX$,TX,3)),((MY$,TX,3)),2,2,""(ZA$,TM,2):TXTX3: ,^qSC2:A$"PROGRAMX:X(4)X:B4(3)B4:B4(4)B4:L5(3)L5:L5(4)L5:FQ(F)X:L5Q(L5):B4R(Q(B4)):F$"PM"FF12 _hk(BN$,1,1)"0"900:JJ(Y2Y):JJYY:920: JJ(1)(Y2((J$(1),4))):920 hpTM(3)T:TM(4)TN:J(3)J:J(4)J:J$(3)J$:J$(4)J$: hu: hz **** JUL.39363,.001,0,319.5293 EL 19139.8585,.00018,.09331,.9E-4,0,1.52369,285.43176,1.06977,.00013 L48.78644,.77099,0,1.85033,-.00068,.1E-4,225.32833,3034.69202 L -.00072,.04833,.00016,0,5.202561,273.27754,.59943,.0007,99.44338 M1.01053,.00035,1.306.1,-.0153,610.8,-44.2,-.0015,2480.5,-69.4,-.0014,.0026,0,.0111 E} 1242.2,78.3,-.0045,3034.96,62.8,-.0066,1829.2,-51.5,-.0078,640.6,24.2 E -.0016,2363.4,-141.4,.0006,-.0002,0,-.0005,1251.1,43.7,.0005,622.8 F 13.7,.0003,1824.7,-71.1,.0001,2997.1,70,0,2.6689897,245.3752778,0,0,170.137777 PPJ 1.396011111,.0003083333,13.01694444,0,0,138.7733333,9924.931111,0 PO.0902807,0,0,2.360723,149.6386111,0,0,103.2197222,1.396011111 PT .000308333,7.139444444,0,0 7QY "@A","BC","DE","FG","HI","JK","LM", ,145.1781,0 @I .24797,.002898,0,39.539,113.5366,.2086,0,108.944,1.3739,0,17.1514 I -.0161,0,-.0426,.073,-.029,.0371,372,-331.3,-.0049,3049.6,-39.2,-.0108 I 566.2,318.3,.0003,1746.5,-238.3,-.0603,.5002,-.6126,.049,273.97,89.97 !J .0049,3030.6,61
(236)C% SI1WI%:"";:: 'TI1DE%:C%);"";C%WI%1)"":"": @T49176,0,R%DE%1,C% WTI1WI%:"";:: ^T: T **** ERROR TRAP ROUTITNE ** T: TER30@,0,0:@ ,0,0,0,640,200:450 U@,0,2:@,0:@,C1,160,20,3,4, "@TEXT: V@!,0,0,0: V: #W ******* DISK ERROR ROUTINE *************** *W: W@,0,2:@,0:@,C1,160,0,3,4,"DISK ERROR":@,80,32,560,186,1:@,1,320,105,64,25,0,360,0,20:@,304,144,304,170,1:@,336,144,336,170,1 +X@,1,320,146,16,5,0,180,3 874,-.005696,0,175.46622,1221.55147,-.0005 YM.05589,-.00035,0,9.55475,338.30777,1.08522,.00098,112.79039,.873195 M-.00015,2.49252,-.00392,-.2E-4,72.64882,428.37911,.8E-4,.046344 M -.3E-4,0,19.21814,98.07155,.98577,-.00107,73.4771,.49867,.00131
8.2,74.1757,427.2742,0,.04682 \F .00042,0,19.2215,95.6863,2.0508,0,73.5222,.5242,0,.7726,.1E-3,0,-.002 F -.0159,0,.0299,422.3,-17.7,-.0049,3035.1,-31.3,-.0038,945.3,60.1 F -.0023,1227,-4.99,.0134,-.02186,0,.0317,404.3,81.9,-.00495,3037.9,57.3 9G"NO","PQ","RS","TU","VW","XY","Z[","\]","","","","AS","","","","","","" Q^ 0,0,0,10,26,42,120,136,152,302,318,334,478,494,510,590,606,622,622,622,622,590,606,622,478,494,510,302,318,334,120,136,152,10,26,42 ;Rc 88,96,104,152,152,15.3,.0027,1075.3,-28.1,-.0007,1402.3,20.3,.0145,-.0928 dJ .1195,.0117,302.6,-77.3,.00198,528.1,48.6,-.0002,1000.4,-46.1 kJ : J ***** HARMONICS II ****** J : J 358.47584,35999.0498,-.00015,.016751,-.41E-4,0,1.00000013,101.22083 (K 1.7"ATTENTION!":@,160,80,480,140,1:@,170,85,470,135,1:1,970,30,,,,1 PUA$(ER)" ERROR":SC1:LCS(L):@,C2,L,100,1,1,A$ UA$"LINE"(EL):LCS(L):@,55296,L,110,1,1,A$:@,C2,240,160,1,1,"(RESS-C-TO CONTINUE)" U:A$:A$"C": 595 U@,0,260,28:@,1,320,170,16,5,0,180,180,28:@,1,398,116,8,4:@,552,63,560,72,1:@,560,64,560,71,0 X@,142,40,498,71,1:SC1:A$DS$:LCS(0):@,53248,L,44,1,1,A$:A$"RESS-C-TO CONTINUE.":@,C2,240,62,1,1,A$ X:A$:A$"C" X@TEXT:: RETURN X: X"N".77246,.00063,.4E-4,37.73067,218.46134,-.7E-4,.008997,0,0 jN'30.10957,276.04597,.32564,.00014,130.68136,1.09894,.000249,1.77924 N,-.00954,0,229.94722,144.91306,0,.24864,0,0,39.51774,113.52139,0,0 N1108.95444,1.39601,.00031,17.14678,0,0 *O6 .004,993.5,-54.4,-.0018,1249.4,79.2,-.0003,.0005,0,.0005,352.5,-54.99 G .0001,3027.5,54.2,-.0001,1150.3,-88,30.13294,240.45516,0,.00913,-.00127 G 0,30.11375,284.1683,-21.6329,0,130.68415,1.1005,0,1.7794,-.0098,0,.1832 H -.6718,.2726,-.1923,1752,188,188,188,193,193,193,188,188,188,152,152,152,104,96,88,42,42,42,8,8,8,0,0,0,8,8,8,42,42,42 Rh 295,6,2,300,6,32,270,6,62,270,6,93,290,6,122,280,6,154,285,6,186,290,6,216,290,6,246,290,6,272,310,5,302,295,6,331 8Sm " ............NATAL"," ........ 1918,.00045,0,0,0,0,0,0,102.27938,149472.515,0,.205614,.2E-4,0 rK .387098,28.75375,.37028,.00012,47.14594,1.1852,.00017,7.00288,.00186 K -.1E-4,212.60322,58517.8039,.00129,.00682,-.4E-4,0,.723332 K 54.38419,.50819,-.00139,75.77965,.89985,.00041,3:@,0 [V@,180,60,460,150,1:@,200,70,440,140,1:A$"()ESUME":SC2:LCS(L):@,C2,L,80,2,2,A$:A$"()UIT":LCS(L):@,C2,L,110,2,2,A$ yV:Q$:Q$"Q"Q$"R" VQ$"Q"A$"RE YOU SHURE (Y/N) ?":SC1:LCS(L):@,C2,L,160,1,1,A$:A$ VA$"Y
**** DEF FNCTIONS ***** X: OY H(14,4),HH(14,4),HS%(12,2),C(19,4),CS(18,4,2),K(18),CU%(12,3,2),PD%(12,3),AS(19) Y P$(19),H$(12,4),GE$(18,4),R$(18,4),HE$(18,4),AS$(19) "Z!ZA$"":MO360:CH$(1)" NATAL":CH$(2)108.2925,7820.36556,0,.07943314,0,0,2.7672273,71.0794444,0,0,80.23555556 sO; 1.3960111,0,10.59694444,0,0,106.6641667,7806.531667,0,.2347096,0,0 O@ 2.7704955,310.166111,0,0,172.497222,1.39601111,0,34.81416667,0,0 PE 267.685,8256.081111,0,.2562318,.7,31.8,.0122,542.1,189.6,.0027,1219.4,178.1 iH -.00496,3035.6,-31.3,-.1122,.166,-.0544,-.00496,3035.3,58.7,.0961,177.1 H -68.8,-.0073,630.9,51,-.0025,1236.6,78,.00196,-.0119,.0111,.0001 H 3049.3,44.2,-.0002,893.9,48.5,.00007,1416.5,-25.2,229.781....SOLAR"," ......NATAL/SOLAR"," .....PROGRESSIONS"," .COMPLETE READING"," .....MORE OPTIONS" ?Sr: kSw ****** WINDOWS ********** rS|: S(142):C%(230):R%(229):WI%(231)C%:DE%(228)R%:0,0,79,24::49176,0,R%,C%:(235)R% @,55296,0,192,1,1,"ARAR": 450: @,X,Y,X1,Y1,MODE: ' COM$"P" @,55296,0,192,1,1,"ASTEASTE": 450: A(X1X):B(Y1Y): 450:@,X,Y,A,B,X1,Y1 ' (( " [[
ASTER) MOVEMENT
METHOD.*
END MAIL WITH QUESTIONS TO ANY OF THE ABOVE NAMES OR ACCOUNTS ON ANY OF
THE ABOVE SYSTEMS.
OF AREA, /,
POSITION CURSOR AT DESTINATION LOCATION OF AREA, /
: , TO CONFIRM
TIONS UBLIC OMAIN" P+ " " + " , CURRENT MODE: OYSTICK OR MOUSE IN PORT .": "HANGE ! CURSOR SIZE: / FOLLOWED BY 0 (TINY) TO 9 +$c COM$"D" 460:@,MODE,X,Y,Y12.4,Y1:@,X1,Y,MODE T$h COM$"R" 450:@,X,Y,X1,Y1,MODE $m COM$"A" 450:@,X,Y,X1,Y1,MODE:@,(XX1)2,(YY1)2,MODE $r COM$"U" @,55296,0,192,1,1,"":@!,0,0,0 4%w COM$"T" 380::@,55296,
"RESS ANY KEY TO RETURN TO DRAWING.": A$:@,BG,FG: @!,0,0,0: / " RROR HANDLING. / (ER14 ER18) (EL100 EL451 EL461) X5 X635
%:1,1:5:47,0:48,68: 7 "ASTRO1",B0,P7168 A ( 8448 X 2 @WALRUS: 1:@,1,1 q < @,1,"ASTRO2":@,1,2 F "ASTRO0" STEMS.
OF AREA, /,
POSITION CURSOR AT DESTINATION LOCATION OF AREA, /
: , TO CONFIRM
UB-CURSOR MOVEMENT SUBROUTINES. ](X1X:Y1Y:@,55296,0,192,1,1,"OVE CURSOR NOW." (:@ ,16100,X5,Y5,10,10:@T,X,Y,0:@T,X,Y,1:@!,16100,X5,Y5 )HA(2):DW128 HA:HAHA 127:XXXP%(HA):YYYP%(HA):P%(X)Q%
@
@ %:425 @ 535 @ : E@ ***** HARMONICS I ****** L@# : @( 358.4758,35999.0498,-.0002,.01675,-.4E-4,0,1,101.2208,1.7192,.00045,0,0 @- 0,0,0,0,102.2794,149472.515,0,.205614,.2E-4,0,.3871,28.7538,.3703,.0001 0A2 47.1459,1.1852,.00(HUGE)." x, "AST CURSOR MOVEMENT: /, ANY 'ARROW' KEY (REPEATABLE), .": "LL FOLLOWING COMMANDS ARE PRECEEDED BY THE / KEY:" - " : , MOVE CURSOR, : , MOVE CURSOR, ": " : , M0,192,1,1,"EXTEXT":AX:: @,55296,A,Y,1,1," ": A$ %x@,55296,A,Y,1,1,A$: A$"" A$(20) @,55296,A,Y,1,1, " ":AA8::AA8 %y A$(13):@,55296,A8,Y,1,1," " %| COM$"" : A$:YY15: A$(13): Y XXOVF((X5)2) G0 (ER14 ER18) (EL100 EL451 EL461) Y5 Y195 YYOVF((Y5)2) 0 (ER14 ER18) (EL100 EL451 EL461) 300: 0 ER23 300: 0 5:@TEXT: ER,EL,(ER): 0 ˃ 0,-1,1,-1,1,0,1,1,0,1,-.5,-.0006,5499.4,-74.97,-.0013,1419,54.2,.0006 vCZ 6339.3,-109,.0007,4824.5,-50.9,.0020,-.0134,.0127,-.0023,676.2,.9,.00045 C_ 2361.4,174.9,.0015,1427.5,-188.8,.0006,2110.1,153.6,.0014,3606.8,-57.7
Dd -.0017,2540.2,121.7,-.00099,6704.8,-22.3,-.0006,(Y): DW:@,55296,0,192,1,1,"OVE CURSOR NOW." ?)TX1:X1X:XT:TY1:Y1Y:YT: j)Y1Y:@,55296,0,192,1,1,"ET RADIUS." ):@ ,16100,X5,Y5,10,10:@T,X,Y,0:@T,X,Y,1:@!,16100,X5,Y5 !*HA(2):DW128 HA:HAHA 127:YYYP%(HA):P%(X)02,7.009,.00186,0,212.6032,58517.8039,.0013,.00682 nA7 -.5E-4,0,.7233,54.3842,.5082,-.14E-2,75.7796,.8999,.4E-3 A< 3.3936,.1E-2,0,319.5294,19139.8585,.2E-3,.09331,.9E-4,0,1.5237,285.4318 BA 1.0698,.1E-3,48.7864,.77099,0,1.8503,-.7E-3,0,225.4928,3033OVE CURSOR, : AME AS " - " : , TEXT, . : ": " DRAW: DRAW: " 5. " : /, : , ": 0 Y15 8&} COM$"" : A$:YY15: A$(13): Y200 Y185 r&~ COM$"" : A$:XX50: A$(13): X0 X50 & COM$" " : A$:XX50: A$(13): X640 X625 & COM$"?" COM$"/" 500: 6' COM$"B" 1,1,-1,0,-1,-1 EY TO RETURN TO DRAWING.": A$:@,BG,FG: @!,0,0,0: / " RROR HANDLING. / (ER14 ER18) (EL100 EL451 EL461) X5 X635 5480.2,24.5,.00096 UDi 1651.3,-118.3,.0006,6310.8,-4.8,.0007,4826.6,36.2,174.2153,1223.50796 Dn 0,.05423,-.2E-3,0,9.5525,338.9117,-.3167,0,112.8261,.8259,0,2.4908 Ds -.0047,0,-.0009,.0037,0,.0134,1238.9,-16.4,-.00426,3040.9,-25.2,.0064 5Ex 1835.3,3Q%(Y): DW: Y(YY1):@,55296,0,192,1,1,"ET RADIUS." 5*TY1:Y1Y:YT: * " AREA. *@TEXT: " LTRA ! ELP ERSION 3.7 ELEASE 1.1 PRODUC .6879,0 HBF .04838,-.2E-4,0,5.2029,273.393,1.3383,0,99.4198,1.0583,0,1.3097 BK -.52E-2,0,-.001,-.0005,.0045,.0051,581.7,-9.7,-.0005,2510.7,-12.5 BP -.0026,1313.7,-61.4,.0013,2370.79,-24.6,-.0013,3599.3,37.7,-.001,2574.7 (CU 31.4,-.00096,6708.2,-114 " : , FILENAME, : , FILENAME, " . " (LINE): , MOVE CURSOR, : ": " (COPY): , SET RANGE, SET NEW LOCATION, " . " : ? OR /" (/@
@ @,2,15 @ @,0 S@
@,40000,150,1,1,1,"G R A P H I C S D I S P L A Y 2" @ @,40000,150,10,1,1,"HIT ANY KEY TO CONTINUE OR HIT" @ @,40000,150,20,1,1,"'Y' TO SEE THE OTHER DISPLAYS" @( I$ @2 I$"Y" 300 @< @,0 @d I0 90 5 @ @ @,0,8 @ @,0 R@
@,40000,150,1,1,1,"G R A P H I C S D I S P L A Y 3" @ @,40000,150,10,1,1,"HIT ANY KEY TO CONTINUE OR HIT" @ @,40000,150,20,1,1,"'Y' TO SEE THE OTHER DISPLAYS" @( I$ @2 I$"Y" 310 @< @,0 @d AA45 An B@
@ @,0,11 @ @,0 S@
@,40000,150,1,1,1,"G R A P H I C S D I S P L A Y 4" @ @,40000,150,10,1,1,"HIT ANY KEY TO CONTINUE OR HIT" @ @,40000,150,20,1,1,"'Y' TO SEE THE OTHER DISPLAYS" @( I$ @2 I$"Y" 220 @< @,0 @d A5 180 5 : HIRESSCREENS.LNX (1) : COTT2 07/31/86 #: 2770
: LTRA IRES CREENS
: SEQ
: 15
. / : 300: 03:23 1200: 00:58
: LYNX V (128 ELECOM
/ERMINAL " 7 >> BOOT, ULTRA
HIRES,PRINTERHELP
: NKNOWN
HIS FILE NEEDS TO BE "DISSOLVED" BY
USING "LYNX V" FOUND UNDER
TELECOMMUNITIONS. FTER DISSOLVING [[
------ --
GRAPHICS LOADER
LOADER GRAPHICS1 GRAPHICS2 GRAPHICS3 GRAPHICS4 HR SCREENS.DOC !An @,1,320,100,100,100,0,360,I,90 'Ax :A I0 90 5 \A @,1,320,100,65,65,0,360,I,90 bA uA I0 90 5 A @,1,320,100,40,40,0,360,I,90 A A@,40000,1,1,1,1,"DO YOU WANT TO SEE" A@,40000,1,10,1,1,"THE OTHER DISPLAYS?" A I
B20 "Ax @,1,320,100,A,B,0,360,0,1 8A A200 100 IA @,195,100,1 ZA @,100,100,1 kA @,295,100,1 A@,40000,1,1,1,1,"DO YOU WANT TO SEE" A @,40000,1,10,1,1,"THE OTHER DISPLAYS?" A" I$ A, I$"N" @TEXT: A6 I$"Y" "LOADER" An @,1,320,100,50,100,0,360,A,4 &Ax PA @,40000,1,1,1,1,"DO YOU WANT TO SEE" |A @,40000,1,10,1,1,"THE OTHER DISPLAYS?" A I$ A I$"N" @TEXT: A I$"Y" "LOADER" A 190 CPHICS4 TIL)
: ULTRA HIRES BOOT, ULTRA
HIRES,PRINTERHELP
: NKNOWN
HIS FILE NEEDS TO BE "DISSOLVED" BY
USING "LYNX V" FOUND UNDER
TELECOMMUNITIONS. FTER DISSOLVING %: 5: 47,0: 48,132:: CO1 8: X,Y:XP%(CO)X: YP%(CO)Y::XOVF(1)5:XOVF(2)5:XOVF(3)638:YOVF(1)5:YOVF(2)5:YOVF(3)198 P%(638),Q%(198) , "NTER 1 FOR HITE ON LACK OR LACK ON HITE:": A$:BG6: FG0:MODE1:C1%1,X1,Y1,C1%: @,X1,Y1,X1,Y1,C2%:@!,16100,X5,Y5:P%(X)Q%(Y) e HA%(2):XXXP%(HA% 127):YYYP%(HA% 127): (128 HA%) @,X2CR,YCR,X2CR,YCR,MODE::: 1 + " C$ B" I$"N" @TEXT: -B, I$"Y" "LOADER" 9B6 270 "D I S P L A Y 2" @ @,40000,150,10,1,1,"HIT ANY KEY TO CONTINUE OR HIT" @ @,40000,150,20,1,1,"'Y' TO SEE THE OTHER DISPLAYS" @( I$ @2 I$"Y" 300 @< @,0 @d I0 90 5 B@ 280 C@ @,0 R@
@,40000,150,1,1,1,"G R A P H I C S D I S P L A Y 3" @ @,40000,150,10,1,1,"HIT ANY KEY TO CONTINUE OR HIT" @ @,40000,150,20,1,1,"'Y' TO SEE THE OTHER DISPLAYS" @( I$ @2 I$"Y" 310 @< @,0 @d AA45 An B0 EL451 EL452 EL460 EL461 EL462 { 1 COM$"I" MODE0:@,55296,0,192,1,1,"NVERSE.NVERSE." 6 COM$"N" MODE1:@,55296,0,192,1,1,"ORMAL.ORMAL." =!; COM$"" @,55296,0,192,1,1,"ONFIRM CLEAR:":,
TYPE:
RUN"GRAPHICS LOADER"
AKE SURE THAT THE DISK YOU DOWNLOAD
THIS FILE ON HAS THE "COMPUTER FONT"
FILE ON IT.
<< 1:C2%0: A$"1" BG0:FG6:C1%0:C2%1: 10 @ A$(13) 5 h
5:@,BG,FG:@,0:X320:Y100: 300 c : " AIN PROGRAMME LOOP. X d :@ ,16100,X5,Y5,10,10:@,X1,Y COMMAND LOOP. V , ER30 300: COM$:: 1000 - ("U 1234567890",COM$,1)0 @ ,0,0,0,640,200 . ("ABDR",COM$,1)0 @T,X,Y,MODE /@!,16100,X5,Y5 4 0 EL100 EL101 EL450 EL45ME:":&:"AVE NAME";SV$:%:@,55296,0,192,1,1,"AVE NAME:":@,1,SV$:5 "J COM$"L" 0:@,55296,0,192,1,1,"OAD NAME:":&: "OAD";SV$:%:@,55296,0,192,1,1,"OAD NAME:":@,1,SV$:5 Q#O (COM$)0 COM$"0" CR(COM$): @,55296,0,192,1,1,"EW PEN SELECTED.EW PEN SELECTED." #T COM$"$" @TEXT:: "RESS ANY KEY...": A$: @,BG,FG:@!,0,0,0: #Y COM$"F" @,X,Y,MODE #^ COM$"C" 460:@,MODE,X,Y,Y12.4,Y1 A$: @,55296,0,192,1,1,"ONFIRM CLEAR:": A$"Y" @,0 !@ COM$"Q" @,55296,0,192,1,1,"ONFIRM QUIT:": A$:@, 55296,0,192,1,1,"ONFIRM QUIT:": A$"Y" @TEXT: 0: "";: >"E COM$"S" 0:@,55296,0,192,1,1,"AVE NA296, OR YOU CAN IN OTHERS INTO AND USE THEM. UILT INTO THE MACHINE LANGUAGE IS A SPECIAL FONT THAT ALLOWS 160 CHARACTERS PER LINE. TS ADDRESS IS AT 7168, AND IT REQUIRES A WIDTH OF 0.
OU CAN USE ALMOST ANY CHARACTER SET MADE FOR THE IS THE SAME AS IN @.
@,1,1,2,2,ODE
HIS WILL DRAW A BOX ON THE 640 200 SCREEN. 1,1 ARE THE COORDINATES OF THE UPPER LEFT CORNER, AND 2,2 ARE THOSE OF THE LOWER RIGHT HAND CORNER. GAIN IS 0-639 AND IS 0-199. ODE IS AS IN ,.
HE D IS FROM 1-640, AND D IS FROM 1-200. ESTINATION AND IS THE , LOCATION TO MOVE THE COPY TO.
@,UFFER DDRESS,,,D,D
@ ALLOWS YOU TO STORE A PIECE OF THE SCREEN TO A BUFFER AND THEN RECALL IT WHEN NEEDED. AND ONLY A COUPLE BLOCKS. HE ACTUAL AMOUNT OF REDUCTION WILL DEPEND UPON WHATS ON THE SCREEN. T WILL NEVER BE BIGGER THAN 65 BLOCKS. N MOST CASES THIS WILL BE THE BEST WAY TO SAVE YOUR SCREENS.
@,YPE,"FILENAME"
HIS LOADS A SCREEN CALLED 'FI
IT AT ,. O OTHER INFORMATION IS NEEDED, AS THE @ SAVES THE LENGTH AND DEPTH OF THE AREA.
@ AND @ ARE VERY RAPID, FAST ENOUGH FOR SOME TYPES OF ANIMATION. EE THE CIRCLE DEMO AND 3 CUBE DEMO PROGRAMS.
HERE ARE A LOT OF THINGS ULD USE THAT FREE RAM FOR CHARACTER SET STORAGE FOR NOW, BUT BE CAREFUL AND DON'T DISTURB THE RAM FROM 7168 TO 12992.
E WOULD LIKE TO THANK NDY INKLE AND AROYLN HEPPNER OF OMMODORE FOR THEIR KIND ASSISTANCE ON THE TECHNICAL ASPECTS OF THE 8563 64 OR 128, AS LONG AS THEY ARE BINARY FILES. HEXK YOUR USERS GROUP LIBRARY FOR EXTRA FONTS. HANCES ARE THEY WILL HAVE MANY. OU CAN ALSO USE SPECIAL CONTROL CODES INSIDE THE STRING, LIKE REVERSE ON AND OFF. ONTROL CAUSES THE TEXT TO ERASE ANYTH
@.
@,,,D,D,T,ODE
@ DRAWS A 3 BAR OF A GIVEN EIGHT. , ARE THE COORDINATES OF THE LOWER LEFT HAND SIDE OF THE BAR, D AND D ARE THE DEPTH AND WIDTH YOU WISH. T IS THE HEIGHT, AND ODE IS AS IN @. IS 0-639, IS 0-199, D ARE THE BEGINNING UPPER LEFT CORNER TO STASH, AND D AND D ARE THE LENGTHS.
OU CAN STORE A PIECE AS SMALL AS A BYTE, OR AS LARGE AS A SCREEN. HE BUFFER ADDRESS IS WHERE IN THE BUFFER IT IS TO BE STORED. HE BUFFER VALUE STARTS AT 0, SO THE FIRST LENAME' FROM DISK. YPE IS EITHER 0 OR 1, DEPENDING ON HOW IT WAS SAVED.
@,HARSET DDRESS,,,T,D,"STRING"
HIS IS THE HIGH RESOLUTION CHARACTER DRIVER. T ALLOWS YOU TO PRINT ON THE 640 200 BITMAP SCREEN IN MANY SIZES AND STYLES. IS ANY THIS CHIP CAN DO THAT MOST PEOPLE ARE UNAWARE OF. T CAN SCROLL, IT HANDLES LIGHT PENS, DOUBLE PIXEL MODES, INTERLACED MODES AND MORE. E HAVE ONLY BEGAN TO EXPLORE IT, AND THE WEDGE IS WRITTEN TO MAKE IT EASILY EXPANDABLE TO HANDLE NEW COMMANDS. ER CHIP.
F YOU HAVE QUESTIONS ABOUT LTRA IRES, YOU CAN WRITE TO THE AUTHORS (OUIS ALLACE AND AVID ARUS) AT:
6124 11
AINESVILLE, 32607
R, YOU CAN LEAVE -INK MAIL TO .
MORE COMMANDS IN THE AREA FROM 12992 TO 16383. OU COING UNDER IT, WHILE ONTROL WILL PERFORM AN ON THE SCREEN, LEAVING ANYTHING THERE STILL VISIBLE.
OU CAN ALSO UNDERLINE YOUR TEXT WITH ONTROL , AND TURN OFF UNDERLINING WITH ONTROL . OLOR CODES HAVE NO EFFECT.
@,,,D,D,ESTINAT IS 1-255, D IS 1-199, T IS 1-199.
HE SUM OF T AND D CANNOT EXCEED 199 OR NO BAR WILL BE DRAWN.
@,YPE,"FILENAME"
HIS WILL SAVE A SCREEN CALLED 'FILENAME' TO DISK. HERE ARE TWO TYPES OF SAVE. TYPE OF 0 WILL BE A NORMAL 16 SCREEN THING YOU STORE SHOULD GO THERE. OU WILL NEED TO KNOW WHERE IT ENDS IN THE BUFFER SO YOU CAN STORE OTHER STUFF AFTER IT.
OU CAN FIND THE NEXT AVAILABLE BUFFER ADDRESS WITH; =(250)+(251)*256+1
OU MUST DO THIS IMMEDIATELY AFTER THE @ NUMBER 0-639, IS 0-199, T IS 1-16, D IS 0-16 AND STRING IS WHAT YOU WANT IT TO PRINT, EITHER IN QUOTES OR AS A STRING VARIABLE. HE ADDRESS IS WHERE IN YOU WANT THE CHARACTER SET TO BE TAKEN FROM. OU CAN USE THE BUILT IN SETS AT 53248 AND 55HAPS A HARDCOPY COMMAND, OR A FILL. HATS WHY WE LEFT SOME ROOM FOR GROWTH IN THE PROGRAM. E HAVE SET ASIDE 9 OF , BUT THE PROGRAM ONLY GOES FROM 7168 TO 12992. HAT LEAVES US ROOM TO ADD EVEN MORE COMMANDS IN THE AREA FROM 12992 TO 16383. OU CO [[
ONLY ONE ASPECT OF WHAT THIS CHIP IS CAPABLE OF ACCOMPLISHING.
EMENT AND 1 INDICATING COMPLEMENT.
EM OF A ROGRAM
OU DON'T OFTEN FIND A GRAPHICS UTILITY THAT ENHANCES THE USEFULNESS OF A COMPUTER FOR PERSONAL AND PROFESSIONAL APPLICION ,ESTINATION
@ WILL ALLOW YOU TO DUPLICATE ANY AREA OF THE SCREEN TO ANY OTHER AREA. , ARE THE STARTING COORDINATES OF THE UPPER LEFT HAND CORNER YOU WISH TO DUPLICATE. HE D AND D ARE THE LENGTHS (IN PIXELS) YOU WANT TO COPY FROMDUMP, WHICH WILL GIVE A DISK FILE OF 65 BLOCKS. TYPE OF 1 WILL BE A SPECIAL COMPRESSED FORM OF SAVE, WHERE AN INTELLIGENT DATA COMPRESSION WILL COMPRESS YOUR SCREEN TO ITS SMALLEST POSSIBLE SIZE.
N SOME CASES IT CAN CUT THE 65 DISK BLOCKS DOWN TO COMMAND.
NOW HAS THE ADDRESS OF THE NEXT AVAILABLE BUFFER ADDRESS. OU MUST KEEP THESE ADDRESS STORED SO YOU CAN RECALL THEM WITH THE @ COMMAND.
@,UFFER DDRESS,,
HIS WILL RECALL THE STORED AREA AT BUFFER ADDRESS AND PUT IN REGISTER 48, FOLLOWED BY THE BASIC COMMAND, WE CAN TRICK THE 128 INTO GIVING US SOME WE CAN USE IN OUR PROGRAMS. HE PROGRAM AUTOMATICALLY SETS UP A 16 BUFFER. OU CAN INCREASE OR DECREASE THIS BY CHANGING THE CONTENTS OFNSTRATION OF A 3 DIMENSIONAL CUBE ROTATING AND CHANGING SIZE IN REAL TIME. T USES THE @ AND @ (AND A 32 @ BUFFER) TO EFFECTIVELY CREATE A SMALL MOVIE. THINK AFTER SEEING THIS YOU WILL BE HIGHLY MOTIVATED TO BEGIN USING THESE NEW BASI IS AVAILABLE TO THE 8563 CHIP. HAT DOES NOT LEAVE ANY LEFT OVER FOR 80 COLUMN TEXT MODE. F YOU NEED TO USE THE TEXT MODE AND HAVE AN IMPORTANT SCREEN IN HIRES, YOU WILL HAVE TO SAVE IT (TO DISK OR IN THE @ BUFFER), GO TO TEXT MODE WITH @ F YOU WERE TO USE IT AGAIN IN A PROGRAM WHILE IN MODE IT WOULD ERASE THE WHOLE PROGRAM AND CRASH THE COMPUTER. HIS IS TRUE OF MULTICOLOR COMPOSITE BITMAP MODE ALSO. OU SHOULD NEVER USE IT IN YOUR PROGRAMS WHILE IS ENA
@,HAR ET #, DDRESS
HIS COMMAND ALLOWS YOU TO DISPLAY (IN 80 COLUMN TEXT MODE) CHARACTER FONTS DIFFERENT THEN THE DEFAULT CHARACTER SET.
HERE IS ROOM IN THE 8563 FOR TWO SETS, AND THEY ARE NORMALLY THE UPPERCASE/GRAPH ND COLOR. HEN IN S MODE YOU ARE LIMITED TO 2 COLORS ONLY, BUT YOU CAN CHOOSE WHICH ONES WITH THIS COMMAND.
@
HIS TURNS OFF THE MODE AND RETURNS YOU TO THE NORMAL 80 COLUMN TEXT SCREEN. OU ALSO RETURN TO THE STANDARD CHA REGISTER 48. (E CAREFUL NOT TO MAKE IT LESS THAN 4!) F YOUR PROGRAM WILL USE A LOT OF VARIABLES, AND WON'T BE USING @ AND @ YOU MIGHT WANT THAT TO BE USED FOR VARIABLES SO START OFF WITH THE LINE;
47,0:48,4:
OWEVER, SOME
C COMMANDS ON YOUR 128.
HE MEMORY ORGANIZATION OF THE 128 IS A VERY COMPLEX SUBJECT, AND WE CANNOT GO INTO IT IN DETAIL IN THIS ARTICLE. OWEVER, YOU NEED SOME INFORMATION TO USE THE COMMAND SET EFFECTIVELY.
N AN UNEXPANDED 128 , PERFORM YOUR NEEDED FUNCTION, RETURN TO MODE WITH THE @ COMMAND AND RESTORE YOUR SCREEN FROM THE BUFFER OR DISK. HEN WOULD YOU NEED TO DO THIS? NE TIME MIGHT BE IF YOU NEED TO INPUT SOME VALUE FROM THE KEYBOARD WHILE THE PROGRABLED. HE SAME THING IS TRUE OF THE COMMAND , WHICH DE-ALLOCATES THE 9, MAKING IT AVAILABLE FOR BASIC. ND THE COMMAND SHOULD NEVER BE USED EITHER FOR THE SAME REASONS AS .
ANK 1 CONTAINS AROUND 64 TO BE USED AS VARIABLEICS SET AND THE LOWERCASE/UPPERCASE SET. F YOU HAVE ACCESS TO OTHER FONTS THAT YOU WISH TO USE, SIMPLY THEM TO SOME AREA OF IN BANK 0 (IN DIRECT OR PROGRAM MODE) AND ISSUE THE @ COMMAND. HE HAR ET # IS EITHER 0 OR 1, AND THE ARACTER FONT, SO YOU WILL HAVE TO ISSUE THE @ COMMAND TO RE-ENABLE ANY EXTRA TEXT FONTS YOU WANT.
@,ALUE
HIS IS USED TO CLEAR THE SCREEN. SE A VALUE OF 0 TO CLEAR IT, 255 TO FILL IT. THERS CAN BE USED FOR SPECIAL EFFECTS.
@ PROGRAMS (LIKE THE 3 CUBE DEMO) REQUIRE EVEN MORE IN THEIR BUFFER, SO THEY INCREASE THE SIZE BY POKING TO REGISTER 47 AND 48.
47,0:48,132:
HIS GIVES A 32 BUFFER FOR YOU TO STORE GRAPHICS IN, BUT YOU HAVE NOW CUT YOUR VARIABLE INTHERE ARE TWO BANKS OF , BANK 0 AND BANK 1. ANK 0 IS WHERE YOUR BASIC PROGRAM RESIDES, AND BANK 1 IS WHERE YOUR VARIABLES ARE STORED. HEN YOU ENABLE THE NORMAL COMPOSITE BITMAP GRAPHICS DISPLAY WITH THE 1,1 STATEMENT THE 128 MOVES YOUR PRM IS RUNNING. S YOU KNOW, THE INPUT COMMAND WILL PRINT A QUESTION MARK (?) ON THE TEXT SCREEN. UT IN MODE THERE IS NO LEFT FOR THE 80 COLUMN TEXT SCREEN, BUT THE OPERATING SYSTEM WILL STILL PUT THE QUESTION MARK IN THE AREA WHERE THE S. EGISTERS 47 AND 48 CONTAIN THE ADDRESS FOR THE START OF BASIC VARIABLES. HE NORMAL VALUE FOR 47 IS 0 AND FOR 48 IS 4 (THIS IS THE ADDRESS $0400 IN HEX AND 1024 IN DECIMAL). VERYTHING ABOVE THAT IS USED FOR VARIABLES. UT BY POKING A LARGER VALUEDDRESS IS THE LOCATION WHERE IT WAS ED TO.
OU CAN CHANGE CHARACTER FONTS BY PRESSING THE / KEYS OR BY PRINTING $(14) OR $(142).
@,,
HIS TURNS ON THE 640 200 BITMAP MODE. C IS BACKGROUND COLOR AND IS FOREGROU,,,ODE
HIS IS USED TO PLOT A DOT ON THE 640 200 SCREEN. IS FROM 0-639, WHILE IS FROM 0-199. ODE IS EITHER 0 (FOR ERASE) OR 1 (FOR DRAW).
@,1,1,2,2,ODE
HIS IS THE LINE DRAWING COMMAND. IS 0-639, AND Y IS 0-199. ODE HALF. OU WILL HAVE TO DECIDE IF YOU NEED TO CHANGE IT. N MOST CASES THE DEFAULT OF 16 WILL BE SUFFICIENT.
NE OTHER THING. INCE THE SCREEN RESOLUTION IS 640 200, THAT CALCULATES OUT TO 128,000 BITS, OR 16 OF . HAT'S EXACTLY HOW MUCH OGRAM IN BANK 0 UP 9 TO MAKE ROOM FOR THE GRAPHIC SCREEN AND ITS COLOR MEMORY. HAT'S WHY THE PROGRAM ISSUES IT AS ITS FIRST STATEMENT. HIS AREA CAN NOW BE USED TO STORE THE MACHINE LANGUAGE PROGRAM THAT GIVES YOU MODE. TEXT SCREEN SHOULD BE. HIS RESULTS IN THE CORRUPTION OF A SMALL PART OF YOUR SCREEN. O PLAN YOUR INPUTS CAREFULLY TO BE IN ONLY TEXT MODE, OR USE THE COMMAND.
128 BASIC LOADER TYPE OF PROGRAM THAT WILL POKE THE MACHINE LANGUAGE INTO MEMORY FOR YOU AND SAVE THE PROGRAM AS A SMALL MACHINE LANGUAGE MODULE CALLED THAT CAN BE EASILY LOADED INTO MEMORY. HE SECOND PROGRAM IS CALLED AND SHOUAP THAT HAVE ANY EFFECT ON THE CHIP AT ALL. HESE REGISTERS, $600(54784) AND $601 (54785) SERVE AS A WINDOW FROM WHICH YOU MAY ADDRESS THE CHIP REGISTERS AND ITS 16 BANK. HE FIRST, $600 IS THE 8563 REGISTER SELECT BYTE, AND THE SECOND $601 ISMAND. T THEN LOADS THE MODULE, AND ACTIVATES IT WITH 8448. T THIS POINT YOU NOW HAVE THE WEDGE ACTIVE.
HE THIRD PROGRAM IS CALLED , AND IS INTENDED AS A BASE FROM WHICH YOU CAN START WRITING YOUR OWN PROGRAMS. T B A SPECIAL COMMAND ONLY FOR 80 COLUMN TEXT MODE THAT ALLOWS YOU TO DOWNLOAD NEW CHARACTER SETS FROM SYSTEM TO THE 80 COLUMN CHIP . INCE THE 80 COLUMN TEXT SCREEN ALLOWS FOR 2 COMPLETE CHARACTER FONTS AT ONCE YOU CAN USE @ FOR SOME VERY INTERE
O GO TO THE LINE FOLLOWING THE INSTRUCTION. ERE IT GOES TO LINE 10010 WHICH GETS YOU OUT OF MODE, PRINTS THE LINE THAT HAS THE PROBLEM (WITH THE COMMAND) AND ENDS THE PROGRAM VEN PRESSING THE STOP KEY IS HANDLED BY THE STAT A PATTERN. T LOOKS VERY GOOD IN 640 200.
HE THIRD DEMO IS ONE THAT USES THE 3 BAR COMMAND. HIS COMMAND ALLOWS YOU TO CREATE 3 DIMENSION BAR GRAPHS SO EASILY IT WILL AMAZE YOU (AND YOUR FRIENDS)!
HE FOURTH DEMO USES BASIC TO CREATE LD BE USED TO LOAD AND SETUP THE COMPUTER FOR ITS USE. OU SHOULD RUN IT ONLY ONCE, AS CREATES SOME TABLES THAT CANNOT BE WRITTEN OVER. HE BEST METHOD IS TO USE THE 128'S AUTOBOOT FEATURE AND CREATE AN AUTOBOOT DISK THAT LOADS
THE 8563 DATA / BYTE. O ACCESS THE CHIP YOU MUST PUT THE CHIP REGISTER NUMBER YOU WANT TO READ OR WRITE TO INTO $600, WAIT UNTIL THE CHIP IS READY, AND THEN PEEK OR POKE THE VALUE YOU WANT INTO $601. T IS QUITE A BOTTLENECK, AND EFFECTIVELY PEGINS BY GOING INTO MODE. NE OF THE NICE FEATURES ABOUT THE 80 COLUMN CHIP IS THAT YOU CAN USE THE COMMAND TO ALLOW THE COMPUTER TO RUN AT 2 M INSTEAD OF 1 M (IN COMPOSITE MODE THE SCREEN GOES BLANK DURING MODE). EXT, IT ISSUES THE PSTING TEXT DISPLAYS.
128
@,HAR ET #, DDRESS
@
@,,
@,ALUE
@,,,ODE
@,1,1,2,2,ODE
@,1,1,2,2,ODE
@,,,D,D,T,ODE
@,YPE,"FILENAME"
@,YPE,"FILENAME"
@EMENT. T IS HIGHLY RECOMMENDED THAT YOU INCLUDE IT IN YOUR PROGRAMS.
EXT ARE FIVE SHORT DEMOS THAT USE VARIOUS FORMS OF THE NEW COMMAND SET. HE FIRST IS AN EXAMPLE OF THE VERSITILITY OF THE @ COMMAND, WHICH ALLOWS MANY DIFFERENT SIZES OF TEX CIRCLES, AND THE CIRCLE ROUTINE COULD VERY EASILY BE MODIFIED FOR USE AS A GENERAL PURPOSE SUBROUTINE. FTER THE CIRCLES ARE DRAWN, IT USES THE @ COMMAND TO DUPLICATE THEM, AND THEN THE @ AND @ TO CREATE A FORM OF ANIMATION CALLED AND RUNS FOR YOU. HIS BOOT DOES SEVERAL THINGS. IRST IT ISSUES A 1,1: 5 COMMAND. HIS IS THE ONLY TIME YOU SHOULD USE THE NORMAL COMMAND. T ALLOCATES A 9 AREA IN THE COMPUTER TO BE USED FOR COMPOSITE HIRESRECLUDES ANY USABLE HIRES GRAPHICS FROM BASIC USING PEEKS OR POKES. UT FROM MACHINE LANGUAGE IT IS A DIFFERENT STORY.
E HAVE CREATED A SET OF COMMANDS THAT ARE WEDGED INTO THE 128 THAT USE MACHINE LANGUAGE TO TAKE ADVANTAGE OF THE 128'S 640 20OKE TO SET UP THE 16 BUFFER FOR @ (SEE @ LATER IN THIS ARTICLE FOR INFORMATION ABOUT INCREASING OR DECREASING THE BUFFER). HE NEW @ COMMAND IS ISSUED NEXT, GOING TO MODE AND SETTING UP BACKGROUND AND FOREGROUND COLORS. I ,HARSET DDRESS,,,T,IDTH,"STRING"
@,,,D,D,ESTINATION ,ESINATION
@,UFFER DDRESS,,,D,D
@,UFFER DDRESS,,
LONG WITH THIS ARTICLE THERE ARE A NUMBER OF PROGRAMS. HE FIRST IS CALLED 128 . T IS A T (AND MANY DIFFERENT STYLES) ALL AT ONCE. T EVEN HAS A SPECIAL FORM THAT WILL GIVE YOU 160 COLUMNS ON ONE LINE! MAGINE THE POSSIBILITIES!
HE SECOND DEMO PROGRAM IS A SIMPLE LINE DRAWING DEMO THAT CREATES A VERY INTERESTING GRAPHIC EFFECT CALLED. HAT'S RIGHT, THE 128 NOW HAS BLITTER GRAPHIC CAPABILITIES. (LITTERS ARE A FORM OF HIGH SPEED BITMAP TRANSFERS.)
HE LAST DEMO IS THINK AN EXTREMELY IMPRESSIVE DEMONSTRATION OF THE POWER OF THE NEW COMMANDS. T CREATES A FULLY ANIMATED DEMO GRAPHICS. INCE WE ARE GOING TO BE USING THE NEW MODE, THIS AREA CAN NOW BE USED TO HOLD THE MACHINE LANGUAGE COMMANDS IN THE WEDGE. EXT IT POKES THE START OF BASIC VARIABLES IN BANK 1 UP 16, GIVING US A 16 BUFFER FOR THE @ COM0 GRAPHIC POWER. HESE COMMANDS WILL GIVE YOU A VERY POWERFUL COMMAND SET THAT WORKS WITH 7.0 AND ALLOW YOU TO USE THESE NEW GRAPHICS FREELY.
HERE ARE 14 NEW COMMANDS, MOST OF WHICH ARE USED TO WORK WITH THE 640 200 DISPLAY. NE, @, IS NE 50 ISSUES THE @ COMMAND WITH A VALUE OF 0, WHICH WILL CLEAR THE 640 200 BITMAP DISPLAY. ND LINE 60 SETS UP THE 7.0 COMMAND. HIS IS VERY IMPORTANT BECAUSE IN CASE OF A SYNTAX ERROR OR PROGRAM CRASHING IT WILL INSTRUCT THE COMPUTER T: HIRES HELPER (1) : ARRELL 06/14/86 #: 8845
IRES ELPER HAS MANY FEATURES THINK YOU WILL ENJOY. SOME OF THESE FEATURES ARE:
1. NTERACTIVE BAR CHART DEMO
ALLOWING YOU TO ENTER YOUR
OWN LTRA IRES RAPHICS 1.0
PPEARED IN AGAZINE, EBRUARY 1986
Y OUIS ALLACE AND AVID ARUS
HE 128 COMPUTER IS WITHOUT DOUBT A REMARKABLE MACHINE. T CONTAINS ONE OF THE BEST LANGUAGES EVOF WHICH HAVE SHOWN ON A 3 BAR CHART ALLOWING YOU TO EASILY SEE WHAT KIND OF HARDWARE YOUR FELLOW USERS ARE USING.
HE OTHER MAIN FEATURE OF IS THE ABILITY TO SELECTIVLY RUN THE HIRES DEMOS YOU DOWNLOADED WHEN YOU DOWNLOADED OUNDING THE GRAPHIC CAPABILITIES OF THIS NEW ADDITION TO THE OMMODORE COMPUTER FAMILY, AND HOPE THIS ARTICLE WILL GO FAR TOWARD DISPELLING THE QUESTIONS KNOW MANY OF YOU HAVE.
IRST AND FOREMOST THE QUESTION ARISES ABOUT BITMAPPING (HIRES GRAPHI
#
------- ----------------
. 100
. 130
. 220
. 460
. 480
. 760
. 350
ED IN SEEING JUST HOW LIMITED IT IS.
AM PLEASED TO ANNOUNCE THAT OUR RESEARCH HAS LED TO THE DISCOVERY THAT YES, IT IS POSSIBLE TO USE THE 640 200 SCREEN IN BITMAP MODE!
HAT MEANS YOU CAN HAVE TWICE THE RESOLUTION OF THE 64 OR 128 IN COMPO HEADINGS, LABLES AND
VALUES.
2. - ARDWARE POLL SHOWN
GRAPHICALLY WITH USING THE
3 BAR CHART FEATURE.
3. HE ABILITY TO RUN THE
DEMOS SELECTIVLY, ONE
AT A T
ER INCLUDED WITH A MICRO, HAS 128 AND IS EXPANDABLE, SUPPORTS HIRES GRAPHICS IN COMPOSITE MODE, CONTAINS BOTH A WORKING 64 AND A -80 / COMPUTER, HAS A GREAT KEYBOARD AND A BEAUTIFUL 80 COLUMN DISPLAY. ND PERHAPS BEST OF ALL IT IS INEXPENSIVE! . HE PROBLEM IS THAT THEY LINK TOGETHER LOADING EACH OTHER IN SUCH A WAY THAT IF YOU WANT TO SEE THE LAST DEMO YOU MUST SEE THE FIRST 8 DEMOS FIRST. ELL NOT ANY MORE. HIS NEW PROGRAM WILL ALLOW YOU TO SELECT THE ONE YOU WOULD LIKE TO SEE FROMCS). INCE THE 80 COLUMN TEXT IS MADE POSSIBLE BY A RESOLUTION OF 640 200, MANY OF US HOPED WE WOULD BE ABLE TO USE THAT FOR GRAPHICS. OWEVER, 7.0 CONTAINS NO PROVISION FOR HIGH RESOLUTION GRAPHICS OF THE 80 COLUMN DISPLAY. E WERE TOLD ORIGI 120
OU MUST ALSO CHANGE ALL @CHAR COMMANDS IN THE . PROGRAM FROM 35000 TO 45000. INES 70,150,360,370,380,390. BELIEVE YOU WILL FIND ITS WORTH IT.
EEP ON 128ING
ARRELL HANNON
SITE MODE! ND SINCE IT IS A DISPLAY, THE GRAPHICS ARE CRISPER AND CLEANER THAN EVER. N CASE YOU ARE INTERESTED, 640 200 IS AS HIGH OF RESOLUTION AS THE OR EVEN THE CAN DO (IN NONE INTERLACED MODE). HE 8563 HAS A SPECIAL 16 IME.
4. COLOR CODE LISTING SHOWING
THE NEW COLOR # ASSIGNMENTS
NEXT TO A COLOR BLOCK SHOWING
HOW THE COLOR LOOKS ON SCREEN
5. OMMAND LIST.
HE INTERACTIVE BAR CHART DEMO IS ALOT OF FUN AND GIVES YOU A GOOD HAT MORE COULD YOU WANT?
ELL, ONE THING ALWAYS WANT IS HIGHER RESOLUTION GRAPHIC DISPLAYS. ND THE 80 COLUMN SCREEN ON THE 128 WAS A WELCOME BLESSING TO MANY OF US WHO FIND 40 COLUMNS A LIMITATION, BUT STILL PREFER OMMODORE COMPUTERS OVER OT A MENU. N ORDER FOR THIS TO WORK YOU MUST MAKE THE CHANGES LISTED BELOW.
OAD EACH OF THESE PROGRAMS ONE
AT A TIME AND MAKE THE CHANGES
HAVE LISTED BELOW.
. --------------------
ELETE THIS FILE FROM
YOURNALLY THAT WE MIGHT BE ABLE TO DO SOME ELEMENTARY GRAPHICS VIA CUSTOM CHARACTERS ON THE 80 COLUMN SCREEN, BUT NOT TRUE HIRES GRAPHICS. ND THE TECHNICAL SPECIFICATIONS FOR THE 8563 STATE IT HAS ONLY LIMITED BITMAPPING CAPABILITIES. HIS GOT US INTEREST AREA COMPLETLY SEPARATED FROM THE NORMAL SYSTEM , SO NO USER IS NEEDED FOR THE DISPLAY. OWEVER, TRYING TO COMMUNICATE WITH THE CHIP IS VERY DIFFICULT BECAUSE OF THAT VERY REASON. N FACT THERE ARE ONLY TWO ADDRESSES IN THE WHOLE 128 MEMORY M EXAMPLE OF HOW TO MAKE USE OF THE BAR CHART FEATURE IN YOUR OWN PROGRAMS. HIS PROGRAM IS WORTH DOWNLOADING SIMPLY FOR THE SAKE OF THE GRAPHIC BAR CHART DEMO SHOWING THE RESULTS OF THE RECENT ARDWARE SURVEY. HERE ARE 14 QUESTIONS, THE RESULTS HERS. HIS NEW 80 COLUMN CAPABILITY IS MADE POSSIBLE BY A SECOND GRAPHICS CHIP, THE 8563. HIS IS A VERY POWERFUL DEVICE, AND IT MAKES POSSIBLE THE CRISP, CLEAR COLOR TEXT THE 128 MAKES IN 80 COLUMN MODE.
HERE IS PRESENTLY A CLOUD OF MYSTERY SURR DISK. OU NO LONGER
NEED IT.
HE FOLLOWING PROGRAMS NEED ONE LINE CHANGED. ACH ONE WILL BE THE SAME. HE LINE PREVIOUSLY CALLED THE NEXT DEMO YOU SHOULD CHANGE IT TO CALL BY TYPING " ".
2
2111 022
2 2 0 ֭ ֍֢ 22 0 2 ֍ 0 2iP 2
22iP22 2Ы` 22 i 203(i2 11i1i 01 2
2LC!1 22m 2222m20 ) +7*7 0"7L0%7 P 1'7"7H&7N"7jN"7jN"7j"7"7hm"7*7i +7+7*7 0L0@ 2 Q;R; S;T; U;V; W;X; K;L;O;P;J;N;hM;I; 7R K;L; 7@ +2 2Ѝ 2/0 2/0 2/0 2/0 2/0!2/0"2/0/0-0.0 ,(-0.0и` P
W0 F]0 ve0@ m0 }0WALRUSSOFTWAREPRESENTSC128 ULTRA HIRES(C)1985 WALRUSOFT ֍ L0 ֭L0H hL0, ` 0
&
&
&
& 11::11 K#` Iڢ lh ':; ] !` gf` 02 ` 02`
#6'7 #6%7[%7 l6K#7K&7 5'7 5%7 5?7%7:7 U6-7 U6 5-7 5:7?7@7%7?7#7 #7%7%7ǰ_%7 l6O$7O>7%7:7@7>7 U6-7 U6 5-7 5:7%7>7&7 5'7 5%7 5$7 $7%7 6&7'7&7'7&7 l6L3&7'7:7& ` = `
1K .>j `6>@>'>*>)> =HiPȪ'>7>h.>0` 2d 111 02222 2 _- 2 _-i22 0 0 _- 2
2 22iP22 28` w` i 20LC!i2 1111 02222 . 2 . 2 :%) i
M;N; 7. O;P; 7 I;J; = t,`K;L; Y;: f: fM;N; Y;: fI;J; Y;: fO;P; Y;: f: c ?; f: c B; f :U;V;
; fW;X; ; fQ;R; ; fS;T; ; f: ]: c l 11
&
&m11em1m1`1Jn1Jn1Jn1112`111 11) 1111-1*11111.1J1m111m11N11Ǯ11` 11 11 11 11` @ L!LP7DLR7 5'7 5&7L3;7 6 5%7` 5/7 5.7 5-7 5,7 O5L&5%7)07,7)17-7'7,7&707271797 61717,7-7,7-70/7
,7.7`L7 5ƯƮ`毩 5`L7 22 0 . 0 2
2 22iP22 2` t` 02 11 / ; ) 002L. 0 111@L{/ 02 / ; ) 002L// q/ 0 11 011 01111@L{/11111(1 : c ' gI:fI:::: c ?
; ] !!; f: c B; ] !&; f&; c; ] !0; f!; c; ] !5; f0; c5; ] +; f!; c; ] !0; f&; c; ] !0; ] &; f+;!;; c!; ] : f @ ` &7'7 ` "!1 z"` ʎ6>8>7><>&> = ) = )>*>P(>)>H*>H =)>H*>H = =h*>h*>)>(>ެ6>@>P.> />J .>./>hhm.>)>m/>*>&>М `,>->->,> 0 0,>->` 5`Ɵƞ 5`M7 L7 wM7`M7 tM7` <6,7 <6-7 <6.7 <6/7 <6%7LO5;7=7A7=7=7 =7`;7<7A7<7<7 <7`;7=7=7
=7=7A7` 6"7&7)7-"7(78`(7`(7
(7 )7,)7 6"7&7)7)7
"7I-"7"7 K =HiPȪ'>7>h.>0` 2d 1 /1 1 1 11L.1 11111 1 1 /L /11L.1 q/11" q/11 0L4/1ש 1 q/1 q/ 01L4/ `hh L0211 1 1 102` 6 h 1` < ,2 ; ]&; c : f:J::11::11: c t;1:1:: c t;1:1: K#8/:: c t;::::: c t;:::::::::: ]: c : fL8K;FL;AhMM;:MN;3::11::11:: %7 (7 Q3B 27 Q3< 37 Q3> 47 57 Q34 67 77 87 97L]3272727( F3 F3L]32727ʈ` = t,` ) :7;7<7=7 l6`%7>7?7@7 5 5&7'7&7'7 l6&7'7&7 #7$7&7
L!LP7DLR
7>h.>0` 2d
111111111111i11 $11 $180n1n1 11711m111m1108111111 $11121 $ 01 $1,10I-1L$
1 011111`L0%$)%$L 8Ii ` $iP`
%8P
19% 21ǐթ 22LO'11111111 2121 '11 21212121 '21212Ȑ 1212111 '2121111111 ' 2211211111 11 K#22` +2,2 2
` "!1 z"` ʎ6>8>7><>&> = ) = )>*>P(>)>H*>H =)>H*>H = =h*>h*>)>(>ެ6>@>P.> />J .>./>hhm.>)>m/>*>&>М `,>->->,> 0 0,>->`
?1M1 '!` L/!1 1hhL <1 ) l1 a!L!&RA TL% }!L
+T ݏ!кL"TXE ЪL = ݬ!НL2LLORC !ЈL/SURLA !
LC! !!!!!L 22,-Xj
8` *2`*2`)2`)2`(2`(2` 2i 27 8 2 2'8 2 2 2 2i 2 2 *` 1m2m 2` 2 2 2 02O 2*m 2 2Ɛ 2 2 2L*` (08@HPX`hpxh{ n
` $1 .1` $N1 n1`
%%$$%$$$$%$$$$$$
2 ` @ 1 2111111111111111111111111 K#11111111 K#11111111 K#1111
2А +2 2 2 2 2 !2LC! \y *"2$% 1 ) 1"2`,2 t1 ) !2"#21"2 ,2 t1 ) $2 *!23&2#2 j* *
12$2 j* *)1212LN)$2 j* *12 92!2&21=12
` = `
1L .>j `6>@>'>*>)> =HiPȪ'>7>h.>0` 2d
Lc!6"9BLQ!FLm!HL!SL!TL!WL!LC!ޓ߽N"M"W"L"L #'%"+"..2?Pڛ`` )1
11 ) ֭ ) ֍ ` "1) z" ֭) @ ֍֭ )ύ ' 0 ` 1 ) H(`H.2 0.2h`02+2 t02` 2 22Ȍ2 ) 2 + LP+0 + + t + +i槥2` , ` , ` 11i1i 01 21 2 1 ) 111 0
1111 K#` 1 211111111 K#` 1111111 1J1 9% ǰ861 221111 2221189%281ǐ`1m11 221m1222 ӭ21m12222 ' O'121
/2/2
>92>A2>I2>Q2>Y2>a2>i2>q2>y2>2>2>2>2>2>2>2&2ƈЩ &2!2'2 '2*9212 2%212M(2-2)2 * 0M-2 * 0iP-2%2Ů*28項 **2 0 2i 2 2 *'2&2&2!2L9)L9( @`ɀ8@`ɠ
01 #@L.#1 0 ֭)H h֩ ֭1L0 ֭ ֍` 1 2 ) 111 0)H%18111111811111111111111 1,11 $11 $11,11 $11 $11i 8` *2`*2`)2`)2`(2`(2` 2i 27 8 2 2'8 2 2 2 2i 2 2 *` 1m2m 2` 2 2 2 02O 2*m 2 2Ɛ 2 2 2L*` (08@HPX`hpxh{ n 7 5'7 5%7 5 :7&7 #6'7 #6%7 #6;7
6 5%7>7 5'7 5&7L3;7 6 5%7` 5/7 5.7 5-7 5,7 O5L&5%7)07,7)17-7'7,7&707271797 61717,7-7,7-70/7
,7.7`L7 5ƯƮ`毩 5`L7 22 0 . 0 2
2 22iP22 2` t` 02 11 / ; ) 002L. 0 111@L{/ 02 / ; ) 002L// q/ 0 11 011 01111@L{/11111(1 19% 21ǐթ 22LO'11111111 2121 '11 21212121 '21212Ȑ 1212111 '2121111111 ' 2211211111 11 K#22` +2,2 2
@ ` &7'7 : c ' gI:fI:::: c ?
; ] !!; f: c B; ] !&; f&; c; ] !0; f!; c; ] !5; f0; c5; ] +; f!; c; ] !0; f&; c; ] !0; ] &; f+;!;; c!; ] : f H(`H.2 0.2h`02+2 t02` 2 22Ȍ2 ) 2 + LP+0 + + t + +i槥2` , ` , ` 11i1i 01 21 2 1 ) 111 0
5`Ɵƞ 5`M7 L7 wM7`M7 tM7` <6,7 <6-7 <6.7 <6/7 <6%7LO5;7=7A7=7=7 =7`;7<7A7<7<7 <7`;7=7=7
=7=7A7` 6"7&7)7-"7(78`(7`(7
(7 )7,)7 6"7&7)7)7
"7I-"7"7 1 /1 1 1 11L.1 11111 1 1 /L /11L.1 q/11" q/11 0L4/1ש 1 q/1 q/ 01L4/ `hh L0211 1 1 102` 6 h 1` < ,2 2А +2 2 2 2 2 !2LC! \y *"2$% 1 ) 1"2`,2 t1 ) !2"#21"2 ,2 t1 ) $2 *!23&2#2 j* *
12$2 j* *)1212LN)$2 j* *12 92!2&21=12 %7 (7 Q3B 27 Q3< 37 Q3> 47 57 Q34 67 77 87 97L]3272727( F3 F3L]32727ʈ` = t,` ) :7;7<7=7 l6`%7>7?7@7 5 5&7'7&7'7 l6&7'7&7 #7$7&7 ; ]&; c : f:J::11::11: c t;1:1:: c t;1:1: K#8/:: c t;::::: c t;:::::::::: ]: c : fL8K;FL;AhMM;:MN;3::11::11:: 2
2111 022
2 2 0 ֭ ֍֢ 22 0 2 ֍ 0 2iP 2
22iP22 2Ы` 22 i 203(i2 11i1i 01 2
2LC!1 22m 2222m20 ) +7*7 0"7L0%7 P 1'7"7H&7N"7jN"7jN"7j"7"7hm"7*7i +7+7*7 0L0@ 2 Q;R; S;T; U;V; W;X; K;L;O;P;J;N;hM;I; 7R K;L; 7@ +2 2Ѝ 2/0 2/0 2/0 2/0 2/0!2/0"2/0/0-0.0 ,(-0.0и` P
W0 F]0 ve0@ m0 }0WALRUSSOFTWAREPRESENTSC128 ULTRA HIRES(C)1985 WALRUSOFT ֍ L0 ֭L0H hL0, ` 0
&
&
&
& /2/2
>92>A2>I2>Q2>Y2>a2>i2>q2>y2>2>2>2>2>2>2>2&2ƈЩ &2!2'2 '2*9212 2%212M(2-2)2 * 0M-2 * 0iP-2%2Ů*28項 **2 0 2i 2 2 *'2&2&2!2L9)L9( @`ɀ8@`ɠ #6'7 #6%7[%7 l6K#7K&7 5'7 5%7 5?7%7:7 U6-7 U6 5-7 5:7?7@7%7?7#7 #7%7%7ǰ_%7 l6O$7O>7%7:7@7>7 U6-7 U6 5-7 5:7%7>7&7 5'7 5%7 5$7 $7%7 6&7'7&7'7&7 l6L3&7'7:7&
11::11 K#` Iڢ lh ':; ] !` gf` 02 ` 02` 111 02222 2 _- 2 _-i22 0 0 _- 2
2 22iP22 28` w` i 20LC!i2 1111 02222 . 2 . 2 :%) i M;N; 7. O;P; 7 I;J; = t,`K;L; Y;: f: fM;N; Y;: fI;J; Y;: fO;P; Y;: f: c ?; f: c B; f :U;V;
; fW;X; ; fQ;R; ; fS;T; ; f: ]: c l 11
&
&m11em1m1`1Jn1Jn1Jn1112`111 11) 1111-1*11111.1J1m111m11N11Ǯ11` 11 11 11 11` @
@ ?
a
v
æ`
z? G ? @ @ @ |
? ? !
1 @ @ @ @ ? G ' 4 ? _ ` " ` " " ! ?
?
@!@
ULTRA HIRES V1.2 4/27/86 0@ (8)(14) g@ PT$(1)"EPSON":PT$(2)"OLIVETTI":PT$(3)"SPIRIT80" @( " LTRA IRES RINTER ONFIGURATION" @2 "NTER PRINTER YOU WISH TO SCREEN DUMP TO WITH LTRA IRES" @< " 1. PSON" @F " 2. LIVETTI )) "ULTRA HIRES" 5B "REATING THE NEW MODULE NOW..." ' 1 ? H L a @ @ @ X ?
? ? r ?
r ? ?A
'
@ @ @ @ @ " AP " 3. PIRIT80" AZ A$ 8Ad A$"1" A$"3" 90 lAn "OU CHOOSE THE "PT$((A$))" FOR LTRA IRES" Ax "S THIS CORRECT (Y/N)?" A B$ A B$"N" B$"" A B$"Y" B$"" 170 A 130 A "ULTRA HIRES" B "UH."PT$((A$
?1M1 '!` L/!1 1hhL <1 ) l1 a!L!&RA TL% }!L
+T ݏ!кL"TXE ЪL = ݬ!НL2LLORC !ЈL/SURLA !
LC! !!!!!L 22,-Xj 01 #@L.#1 0 ֭)H h֩ ֭1L0 ֭ ֍` 1 2 ) 111 0)H%18111111811111111111111 1,11 $11 $11,11 $11 $11i ` $1 .1` $N1 n1`
%%$$%$$$$%$$$$$$
2 ` @ 1 2111111111111111111111111 K#11111111 K#11111111 K#1111 1111 K#` 1 211111111 K#` 1111111 1J1 9% ǰ861 221111 2221189%281ǐ`1m11 221m1222 ӭ21m12222 ' O'121 @ Y t G ?
@ @ @ @ M K ?
6 0?
3? ?
% @ ? ?
~ # ?
@ @ @ @ 0 X 0 (
1 0
` ? `1 4
# ?
~
` P /? 0? Ǧ
? = ? >/
?
?8A ? 6 ?
D L
b
1 ? N 1 F a @ @ @ @ Y t
?
< 0 @ I ? 0
? @
p @8
? ? р? q? 3 g @ ? ?
@ @ @ ~ @? @@
@ @ @ @ A : ` & ! & ` % @ x p p0 ` d ` - E @ @ @ @ C p N x ' 9 > 8p ?
o 9 {ǀ
? @ 10 ~ :; 0
x 8< ppπ | ; ~ x 0 8 < @ @
@ @ .75,-.5,1,.75,-.5,1,.75,.5,-1,.75,.5 PH& -1,-.75,.5,-1,.75,.5,-1,-.75,-.5,-1,.75,-.5,1,-.75,.5 tH0 1,.75,.5,1,-.75,-.5,1,.75,-.5 !,A(K),250,65: F K64 1 1:@!,A(K),250,65: F F GOTO TEXT MODE, PRINT STATUS AND END F "T.STARWARS
I e
C 9
@#R
8
p Q
a
D| /
(
r@
G p v
d d
G K E
@ p
d d
P . o
` y
I `
m 3
I
`
f 9 ŀ
"@ ? 2 X
g.
$ $
2 B I d P
\
$ $
2 Z A `0 @
< x 00 ` p` @` d < @
À
x @ ` a @ p <`8 ` 0 c8 8 @ g@ 0 0 A 0 ` ?
n ` 9
0 q
>
x wp
~~ < @ >
x ? @ p8
@ @ A < ;
x
G $ @ ? 3 w
x
8C|
? ` x @ =
? ;
@f x|
!x = p < ß Ϙ o8` ??
@
< `<`
| ??8 @ p8s0
^ 0 0
g* < I h @
d
@ 0
8
$ `0 @ 3 0
$ @0
L
@@
% @ @,0:@,0,6 !@ 90 @( @,7168,0,0,1,0,"HIS IS A TEST OF 160 CHARACTERS PER LINE. OU WILL NOTICE THAT IT IS STILL POSSIBLE TO READ THEM ON THIS 1902 MONITOR." :A2 @,55296,0,12,1,1,"HIS IS A TEST OF 80 CHARACTERS PER LINE. OU WIL " *E@,40000,0,184,1,1,"@" E"@,40000,0,191,1,1,"RINTERS SUPPORTED BY LTRA IRES (1) PSON (2) PIRIT 80 (3) LIVETTI" E, 5 Eh "T.TEXT LENAME"(34) D @,40000,0,144,1,1,"@LOAD,COMPRESS FLAG (0,1),"(34)"FIL @@
% @ 120 !@ @,0,4:@,0 5@( I0 639 10 L@2 @,320,100,I,199,1 R@< f@F I0 639 10 {@P @,320,100,I,0,1 @Z @d @,53248,0,0,16,16,"MOIRE" @n @,45000,8,130,8,11,"PATTERN" @x 5 @ "T.BAR 80 CHARACTERS PER LINE. OU WIL
@@
3D BAR DEMO .@ %: ENABLE 2 MH MODE o@ @,0,9:@,0: ENABLE ULTRA HIRES 640 X 200 AND CLEAR SCREEN @( 200: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR @2 @,53248,0,0,1,1,"" A< @,53248,0,24,4,4," 3D BARS BY COMMAN ]53248,X,Z,1,1,C$ B B 5 EB GOTO TEXT MODE, PRINT STATUS AND END TB "T.CIRCLE 200 AND CLEAR SCREEN @( 200: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR @2 @,53248,0,0,1,1,"" A< @,53248,0,24,4,4," 3D BARS BY COMMAN@ @
%: ENABLE 2 MH MODE O@ 47,0:48,68:: SET UP 16K BUFFER FOR @STASH @ @,6,0:@,0: ENABLE ULTRA HIRES 640 X 200 AND CLEAR SCREEN @( 440: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR @2 @,0 A< @,55296,64,0,9,9,":FL0:R10 JB DRAW CIRCLE CENTER X=CX, CENTER Y=CY, X RADIUS=XR Y RADIUS=YR B SA=0 EA=360 TH=0 INC=8 (ALL DEFAULTS AND NOT REQUIRED PARAMETERS) B YR1 8 2:XRYR2.5 B @,1,CX,CY,XR,YR B YR B 5 B DUPLICATE CIRCLE WITH @COPY CO XXTX: X590 TXTX1 1D X8 TXTX1 UD YYTY: Y184 TYTY1 pD Y1 TYTY1 vD ~D 5 D"T.GRAPHS B YR1 8 2:XRYR2.5 B @,1,CX,CY,XR,YR B YR B 5 B DUPLICATE CIRCLE WITH @COPY CO@ @
%: ENABLE 2 MH MODE P@ 47,0:48,132:: SET UP 32K BUFFER FOR @STASH @ @,0,11:@,0: ENABLE ULTRA HIRES 640 X 200 AND CLEAR SCREEN @( 480: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR @2 X(19),Y(19),Z(19),A(65) 4 )B @,35000,424,100,2,4,(65CT)" " UB S1(TH):S2(P):C1(TH):C2(P) B XX(1):YY(1):ZZ(1): 500:OXSX:OYSY B I2 5 B XX(I):YY(I):ZZ(I): 500:@,OX,OY,SX,SY,1:OXSX:OYSY B C XL NOTICE IT IS THE SAME AS IN NORMAL 80 COLUMN TEXT MODE." A< @,40000,0,32,1,2,"HIS IS A 40 COLUMN CHARACTER TEST. ERE WE HAVE THE SAME RESOLUTION AS IN COMPOSITE MODE." BF @,55296,0,66,2,2,"THIS IS DOUBLE HEIGHT, DOUBLE WIDTH. LOOKS GOO 1):ZZ(I1): 500:@,OX,OY,SX,SY,1 7D OXSX:OYSY CD" `D, @ ,MC,45,10,70,55 D6 A(CT)MC:MC(250)(251)2561: NEXT AVAILABLE ADDRESS D@ DDSD: D249 D249 DJ THTH.2:@,320,0,300,75,0,0 DT E^@,0: BEGINNING OF ANIMATION ROUTINE IEh@,35000,80,0,2,3,"3D GRAPHICS ARE EASY" yEr@,35000,56,24,2,3,"USING C128 ULTRA HIRES" E|@,35000,56,146,2,3,"WITH @STASH AND @FETCH" E@,35000,56,170,2,3,"IN YOUR BASIC PROGRAMS" E 5 F BLITTER AND" AF @BAR,200,190,200,50,80,1 &AP 2 7AZ @,0,13:@,0 LAd @,0,0,639,199,1 aAn X0 599 48 {Ax HT((1)179)8 A @BAR,X,199,29,10,HT,1 A Z199HT2 A HT8 190 A C$(HT) A C$(C$,(C$)1) B @,IMATION USING THE @FETCH COMMAND !FWQ110 BF K1 64:@!,A(K),250,65: dF K33 64:@!,A(K),250,65: F K64 33 1:@!,A(K),250,65: F K64 1 1:@!,A(K),250,65: F F GOTO TEXT MODE, PRINT STATUS AND END F "T.STARWARS" AF RD9 99 10 ?AP @,1,320,100,2.5RD,RD,0,360,0,10 EAZ MAd 5 ]An @,0:@,6,8 uAx TH 1 180 10 A @,1,320,100,30,99,0,360,TH,12 A A 5 A @,0 A @,55296,64,0,16,16,"" A 3 A @,0:@,6,2 B CX24:CY8:SC2.5MMAND C YC0 183 20 2C" XC0 590 50 WC, @,0,0,48,20,XC,YC dC6 jC@ rCJ 5 CT@ ,0,0,0,48,16 C^ ANIMATE WITH FETCH ChTY1:TX8:X((1)583)7:Y((1)10)20 Cr I1 1084 C| @!,0,X,Y D G CONVERT X,Y,Z TO SCREEN X,Y [GXTXS1YC1:YTXC1C2YS1C2ZS2:ZTXS2C1YS2S1ZC2RH }GSXDXTZTCX:SYCYDYTZT: G DATA THAT DESCRIBES 3D CUBE G -1,-.75,.5,1,-.75,.5,1,-.75,-.5,-1,-.75,-.5,-1,-.75,.5 H -1,.75,.5,-1, A< READ CUBE DATA INTO ARRAYS EAF @,35000,0,100,2,4,"FRAMES TO GO " TAP I1 18 oAZ X(I),Y(I),Z(I) uAd An RH10:D48:TH2:P1.4:CX80:CY36:MC0:SD6.5 Ax A LOOP TO DRAW 3D CUBE AND @STASH EACH FRAME INTO BUFFER A CT1 6 X(6):YY(6):ZZ(6): 500:OXSX:OYSY 4C I7 10 |C XX(I):YY(I):ZZ(I): 500:@,OX,OY,SX,SY,1:OXSX:OYSY C C I11 17 2 C XX(I):YY(I):ZZ(I): 500:OXSX:OYSY D XX(I1):YY(I ]D, RIGHT?" >BP @,45000,0,102,6,5," WE COULD DO THIS ALL DAY!" FBZ 5 TBd "T.MOIRE LINE. OU WILL NOTICE THAT IT IS STILL POSSIBLE TO READ THEM ON THIS 1902 MONITOR." :A2 @,55296,0,12,1,1,"HIS IS A TEST OF 80 CHARACTERS PER LINE. OU WIL 53280,13 " &H:&S:&C13,5,1 P
O1:W319:U199:X(1)320:Y(1)200:M. w I.W:&MM:&LI,.,X,Y:&DI,U:MOM: I.U:&MM:&L.,I,X,Y:&DW,I:MOM: HL HHH Ŏ hhhź ĻLl
ưL` ō `HSTMCPLGD @@
BASIC PROGRAM SETUP 6@ %: ENABLE 2 MH MODE i@ 47,0:48,68:: SET UP 16K BUFFER FOR @STASH @( @,0:@,4,0: CLR AND GOTO ULTRA HIRES SCREEN, SET COLORS BG,FG @2 170: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR A< LLED UH.PRINTER-SETUP" =B @,AD,83,172,2,1,"FOUND ON THIS DISK." FB 6 SB "DEMO" B GOTO TEXT MODE, PRINT STATUS AND END PROGRAM B @TEXT:: , SET COLORS BG,FG @2 170: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR A<
@@
BASIC PROGRAM SETUP 6@ %: ENABLE 2 MH MODE i@ 47,0:48,68:: SET UP 16K BUFFER FOR @STASH @( @,0:@,0,2: CLR AND GOTO ULTRA HIRES SCREEN, SET COLORS BG,FG @2 1010: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR A< @@
BASIC PROGRAM SETUP 6@ %: ENABLE 2 MH MODE i@ 47,0:48,68:: SET UP 16K BUFFER FOR @STASH @( @,0:@,0,2: GOTO ULTRA HIRES SCREEN (640 X 200) AND SET COLORS BG,FG @2 CLEAR ULTRA HIRES SCREEN A< 100: SET UP SYNTAX ERROR TRAP TO R@@
% @ @,15,0:@,0 #@ 360 B@( "COMPUTER FO*",B0,P45000 ^@2 "ROMAN FO*",B0,P40000 @< @,45000,112,0,2,2,"ULTRA HIRES COMMAND SUMMARY " @F @,40000,0,16,1,1,"@GRAPHIC,," @P @,40000,0,24,1,1,"@CLR,VALUE" @Z @,40000,0,32,1,1,"@TEXT" )0000,0,80,1,1,"@PAINT,X,Y,MODE,P1,P2,P3,P4,P5,P6,P7,P8" oB @,40000,0,88,1,1,"@HCOPY,SIZE (1-4),SECONDARY ADDRESS" B @,40000,0,96,1,1,"@STASH,BUF ADDRESS,X,Y,DX,DY" B @,40000,0,104,1,1,"@FETCH,BUF ADDRESS,X,Y" C @,40000,0,112,1,1,"@COPY,X,Y,DX, X(231),Y(231),L(10),H(10) P
&H:&S:&C14,11,1:C5:R14:XC159:YC99:T1.3 I17.34.1:EI10.001:X(E)XCCI(I)T:Y(E)YCCI(I) ( &PX(E),Y(E): 2 C%(1)16:BK%(1)16:BO(1)16:C%BK%50 < &CC%,BK%,1:&S:R(1)205:53280,BO ABORT? " A$:A$""210 , A$"Y"100 < A$"N"250 F 210 | &H:&S:&C14,11,1:Q360:R.01745:S100:TRWA:U160 PQSP:AN.QPP:&GU,S:I.S5:A$:A$""290 DR(AM(IT)AN):&DUI(D),SI(D):: A$:A$""280 ""TRY PATTERNS: A P "20,6,20/50,4,20/30,6,60/40,20,10 /20,4,100 i Z P(7):P(0)1:I17:P(I)2P(I1): d &T:53280,0:53281,0 n " WAVING SPOKES " x "======================================== "
" TRY PAT %
&H:&S:&C14,11,1:&M.:W319:U199 l I.W9:NIUW:&LI,.,W,N:&LWI,.,.,N:&LI,U,W,UN:&LWI,U,.,UN: X159:Y99:I.X9:NYIYX:&LI,Y,X,N:&DWI,Y:&DX,UN:&DI,Y: # &LX,.,X,U ( A$:A$""40 2 &T Ll
ưL` ō `HSTMCPLGD PROGRAM BEGINS HERE AF AD55296 %AP : BAZ @,AD,150,0,10,10,"" Ad @,AD,75,100,2,1,"LTRA IRES COMES CONFIGURED FOR AN PSON PRINTER" An @,AD,83,124,2,1,"F YOU WISH TO CHANGE IT TO 80 OR LIVETTI" Bx @,AD,83,148,2,1,"RUN THE PROGRAM CAENAME"(34) DD @,40000,0,152,1,1,"@CHAR,FONT ADDRESS,X,Y,HT,WIDTH,STRING" D @,40000,0,160,1,1," UNDERLINE UNDERLINE " D@,40000,0,168,1,1," " E@,40000,0,176,1,1," g PROGRAM BEGINS HERE AF : AP : RA GOTO TEXT MODE, PRINT STATUS AND END PROGRAM `A@TEXT:: .BASE ETURN TO TEXT MODE AND LIST ERROR %AF : ?AP PROGRAM BEGINS HERE KAZ @WALRUS SAd 5 An GOTO TEXT MODE, PRINT STATUS AND END PROGRAM Ax @,0: "T.COMMANDS Ad @,40000,0,40,1,1,"@FONT,#(1-2),ADDRESS" UAn @,40000,0,48,1,1,"@DOT,X,Y,MODE (0-1)" Ax @,40000,0,56,1,1,"@DRAW,X1,Y1,X2,Y2,MODE" A @,40000,0,64,1,1,"@BOX,X1,Y1,X2,Y2,MODE" A @,40000,0,72,1,1,"@CIRCLE,MODE,CX,CY,XR,YR,SA,EA,THETA,INC" 3B @,4 DY,ENDX,ENDY" 4C @,40000,0,120,1,1,"@DRWMODE,MODE (0-1)" nC @,40000,0,128,1,1,"@BAR,X,Y,DX,DY,HEIGHT,MODE (0-1)" C @,40000,0,136,1,1,"@SAVE,COMPRESS FLAG (0,1),"(34)"FILENAME"(34) D @,40000,0,144,1,1,"@LOAD,COMPRESS FLAG (0,1),"(34)"FIL :S((1)41) ' A (1)4170,80,90,100 K F I10230S:&EX(I),Y(I),R::50 p P I23010S:&EX(I),Y(I),R::50 Z Q120:I0110S:NQI:&EX(N),Y(N),R:NQI:&EX(N),Y(N),R::50 d Q120:I1100S:NQI:&EX(N),Y(N),R:NQI:&EX(N),Y(N),R::50 0A$"*"100 ,A$"Q"&T: 6280 $ @ 40,20,10 20,4,100" `
" 30,6,60"
" WHILE IN HI-RES MODE:"
" * TO RERUN"
" Q TO QUIT
" SPOKES, WAVES, AMPLITUDE:";SPOK,WAVES,AMP " TERNS: 20,6,20 50,4,20" @
" 40,20,10 20,4,100" `
" 30,6,60"
" WHILE IN HI-RES MODE:"
" * TO RERUN"
" Q TO QUIT
" SPOKES, WAVES, AMPLITUDE:";SPOK,WAVES,AMP " ?
"ORIGINALY WRITTEN FOR +4, MODIFIED BY D.R.BULL FOR C128 d "SPEED IMPROVED BY CHRIS NEWMAN "ADAPTED FOR C64 BY CHRIS NEWMAN ( "ADAPTED FROM BILL AND LEE HARDING'S 2 "PROGRAM IN COMPUTEK MAGAZINE < "THE TRANSACTOR VOL 6-3, P.9
F JjJJei
)ee
)e` &I*%*`&`E&`HhHhHh` (e8ee`F&f&e`'( )*f*f)f(f' e))e**`
帅((ж)') bL (J'j ))H 7h2'e(e )8) 7Lyĥ'e(e )$8)&&&8 7лLyĘ) bL )J )H 7hC)e (''ee ¥8 ¥"8 ¥e ¥Oeee ¥8 ¥8 ¥e ]¥'e))(e*
)*L !hhɩ y &
s l
ɧHHL s H EA +_يs ¥"8 ¥e ¥Oeee ¥8 ¥8 ¥e ]¥'e))(e*
)*L !hhɩ y &
s l
ɧHHL s H1.9920:&GXCR(AN),YCR(AN) W IS360S:&DXCR(2IAAN),YCR(IAAN):: _ 40 f ,&S | 6D4:E2:XXC:YYC @&GX,Y JI020:DDE:YYD:&DX,Y:DDE:XXD:&DX,Y:DDE:YYD:&DX,Y rDDE:XXD:&DX,Y: 40 &S:S3
T(T),YCR(T) vIS2S 4 &PXCR(IT),YCR(IT) ; I H RRD:T P 40 k &S:R80:S25:A10 v I04 TAIS X(I)XCR(T):Y(I)YCR(T): &LX(0),Y(0),X(2),Y(2):&DX(4),Y(4) &DX(1),Y(1):&DX(3),Y(3) &DX(0),Y(0) ,
"SIDES";S:T2S:&H:&S:&C14,11,1:&M0 ? X(S2),Y(S2) d L1:D02T:X(L)160130(D) ( Y(L)10098(D):LL1: 2 I1S:JIS:&LX(I),Y(I),X(J),Y(J):: < A$:A$""60 F &T:10 ź ĻLl
ưL` ō `HSTMCPLGD160:PL(3)231:PR(3)240:P(1)R7 1 ) P(2).:P(3). z * I13:&LPL(I)4,160R7,PL(I)4,159:&LPL(I)5,160R7,PL(I)5,159: - J153:IR101:KJJ5:&LPL(1)I2,K,PR(1)I2,K::JJ7:
2 LR1:F(L)1:T(L)3:S(L)2:EJ:DE5:O1:Q2:V4:U9:X159 Q(S.)S:&LB,E,B,D:&LBZ,E,BZ,D: @ GPL(T)LQ:HGW:P(T)P(T)Y j BEXP(T):&LG,B,H,B:&LG,BN,H,BN: L.LLO:F(L)S(LO):T(L)T(LO):S(L)F(LO):100 LLO: :JJ7:
2 LR1:F(L)1:T(L)3:S(L)2:EJ:DE5:O1:Q2:V4:U9:X159 81 ERASE MODE" 0
"&M2 FLIP MODE" SWITCH TO HIRES MODE" y( "&T SWITCH TO TEXT MODE" 2 "&S CLEAR THE HIRES SCREEN" < "&CF,B,C CHANGE COLORS: F " F=FORGROUND COLOR" P "
A0A1:".WHIRES",8,1 ( 49152 Q "&H SWITCH TO HIRES MODE" y( "&T SWITCH TO TEXT MODE" 2 "&S CLEAR THE HIRES SCREEN" < "&CF,B,C CHANGE COLORS: F " F=FORGROUND COLOR" P " LU ***I* )* ݭ) JJ*)<
*Э ` ݩЭ)ߍ` ̍
ō` ?` `@ )&JJJ
e
&
&
&
&
&'&(&)&&*'&(&)&&*&&&% HhЬFf` '(8&'&(&&`Ȱͥ
ť@ L7x ) 7 X`Lx) 8弰ȥ8幅)8庅'廰
ȥ8巅'( 7'ƥ(Lyĥ)e (<'4'( 8(88 7'С(Л X` ` Lx) )@*
TLyĥMeH` `Ȱ
@`L `
y )L` Ŏ
ưL LĭH HHL HHH Ŏ hhhź ĻLl
ưL` ō `HSTMCPLGD"
(49153)85".WHIRES",8,1 : (768)18049152 B 90 S( I1999:: lZ &H:&S:&C5,0,1:BO199 d S3:&GS,BOS:IS195S:Y1BOS:Y2Y1I:X2SI:&DS,1:&DX2,Y2 n &DX2,Y1:&DX1,Y1: 40 R80:XC159:YC99:A180:S5 &S " AN0.SS8:&GXCR(T),YCR(T) G
IS2S:&DXCR(IT),YCR(IT):: O
40 c
&S:S4:DR20
T.SS20:&GXCR(T),YCR(T)
IS2S:&DXCR(IT),YCR(IT)::RRD:
D40
X&S:R80:S8:DR20
bT0SS40 l&PXCR 40 &S:A160:BA2:&G.,A(4) J 4X42A14:N(XA)B:&DX,A(NN): R p40 &H:&S:X159:Y99:RA95:&EX,Y,RA:R0:C.5:TP2:S20 &LXRA(R),YRA(R),XRA(RC),YRA(RC):RRS:RTP910 40 '&T SS40 l&PXCR< F(12),T(12),S(12),PL(3),PR(3),P(3): FROM, TO, SPARE L 319 X 159
B.:V.:G.:H.:Z.:E.:D.:"TOWERS OF HANOI!" "NUMBER OF RINGS (1 - 12)";R:R1R1220 &H:&S:&C14,11,1:&M2:&L0,160,319,160 ( PL(1)71:PR(1)80:PL(2)151:PR(2):Y7:N6
< 100:&T
b 7
c *** RECURSIVE SOLUTION *** o
d L.LLO:F(L)F(LO):T(L)S(LO):S(L)T(LO):100
n FF(L):TT(L):WLVU:ZWO:GPL(F)LQ:HGW:S(TF)
s BXP(F)EO:&LG,BN,H,BN:&LG,B,H,B::P(F)P(F)Y x BG(S.)PL(T)L B=BACKGROUND COLOR" F Z " C=CLEAR OPTION (1=CLEAR)" f d "&LX,Y,X1,Y1 DRAW A LINE" n "&GX,Y PUT PIXEL CURSOR AT XY x "&DX,Y DRAW TO XY" "&EX,Y,R CIRCLE (R=RADIUS)" "&M0 DRAW MODE"
"&MA @ HIRES GRAPHICSHG2A
WHIRES BOOT .WHIRES WHIRES DEMO POLYGONS C64 HANOI 64 MOIRE
LINE PAT64 RWAVE ------------- --
GRAPHICS LOADER
LOADER GRAPHICS1 GRAPHICS2 GRAPHICS3 GRAPHICS4 HR SCREENS.DOC <ULTRA ROSETTA SPIRAL SINE WAVE WAVES WILD WAVES --------------- ULTRA HIRES BOOT ULTRA HIRES % PRINTERHELP ------ ---------
ULTRA DRAW ULTRA DRAW HELP ------- -------- BOOT ASTRO0 K "ASTRO1 % $ASTRO2
UH.BASE DEMO T.COMMANDS T.TEXT T.MOIRE T.BAR T.CIRCLE T.CUBE & UHR ASTRO.DOC &--- ------------ &GS-LOADER &BOOT2 &GS-TITLE ( GS-CONFIG (GS-MENU ) GS-MAIN
T.GRAPHS T.STARWARS PIC.XWING 1V8 PIC.XWING 2V8
PIC.XWING 3V8
PIC.XWING 4V8
STARS CURSIVE FONT ) GS-SAMPLE1 )GS-SAMPLE2 * GS-SETTINGS *CHARACTER SET 1 *8563ML * ----- ---------- *DELTA DRAW V2 F . DRWMENUV2 COMPUTER FONT GOTHIC FONT ROMAN FONT UH.PRINTER-SETUP UH.EPSON % UH.OLIVETTI %
UH.SPIRIT80 % UH.PIC.CONVERT /FILLER /
HELPV2.TXT ! 1DEFAULTV2 1---------- ----- 1ABSTRACT 1CAD 3D " 3 GRAPHIT 3 LANDSCAPE 7 PAINTEDITOR1.1 HIRES HELPER ( HIRES HELPER.DOC
DOC.ULTRAHI1.0 H DOC.ULTRAHI1.1 ! ---------------- BOOT PROGRAM INITIAL HI-RES 7MAC.PIC 8 MAC2.PIC : NINE SCREENS
:SHUTTLE ;SHUTTLE.DOC ;SNOWFLAKE.640 < UH.FLY <ULTRA DIR SUB m
&S:&C14,11,1 . &M0:&H:&G0,99:C4319 P I0319:&D0I,9960(IC): b2 A$:A$""50 i< &T 5 .ANIMAL HIRES!<5 .HIRES HIRESTEST |
&S:&C14,11,1 . &M0:&H:&G0,99:C4319 _ I03192:&LI,9960(IC),I,9960(IC): q2 A$:A$""50 x< &T .ANIMAL HIRES!<5 .HIRES HIRESTEST
&S:&C14,11,1 D "OFFSET 1";O:"SIN AMPLITUDE 30";SA d "COS AMPLITUDE 80";CA &M0:&H:&G0,99:C4319 ( I02992:&LI,99SA(ICO),I20,99CA(IC): 2 A$:A$""50 < &T HIRESTEST [[
SINE WAVE WAVES WILD WAVES [3[
1,1:5: SET UP 10K BUFFER IN BANK 0 FOR ML p[ 47,0:48,68:: SET UP 16K BUFFER IN BANK 1 FOR @STASH [ "ULTRA HIRES",B0,P7168: LOAD MACHINE LANGUAGE [( 8448: ACTIVATE C128 ULTRA HIRES [2 1,"@GRAPHIC,"
\< "DO YOU WANT TO RUN TH
Lc!6"9BLQ!FLm!HL!SL!TL!WL!LC!ޓ߽N"M"W"L"L #'%"+"..2?Pڛ`` )1
11 ) ֭ ) ֍ ` "1) z" ֭) @ ֍֭ )ύ ' 0 ` 1 )
111111111111i11 $11 $180n1n1 11711m111m1108111111 $11121 $ 01 $1,10I-1L$
1 011111`L0%$)%$L 8Ii ` $iP`
%8P ` $1 .1` $N1 n1`
%%$$%$$$$%$$$$$$
2 ` @ 1 2111111111111111111111111 K#11111111 K#11111111 K#1111 1111 K#` 1 211111111 K#` 1111111 1J1 9% ǰ861 221111 2221189%281ǐ`1m11 221m1222 ӭ21m12222 ' O'121
19% 21ǐթ 22LO'11111111 2121 '11 21212121 '21212Ȑ 1212111 '2121111111 ' 2211211111 11 K#22` +2,2 2 2А +2 2 2 2 2 !2LC! \y *"2$% 1 ) 1"2`,2 t1 ) !2"#21"2 ,2 t1 ) $2 *!23&2#2 j* *
12$2 j* *)1212LN)$2 j* *12 92!2&21=12 sE DEMOS Y/N";A$ \F A$ @\P A$"Y" A$"" "PRINTERHELP" c\Z A$"N" A$"" "UH.BASE" l\d 70
?1M1 '!` L/!1 1hhL <1 ) l1 a!L!&RA TL% }!L
+T ݏ!кL"TXE ЪL = ݬ!НL2LLORC !ЈL/SURLA !
LC! !!!!!L 22,-Xj 01 #@L.#1 0 ֭)H h֩ ֭1L0 ֭ ֍` 1 2 ) 111 0)H%18111111811111111111111 1,11 $11 $11,11 $11 $11i
#6'7 #6%7[%7 l6K#7K&7 5'7 5%7 5?7%7:7 U6-7 U6 5-7 5:7?7@7%7?7#7 #7%7%7ǰ_%7 l6O$7O>7%7:7@7>7 U6-7 U6 5-7 5:7%7>7&7 5'7 5%7 5$7 $7%7 6&7'7&7'7&7 l6L3&7'7:7& 5`Ɵƞ 5`M7 L7 wM7`M7 tM7` <6,7 <6-7 <6.7 <6/7 <6%7LO5;7=7A7=7=7 =7`;7<7A7<7<7 <7`;7=7=7
=7=7A7` 6"7&7)7-"7(78`(7`(7
(7 )7,)7 6"7&7)7)7
"7I-"7"7 M;N; 7. O;P; 7 I;J; = t,`K;L; Y;: f: fM;N; Y;: fI;J; Y;: fO;P; Y;: f: c ?; f: c B; f :U;V;
; fW;X; ; fQ;R; ; fS;T; ; f: ]: c l
; ]&; c : f:J::11::11: c t;1:1:: c t;1:1: K#8/:: c t;::::: c t;:::::::::: ]: c : fL8K;FL;AhMM;:MN;3::11::11::/2/2
>92>A2>I2>Q2>Y2>a2>i2>q2>y2>2>2>2>2>2>2>2&2ƈЩ &2!2'2 '2*9212 2%212M(2-2)2 * 0M-2 * 0iP-2%2Ů*28項 **2 0 2i 2 2 *'2&2&2!2L9)L9( @`ɀ8@`ɠH(`H.2 0.2h`02+2 t02` 2 22Ȍ2 ) 2 + LP+0 + + t + +i槥2` , ` , ` 11i1i 01 21 2 1 ) 111 0111 02222 2 _- 2 _-i22 0 0 _- 2
2 22iP22 28` w` i 20LC!i2 1111 02222 . 2 . 2 :%) i1 /1 1 1 11L.1 11111 1 1 /L /11L.1 q/11" q/11 0L4/1ש 1 q/1 q/ 01L4/ `hh L0211 1 1 102` 6 h 1` < ,211
&
&m11em1m1`1Jn1Jn1Jn1112`111 11) 1111-1*11111.1J1m111m11N11Ǯ11` 11 11 11 11` @ %7 (7 Q3B 27 Q3< 37 Q3> 47 57 Q34 67 77 87 97L]3272727( F3 F3L]32727ʈ` = t,` ) :7;7<7=7 l6`%7>7?7@7 5 5&7'7&7'7 l6&7'7&7 #7$7&77 5'7 5%7 5 :7&7 #6'7 #6%7 #6;7
6 5%7>7 5'7 5&7L3;7 6 5%7` 5/7 5.7 5-7 5,7 O5L&5%7)07,7)17-7'7,7&707271797 61717,7-7,7-70/7
,7.7`L7 5ƯƮ`毩 5`L7 +7*7 0"7L0%7 P 1'7"7H&7N"7jN"7jN"7j"7"7hm"7*7i +7+7*7 0L0@ 2 Q;R; S;T; U;V; W;X; K;L;O;P;J;N;hM;I; 7R K;L; 7@ : c ' gI:fI:::: c ?
; ] !!; f: c B; ] !&; f&; c; ] !0; f!; c; ] !5; f0; c5; ] +; f!; c; ] !0; f&; c; ] !0; ] &; f+;!;; c!; ] : f11::11 K#` Iڢ lh ':; ] !` gf` 02 ` 02` 8` *2`*2`)2`)2`(2`(2` 2i 27 8 2 2'8 2 2 2 2i 2 2 *` 1m2m 2` 2 2 2 02O 2*m 2 2Ɛ 2 2 2L*` (08@HPX`hpxh{ n 2
2111 022
2 2 0 ֭ ֍֢ 22 0 2 ֍ 0 2iP 2
22iP22 2Ы` 22 i 203(i2 11i1i 01 2
2LC!1 22m 2222m20 ) 22 0 . 0 2
2 22iP22 2` t` 02 11 / ; ) 002L. 0 111@L{/ 02 / ; ) 002L// q/ 0 11 011 01111@L{/11111(1+2 2Ѝ 2/0 2/0 2/0 2/0 2/0!2/0"2/0/0-0.0 ,(-0.0и` P
W0 F]0 ve0@ m0 }0WALRUSSOFTWAREPRESENTSC128 ULTRA HIRES(C)1985 WALRUSOFT ֍ L0 ֭L0H hL0, ` 0
&
&
&
& @ ` &7'7
@@
BASIC PROGRAM SETUP 6@ %: ENABLE 2 MH MODE j@ 47,0:48,132:: SET UP 32K BUFFER FOR @STASH @( @,6,0: GOTO ULTRA HIRES SCREEN (640 X 200) AND SET COLORS BG,FG @2 @,0: CLEAR ULTRA HIRES SCREEN @< 1,"@GRAPHIC,0," AF "COMPUTER F 20:AD(0)MC: 770:MCAD AB @ ,MC,320,80,310,110:AD(1)MC:770:MCAD VB @,0,0,639,199,1 yB YH019910:@,0,YH,20,YH,1: B XH063920:@,XH,199,XH,190,1: B X0:Y199:CT0 B MAKE FIRST LARGE GRAPH B X639 B OXX:OYY (C DX((1) ),10,10: MAKE BLANK WINDOW *D^@,10,10,319,129,1 JDh@,40000,16,105,3,2,"ALES" [DrCX160:CY65 qD|@,1,CX,CY,120,48 D@,CX,CY,CX30,CY46,1 D@,CX,CY,CX30,CY46,1 D@,CX,CY,CX20,CY47,1 D@,CX,CY,CX120,CY,1 D@,7168,16,35,1,0," M
SAVE SECOND GRAPH 4F@ ,MC,10,10,310,120:AD(3)MC: 770:MCAD VF SAVE AREA UNDER THIRD GRAPH F @ ,MC,320,80,310,110:AD(4)MC:770:MCAD F& F0 MAKE THIRD GRAPH F:@!,AD(1),320,80: MAKE BLANK WINDOW FD@,320,80,629,189,1 FNX324:YB18 L!LP7DLRj `6>@>'>*>)> =HiPȪ'>7>h.>0` 2d K =HiPȪ'>7>h.>0` 2d RESTORE AREA UNDER SECOND GRAPH &H@!,AD(2),10,10 JH@,35000,16,50,13,13,"GRAPHS" PH H GOTO TEXT MODE, PRINT STATUS AND END PROGRAM H "T.CUBE HAD(250)(251)2561: 0: MAKE BLANK WINDOW FD@,320,80,629,189,1 FNX324:YB18@ @
%: ENABLE 2 MH MODE P@ 47,0:48,204:: SET UP 50K BUFFER FOR @STASH W@ % i@ VO$"V8":MC0 @( @,0,15:@,0: ENABLE ULTRA HIRES 640 X 200 AND CLEAR SCREEN @2 350: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERROR A< K),250,65: ,B K32 1 1:@!,A(K),250,65: 2B 8>7><>&> = ) = )>*>P(>)>H*>H =)>H*>H = =h*>h*>)>(>ެ6>@>P.> />J .>./>hhm.>)>m/>*>&>М `,>->->,> 0 0,>->` 2,78 C" 360 C,XX155 C6 C@ &CJ QCT GOTO TEXT MODE, PRINT STATUS AND END cC^ "T.COMMANDS ChA(IJ)MC:MC(250)(251)2561: NEXT AVAILABLE ADDRESS Cr H COMMAND A WQ110 A K1 32:@!,A(K),250,65: B K17 32:@!,A( @ @ @ @
? x ?
?@
= ? ?? |?
A(32)
AF 180 .AK "COMPUTER FONT",B0,P35000 YAP @,0: BEGINNING OF ANIMATION ROUTINE jAd @,1,"STARS" ~An @!,A(0),250,65 Ax 1 A BLITTER ANIMATION USING THE @FETCH COMMAND A WQ110 A K1 32:@!,A(K),250,65: B K17 32:@!,A(
$
?
?
ߓ
9 ? @
>~
#
@
@ < @
|y@ @
s
3 d y `
x
= y
?
|
Ǟ _ @ ?
y t @ @ @ 8 @ / 9 < %
@ 3
@ <
< ` 3
` p $ I 0 ` 9 0
H
H gp 2* $
$ 0 lf x
h
$ ; ? 6 '
h
" 3p
?
@ L
$ 2 ݜ s
H
" _@ 0
] 8 S0
$
? _
݀ ;@
&@ 8 @ À
L 0
7` , ~@
0 F @
0
D(
3>
1
H(
33 ǀx
@ - " (` 3 8
ʠ > #$4 3 0 @ X
p N p ' ; ` 4p
,`x 7 6`
D ~ y ! ' ` ' 3 N ~
>
8 ~ } s # G | px @_ < o ~ G
? 9
_
p ~
D`
? ? Q | @
? O| ? ? ? @ ? ?0?
B p <= ?a ?
O0 p ? ?? A 9 $ > ;| x # ` x p @ @ @ @ P % % c
̀14
' +
HH
p3: &lx
p
~C |x` B '
0?
p
) Ӏ
c~ 5ǀ
g@ 8 N a
x @
3 0 0 8
'
0?
p
) Ӏ
c~ 5ǀ
g@ 8 N a
x @
3 0 0 8 g p
p 3p
@ @ @ < x @ @
$ ~ ? ~
x x # ?0?
! @ & o 7 U ? ^ 1 @ @ ) @ @ E o @ S V & @ P : + < @ a X A @
@ 4 @ @ , : @ ,
2 < U + 4 O * > 4 " @ / q @ E M P = , @ M
5 F @ @ D 3 G @ B d N 6 7 A + ? @ F
ڨaR"BE9bR"%(0I]III cX cbR <~L0`00003333 1Fy|d8&!^aR"BE9bR"%(0I]III cX cbR <~L0`00003333 ~ff ~`` ~`` ~f` fff 8888 x ``` II ~ff ~ff ~ff ~bb 008888 fff fff8 III 8 888 <00000< `0 < < <~ 0 8 8 ~ff ~`` ~`` ~f` fff 8888 x ``` II ~ff ~ff ~ff ~bb 008888 fff fff8 III 8 888 <00000< `0 < < <~ 0۬|| <>f; `|fff :d`b< 6nff; >d~`< 2L``` ;ff6<`|fff 8< L8`lpJ p````h l vff ffx >||0002\ fl fx0 II6 h09 fn6x B|0<00000< 0|0b < < <~ 0 0 0|| 6f~ff fFlff :l`f< x (H| #&gfN7 ffx0 IIII[l h08M #fk6D8> 0 00< 0|0b < < <~ 0 Q N # @ v 2 < 9 h ~ @ C ? _ @ o . ! ~ * = j 3 } L " @ & ; # _
i ) d ' & @ 6 ! D 0 + @ f % & > % @ O @ @ @ B J ( : g
Z
@ 1 I 8 @ - k 4 C 4 7 c R % @ O @ @ @ B J ( : g 0 fff fffff >`<| bf 0fF f< 00`0 ~ ~ p p ff; |ffff >f``b< >ffff; f|0>f||ffff 8~ l8nh|lf 8< ~ vfff w;000x >`< B| ~ ffff; bb48 mv6" b<8L fff~| f 3 <00000< 00` < < <~ 00 888 8 fff fffff ~@~~ bf 0fF 888 |dd 00`0 ~ ~ p p 0 fff fffff >`<| bf 0fF `<| bf 0fF x`s| 000 0 0 f<f< 00`0 ~ ~ p p |
1111 K#` 1 211111111 K#` 1111111 1J1 9% ǰ861 221111 2221189%281ǐ`1m11 221m1222 ӭ21m12222 ' O'121 01 #@L.#1 0 ֭)H h֩ ֭1L0 ֭ ֍` 1 2 ) 111 0)H%18111111811111111111111 1,11 $11 $11,11 $11 $11i /2/2
>92>A2>I2>Q2>Y2>a2>i2>q2>y2>2>2>2>2>2>2>2&2ƈЩ &2!2'2 '2*9212 2%212M(2-2)2 * 0M-2 * 0iP-2%2Ů*28項 **2 0 2i 2 2 *'2&2&2!2L9)L9( @`ɀ8@`ɠ
2
2111 022
2 2 0 ֭ ֍֢ 22 0 2 ֍ 0 2iP 2
22iP22 2Ы` 22 i 203(i2 11i1i 01 2
2LC!1 22m 2222m20 )
19% 21ǐթ 22LO'11111111 2121 '11 21212121 '21212Ȑ 1212111 '2121111111 ' 2211211111 11 K#22` +2,2 2 88,L ff|ff ?ca``c> fcccf 10>01 fbx`` ~~ cccc ~~ f| dhxlf ```bf w[[[K rZZNF bp<F| < bbbbb< bbb44 nf b4,F b4< ~F 0b~ 00< 00` < < <~ 0111111111111i11 $11 $180n1n1 11711m111m1108111111 $11121 $ 01 $1,10I-1L$
1 011111`L0%$)%$L 8Ii ` $iP`
%8P ?1M1 '!` L/!1 1hhL <1 ) l1 a!L!&RA TL% }!L
+T ݏ!кL"TXE ЪL = ݬ!НL2LLORC !ЈL/SURLA !
LC! !!!!!L 22,-Xj 8` *2`*2`)2`)2`(2`(2` 2i 27 8 2 2'8 2 2 2 2i 2 2 *` 1m2m 2` 2 2 2 02O 2*m 2 2Ɛ 2 2 2L*` (08@HPX`hpxh{ n
2А +2 2 2 2 2 !2LC! \y *"2$% 1 ) 1"2`,2 t1 ) !2"#21"2 ,2 t1 ) $2 *!23&2#2 j* *
12$2 j* *)1212LN)$2 j* *12 92!2&21=12111 02222 2 _- 2 _-i22 0 0 _- 2
2 22iP22 28` w` i 20LC!i2 1111 02222 . 2 . 2 :%) i` $1 .1` $N1 n1`
%%$$%$$$$%$$$$$$
2 ` @ 1 2111111111111111111111111 K#11111111 K#11111111 K#1111Lc!6"9BLQ!FLm!HL!SL!TL!WL!LC!ޓ߽N"M"W"L"L #'%"+"..2?Pڛ`` )1
11 ) ֭ ) ֍ ` "1) z" ֭) @ ֍֭ )ύ ' 0 ` 1 ) H(`H.2 0.2h`02+2 t02` 2 22Ȍ2 ) 2 + LP+0 + + t + +i槥2` , ` , ` 11i1i 01 21 2 1 ) 111 0
11
&
&m11em1m1`1Jn1Jn1Jn1112`111 11) 1111-1*11111.1J1m111m11N11Ǯ11` 11 11 11 11` @ 22 0 . 0 2
2 22iP22 2` t` 02 11 / ; ) 002L. 0 111@L{/ 02 / ; ) 002L// q/ 0 11 011 01111@L{/11111(1 #6'7 #6%7[%7 l6K#7K&7 5'7 5%7 5?7%7:7 U6-7 U6 5-7 5:7?7@7%7?7#7 #7%7%7ǰ_%7 l6O$7O>7%7:7@7>7 U6-7 U6 5-7 5:7%7>7&7 5'7 5%7 5$7 $7%7 6&7'7&7'7&7 l6L3&7'7:7& +7*7 0"7L0%7 P 1'7"7H&7N"7jN"7jN"7j"7"7hm"7*7i +7+7*7 0L0@ 2 Q;R; S;T; U;V; W;X; K;L;O;P;J;N;hM;I; 7R K;L; 7@
; ]&; c : f:J::11::11: c t;1:1:: c t;1:1: K#8/:: c t;::::: c t;:::::::::: ]: c : fL8K;FL;AhMM;:MN;3::11::11:: ` "!1 z"` mʎ=== = == == ====P=== 0 0 α=ή====iP==ΰ=ί=ж L L =) (`G160;80;2;2 12 @ ` &7'7
1 /1 1 1 11L.1 11111 1 1 /L /11L.1 q/11" q/11 0L4/1ש 1 q/1 q/ 01L4/ `hh L0211 1 1 102` 6 h 1` < ,27 5'7 5%7 5 :7&7 #6'7 #6%7 #6;7
6 5%7>7 5'7 5&7L3;7 6 5%7` 5/7 5.7 5-7 5,7 O5L&5%7)07,7)17-7'7,7&707271797 61717,7-7,7-70/7
,7.7`L7 5ƯƮ`毩 5`L7 M;N; 7. O;P; 7 I;J; = t,`K;L; Y;: f: fM;N; Y;: fI;J; Y;: fO;P; Y;: f: c ?; f: c B; f :U;V;
; fW;X; ; fQ;R; ; fS;T; ; f: ]: c l11::11 K#` Iڢ lh ':; ] !` gf` 02 ` 02` 34 ` = `
1L .>j `6>@>'>*>)> =HiPȪ'>7>h.>0` 2d %7 (7 Q3B 27 Q3< 37 Q3> 47 57 Q34 67 77 87 97L]3272727( F3 F3L]32727ʈ` = t,` ) :7;7<7=7 l6`%7>7?7@7 5 5&7'7&7'7 l6&7'7&7 #7$7&7 +2 2Ѝ 2/0 2/0 2/0 2/0 2/0!2/0"2/0/0-0.0 ,(-0.0и` P
W0 F]0 ve0@ m0 }0WALRUSSOFTWAREPRESENTSC128 ULTRA HIRES(C)1985 WALRUSOFT ֍ L0 ֭L0H hL0, ` 0
&
&
&
&5`Ɵƞ 5`M7 L7 wM7`M7 tM7` <6,7 <6-7 <6.7 <6/7 <6%7LO5;7=7A7=7=7 =7`;7<7A7<7<7 <7`;7=7=7
=7=7A7` 6"7&7)7-"7(78`(7`(7
(7 )7,)7 6"7&7)7)7
"7I-"7"7: c ' gI:fI:::: c ?
; ] !!; f: c B; ] !&; f&; c; ] !0; f!; c; ] !5; f0; c5; ] +; f!; c; ] !0; f&; c; ] !0; ] &; f+;!;; c!; ] : f L!LP7DLR> RIGHT ARROW QF>@,500,145,500,155,1:@,500,155,530,155,1:@,500,145,530,145,1 FH@,530,145,530,140,1:@,530,155,530,160,1 FR@,530,160,550,150,1:@,530,140,550,150,1 F\@,520,150,1 Fe << LEFT ARROW Gf@,460,145,460,155,1:@,43 K =HiPȪ'>7>h.>0` 2d 10,165,480,173,1 I@,467,156,1 (I@,250,120,580,199,1 RI @,55296,260,123,1,1,"NSTRUCTIONS" I @,55296,260,133,1,1,"SE CURSOR KEYS >>>" I @,55296,260,144,1,1," TO HOME CURSOR" I$ @,55296,260,155,1,1," TO BLANK GRID"
J. @,55296,2 2:DS,DS$: %An #2,A$:A(A$):20002,A AAx #2,A$:A(A$):20003,A HA 2 `A ""NF$,B0,P20004 yA EF(174)(175)256 A DS0 DS,DS$: A NF$(NF$,12)".NEW":"RITING ";NF$;" ..." A 20000,16:20001,CF A ""NF$,B0,P20000 P0EF
: A 10000 A % )A( T18:Z:N(T)Z: CA- 128,64,32,16,8,4,2,1 cA2 T18:E,F:X(T)E:Y(T)F: A7 56,23,75,37,94,51,108,65,122,79,140,93,155,107,169,121 A< P(8,8) Ac : Ad DRAW GRID Ae : Ai @DRWMOD,0 An @,14,1 Ax @,0 B} @WALRUS:T1A$""6000:7000:410 *DA$(32)5040:440 BDA$"P"A$""8000 ]DA$"Q"A$""@TEXT: {DA$"V"A$""3000:440 DA$"H"A$""4200:440 DA$" "5000:600 DA$""5010:600 DA$""5020:600 DA$""5030:600 0,155,460,155,1:@,430,145,460,145,1 DGp@,430,145,430,140,1:@,430,155,430,160,1 rGz@,430,160,410,150,1:@,430,140,410,150,1 G@,420,150,1 G ^^ UP ARROW G@,465,145,495,145,1 G@,465,145,465,135,1:@,495,145,495,135,1 H@,465,135,450 NUMBERS K& T18 L+ P$(PC(T)):P(P$):P$(P$,P1) 8L- (P$)1P$"00"P$ OL. (P$)2P$"0"P$ nL0 : @,55296,10,Y(T),1,1,P$ tL: L? @,220,55,115,50,420,55 LA @,420,55,530,105,1 LD @,421,56,1,PC(1),PC(2),PC(3),PC(4),PC(5),PC(6),PC(7),PC(60,166,1,1," TO VIEW PATTERN" DJ8 @,55296,260,177,1,1," TO QUIT TO SET/UNSET" uJ= @,55296,260,188,1,1," FOR MORE HELP" {JB : JL @,55296,25,150,2,2,"AINT DITOR" JV @,55296,60,170,1,1,"BY ARK PRUIELL" J` @,55296,60,180,1,1," Q B 1:"ALL DONE!": "NTER PICTURE NAME TO CONVERT"; C@( NF$ l@2 "S THE FILE COMPRESSED (Y/N)? "; @< CF255: CF$: CF$"Y" CF$ "" CF1 @F CF$"N" CF$"" CF0 @P CF255 60 @Z CF$:1,8,15 Ad 2,8,2,NF$",P,R": DS0 1500: B @,14,14:@,0 +B 4000:@,0:@,14,1 BB @,50,20,190,132,1 SB T3413214 gB @,50,T,190,T,1 mB |B F1F0: B : B DRAW NEW @PAINT GRAPHIC DISPLAY BOX B : B @,400,50,550,110,1 B @,420,55,530,105,1 B+: C, DISPLAY GRIDN440 9EX@,55296,X(A),Y(B),1,2," ":@,55296,X(A),Y(B),1,2,"*" EbP(AO,BQ)1@,55296,X(AO),Y(BQ),1,2," ":@,55296,X(AO),Y(BQ),1,2," ":440 El@,55296,X(AO),Y(BQ),1,2," ":@,55296,X(AO),Y(BQ),1,2,"O":440 E3: E4 INSTRUCTIONS ,135,1:@,495,135,510,135,1 9H@,450,135,480,127,1:@,510,135,480,127,1 JH@,470,140,1 [H DOWN ARROW tH@,465,155,495,155,1 H@,465,155,465,165,1:@,495,155,495,165,1 H@,465,165,450,165,1:@,495,165,510,165,1 H@,450,165,480,173,1:@,58) LN T18:PC(T)0: MX MA$:@TEXT: 30004999: 2M HELP SCREEN JM@,170,62,470,137,1 ZM@,171,63,0 {M@,55296,310,65,1,1,"ELP" M@,55296,180,77,1,1,"SE '' TO PRINT OUT NEW PAINT " M@,55296,180,87,1,1,"GRAPHICS. OU WILL
UIRRELY ON" Kj @,55296,65,190,1,2,"-LINK" K #K : AK VIEW PATTERN SUBROUTINE GK : fK ADD PARAMETERS FOR PAINT lK : wK D18 K : C18 K : P(C,D)1PC(D)PC(D)N(C) K : K K
F1F0: K @,5,20,45,132,1 K PRINT@A@
********************************************************* @ * HIRES HELPER * @ * * A( * HIRES DEMO PROGRAM USING ULTRA HIRES UTILITY T ERROR !C "COMPUTER FONT",B0,P45000 >C "ROMAN FONT",B0,P40000 JC @,15,2 wC @,45000,120,10,2,3,"DARN GOOD SOFTWARE" C @,40000,175,30,1,1,"RESENTS A DEMO PROGRAM USING" C @,40000,215,46,1,1,"ULTRA HIRES UTILITY DEVELOPED BY" ,X(A),Y(B),1,2," ":@,55296,X(A),Y(B),1,2,"O" Q410 &Qp CLEAR GRID AQu@,200,0,145,115,49,19 NQzF1:130 [QF1:300 aQ tQX CLEAR POINTS QbT18 Ql: U18 Qv: P(T,U)0 Q: Q Q Q@ PRINT PAINT GRAPHIC QJ @ ,AD,399,4 NEED TO PROVIDE" -N@,55296,180,97,1,1,"THE SECONDARY ADDRESS FOR THE " hN@,55296,180,107,1,1,"PRINTER. E SURE YOU ARE USING" N@,55296,180,117,1,1,"LTRA IRES 1.1!! " N@,55296,180,127,1,1," IT A KEY TO CONTINUE" O @,190,138,4
RACTIVE BAR CHART DEMO ** $F@TEXT:@FT,1,40000 lF 16)(2)" - "(130) F 0,0,5:"NTER NAME OF GRAPH. (UP TO 35 CHARACTERS)" F 0,0,7: GN$ F (GN$)35 0,0,7: (27)"Q": 1040 5G$ 0,0,9 0,40,15: (27)"Q": 1160 XI 0,0,17:"NTER THE NAME OF THIRD ITEM ON CHART. (UP TO 20 CHARACTERS)" kI 0,0,19: I3$ I (I3$)20 0,0,19: (27)"Q": 1190 I 0,40,17:"NTER VALUE OF ITEM #3 (1-100)." I 0,40,19: V3$ JV3(V3$) * AA2 * * A< * DEVELOPED BY: D. G. SHANNON DARN GOOD SOFTWARE * AF * 06/14/86 QLINK PUBLIC DOMAIN * BP ****************************************************
!D @,53248,155,62,1,3,"WALRUS SOFTWARE" JD @,200,92,450,191,1:@,0,0,638,199,1 sD @,205,95,445,188,1:@,5,3,633,196,1 D @,40000,210,100,1,1,"1. NTERACTIVE AR-HART EMO" D @,40000,210,116,1,1,"2. LINK HARDWARE POLL" E @,40000,210,132,1,9,155,70 QT @,0 Q^ @!,AD,0,0
Rh F1:3020 Rm T$"":P$"" %Rr T18 JR| P$(PC(T)):P(P$):P$(P$,P1) bR (P$)1P$"00"P$ yR (P$)2P$"0"P$ R T$T$P$"," R R T$(T$,(T$)1) R @,55296,170,35,1,1,T$ R @,55296,0,90,1,1,"N80,142,1:@,191,139,1:@,471,64,480,142,1:@,472,65,1 /O@ ,0,170,62,315,83 JOAD(250)(251)2561 PO" kOh BRING UP HELP SCREEN Or@ ,AD,170,62,315,90 O|@!,0,170,62 OA$ O@!,AD,170,62 O OA$:@TEXT:40004999: OA18A:"NTER THE NAME OF FIRST ITEM ON CHART. (UP TO 20 CHARACTERS)" HG. 0,0,11: I1$ vG8 (I1$)20 0,0,11: (27)"Q": 1070 GB 0,40,9:"NTER VALUE OF ITEM #1 (1-100)." GL 0,40,11: V1$ GVV1(V1$): V11 V1100 0,40,11: (27)"Q": V31 V3100 0,40,19: (27)"Q": 1220 jJ 0,0,21:"NTER THE NAME OF FOURTH ITEM ON CHART. (UP TO 20 CHARACTERS)" }J 0,0,23: I4$ J (I4$)20 0,0,23: (27)"Q": 1250 J 0,40,21:"NTER VALUE OF ITEM #4 (1-100)." J 0,40,23***** BZ BASIC PROGRAM SETUP >Bd (14):%: ENABLE 2 MH MODE qBn 47,0:48,68:: SET UP 16K BUFFER FOR @STASH Bx @,0:@,0,2: CLR AND GOTO ULTRA HIRES SCREEN, SET COLORS BG,FG C 6030: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIS1,"3. ELECTIVE EMOS" :E@,40000,210,148,1,1,"4. OLOR CODE LIST" eE@,40000,210,164,1,1,"5. OMMAND LIST" E@,40000,210,180,1,1,"6. ND ROGRAM" E" A$: A$"" 290 E,A(A$): A6 290 E6 A 1000,2000,3000,4000,5000,6000
F ** INTE TER SECONDARY ADDRESS FOR PRINTER:" S A$:(A$)48(A$)578125 9S @,55296,300,90,1,1,A$ RS @,0,115,400,10,0,90 _S SA(A$) lS @H,1,SA zS @,0:130 S'@TEXT:(ER): P(T,U)0 Q: Q Q Q@ PRINT PAINT GRAPHIC QJ @ ,AD,399,48: OAA1:O1:Q0: PA11A1: PAA1:O1:Q0: .PB18B8: CPBB1:Q1:O0: TPB11B1: hPBB1:Q1:O0: PP(A,B)1P(A,B)0::P(A,B)1: QP(A,B)1@,55296,X(A),Y(B),1,2," ":@,55296,X(A),Y(B),1,2," ":@,55296: 1100 FH` 0,0,13:"NTER THE NAME OF SECOND ITEM ON CHART. (UP TO 20 CHARACTERS)" YHj 0,0,15: I2$ Ht (I2$)20 0,0,15: (27)"Q": 1130 H~ 0,40,13:"NTER VALUE OF ITEM #2 (1-100)." H 0,40,15: V2$ IV2(V2$): V21 V2100 : V4$ -K
V4(V4$): V41 V4100 0,40,23: (27)"Q": 1280 OK@,0:@,15,3:@,0,0,638,189,1 jK C(40(GN$))2:XC16 K(@,40000,X,16,2,2,GN$ K2@,7168,68,180,1,0,I1$:@,7168,228,180,1,0,I2$:@,7168,388,180,1,0,I3$:@,7168,548,180,1,0,I4$ XF
@,7168,356,180,1,0,I4$:@,7168,452,180,1,0,I5$:@,7168,548,180,1,0,I6$ NXP
@,40000,24,170,1,1," 0%":@,48,174,639,174,1 XZ
@,40000,24,160,1,1,"10%":@,48,164,639,164,1 Xd
@,40000,24,150,1,1,"20%":@,48,154,639,154,1 Xn
@,40000,24,140,1,1,"30 N$"12. O YOU OWN A PRINTER ?" U I1$"ES":I2$"O" "U V188.18:V211.81 -U 2580 ]U GN$"13. HAT TYPE OF PRINTER DO YOU OWN ?" U I1$"OMMODORE":I2$"KIDATA":I3$"PSON":I4$"TAR":I5$"ANASONIC":I6$"THER" U V132.75:V214.16:V38.34:V4 82:V43.63:V51.35:V636.69:NC6 R 2580 &RGN$"6. OES YOUR MODEM ?" hRI1$"UTO IAL":I2$"ANUAL IAL":I3$"":I4$"":I5$"":I6$"" RV193.32:V26.67:V30:V40:V50:V60:NC2 R 2580 RGN$"7. HAT IS YOUR MODEMS BAUD RATE ?" RI1$"30 1. HAT TYPE OF COMPUTER ARE YOU USING?" FOI1$"-64":I2$"-128":I3$"-64":I4$"":I5$"":I6$"" xOV148.27:V249.44:V32.28:V40:V50:V60:NC3 O 2580 OGN$"2. HAT TYPE OF DISK DRIVE ARE YOU USING?" O I1$"1541":I2$"1571":I3$"THER" P
L<@,40000,32,170,1,1," 0":@,48,174,639,174,1 ILF@,40000,32,160,1,1,"10":@,48,164,639,164,1 zLP@,40000,32,150,1,1,"20":@,48,154,639,154,1 LZ@,40000,32,140,1,1,"30":@,48,144,639,144,1 Ld@,40000,32,130,1,1,"40":@,48,134,639,134,1
Mn@,40 0 Z
@BAR,444,174,30,5,V5,1: NC5 2800 [
@BAR,540,174,30,5,V6,1 C[
@,45000,224,191,1,1,"PRESS RETURN TO CONTINUE" [[
A$: A$"" 2810 f[ @,0: [ ** SELECTIVE DEMO ** [ % [ @,15,0:@,0 [ @,45000,112,0,2,2,"ULTRA HIRES SELECTIVE %":@,48,144,639,144,1 Yx
@,40000,24,130,1,1,"40%":@,48,134,639,134,1 HY
@,40000,24,120,1,1,"50%":@,48,124,639,124,1 zY
@,40000,24,110,1,1,"60%":@,48,114,639,114,1 Y
@,40000,24,100,1,1,"70%":@,48,104,639,104,1 Y
@,40000,24,90,1,1,"80%":@
20.22:V55.11:V619.42:NC6 U 2580 0V GN$"14. OW LONG HAVE YOU OWNED YOUR COMPUTER ?" V I1$"ONTH OR LESS":I2$"6-12":I3$"12-18":I4$"18-24":I5$"ORE THAN 24":I6$"" V V13.93:V249.6:V312.13:V410.45:V523.86:V60:NC5 V
2580 V
@,0 0":I2$"1200":I3$"OTH" SV167.44:V28.41:V324.13:NC3 S 2580 KSGN$"8. O ACCESS SO YOU DIAL ?" }SI1$"OCAL ACCESS":I2$"ONG DISTANCE":I3$"" S V190.33:V29.66:V30:NC2 S 2580 S GN$"9. HEN YOU DIAL, DO YOU USE ?" S$ I1$ V154.64:V242.35:V33.01:NC3 P 2580 9P*GN$"3. OW MANY DISK DRIVES DO YOU OWN?" ]P4I1$"1":I2$"2":I3$"3 OR MORE" P>V164.51:V225.54:V39.93:NC3 PH 2580 PRGN$"4. HAT TYPE OF MONITOR DO YOU OWN?" Q\I1$"1701":I2$"1702":I3$"1902" 000,32,120,1,1,"50":@,48,124,639,124,1 >Mx@,40000,32,110,1,1,"60":@,48,114,639,114,1 oM@,40000,32,100,1,1,"70":@,48,104,639,104,1 M@,40000,32,90,1,1,"80":@,48,94,639,94,1 M@,40000,32,80,1,1,"90":@,48,84,639,84,1 M@,40000,24,70,1,1," DEMOS " [ @,40000,184,48,1,2,"1. EXT XAMPLES" %\ @,40000,184,56,1,2,"2. OIRE ATTERN" N\ @,40000,184,64,1,2,"3. 3 AR EMO" v\ @,40000,184,72,1,2,"4. IRCLE EMO \ @,40000,184,80,1,2,"5. OTATING UBE" \ @,40000,184,88,1,2,"6. RAPHS ,48,94,639,94,1
Z
@,40000,24,80,1,1,"90%":@,48,84,639,84,1 :Z
@,40000,16,70,1,1,"100%":@,48,74,639,74,1 yZ
@BAR,60,174,30,5,V1,1:@BAR,156,174,30,5,V2,1: NC2 2800 Z
@BAR,252,174,30,5,V3,1: NC3 2800 Z
@BAR,348,174,30,5,V4,1: NC4 280 : 160 V
@,0:@,15,3:@,0,0,638,189,1 (W
@,40000,160,8,2,2,"- " jW(
@,40000,160,32,1,1,"ASED ON RESPONSES BY 3683 USERS." W2
@,40000,16,48,1,1,GN$ W<
@,7168,68,180,1,0,I1$:@,7168,164,180,1,0,I2$:@,7168,260,180,1,0,I3$ "ONE DIALING":I2$"ULSE DIALING" T. V156.99:V243 T8 2580 ?TB GN$"10. O YOU OWN A JOYSTICK ?" VTL I1$"ES":I2$"O" kTV V196.11:V23.88 vT` 2580 Tj GN$"11. O YOU OWN A MOUSE ?" Tt I1$"ES":I2$"O" T~ V110.2:V289.79 T 2580 T G :I4$"OLOR ":I5$" ":I6$"THER" @QfV14.2:V221.99:V319.73:V424.92:V57.3:V621.83:NC6 KQp 2580 wQzGN$"5. HAT TYPE OF MODEM DO YOU OWN?" QI1$"1670":I2$"1660":I3$"1650":I4$"1600":I5$"ES ":I6$"THER" QV124.97:V229.54:V33. 100":@,48,74,639,74,1 ]N@BAR,60,174,60,20,V1,1:@BAR,220,174,60,20,V2,1:@BAR,380,174,60,20,V3,1:@BAR,540,174,60,20,V4,1 N@,45000,224,191,1,1,"PRESS RETURN TO CONTINUE" N A$: A$"" 1470 N@,0: 160 N ** QLINK HARDWARE POLL **
OGN$" EMO" \ @,40000,184,96,1,2,"7. ING IGHTER" #]! @,40000,184,104,1,2,"8. ETURN TO ENU" W]& @,45000,224,191,1,1,"PLEASE ENTER YOUR CHOICE" o]0 A$: A$"" 3120 ]: A(A$): A8 3120 ]? A8 @,0: 160 ]D A 3150,3160,3170,3180,3190,3 -128 LTRA I-ES RAPHICS, ART
AGAZINE, AY 1986
Y AVID ARUS, EN RENCH AND OUIS ALLACE
NCREASE THE FLEXIBILITY OF YOUR EXISTING -128 LTRA I-ES PROGRAM WITH THIS SET OF POWERFUL AND SWIFT GRAPHICS COMMANDS.
T IGHT
-12 Pfz@TEXT: f GOTO TEXT MODE, PRINT STATUS AND END PROGRAM f@TEXT:: 60,1,1," UNDERLINE UNDERLINE " en@,40000,0,168,1,1," " ex@,40000,0,176,1,1," c2@,40000,0,120,1,1,"@DRWMODE,MODE (0-1)" d<@,40000,0,128,1,1,"@BAR,X,Y,DX,DY,HEIGHT,MODE (0-1)" idF@,40000,0,136,1,1,"@SAVE,COMPRESS FLAG (0,1),"(34)"FILENAME"(34) dP@,40000,0,144,1,1,"@LOAD,COMPRESS FLAG (0,1),"(34)"FILENAME"(34) A$: A$"" 4110 `@,0: 160 ` ** COMMANDS ** `% a@,15,0:@,0 Da@,45000,112,0,2,2,"ULTRA HIRES COMMAND SUMMARY " ka@,40000,0,16,1,1,"@GRAPHIC,," a@,40000,0,24,1,1,"@CLR,VALUE" a@,40000,0,32,1,1,"@TEXT" a@,40000,0,
200,3210 ]N "T.TEXT" ]X "T.MOIRE" ]b "T.BAR"
^l "T.CIRCLE" ^v "T.CUBE" *^ "T.GRAPHS" =^ "T.STARWARS" Y^ ** COLOR CODE LIST ** ^@TEXT:@FT,1,40000: 26)(2)" "(130) ^0,0,5: 17)"1. ARK REY , WE WILL EXPAND ON THAT TOPIC WITH SEVERAL NEW ADDITIONS TO THE COMMAND SET.
-128 LTRA I-ES IS A LANGUAGE THAT WEDGES ITSELF INTO MEMORY SO THAT ITS COMMANDS ARE EXECUTED ALONG WITH THOSE OF THE NORMAL ASIC 7.0. ITHOUT SLOWING DOWN NORMAL AS 8(IN -128 MODE)
ISTING 1. . PROGRAM.
ISTING 2. 1.1
ISTING 3. .
DDRESS ALL AUTHOR CORRESPONDENCE TO OUIS ALLACE, 6124 11TH LACE, AINESVILLE, 32607 OR AVID ARUS, 2508 65TH ERRACE, AINESVILLE, 32
S TO A MACHINE LANGUAGE SUBROUTINE THAT CHECKS TO SEE IF THE ERROR IS TRULY AN ERROR, OR ONE OF OUR NEW COMMANDS. F THE LATTER, CONTROL IS PASSED TO THE APPROPRIATE LTRA I-ES MODULE; IF NOT, IT JUMPS TO THE NORMAL YNTAX RROR SUBROUTINE.
HE ADV dZ@,40000,0,152,1,1,"@CHAR,FONT ADDRESS,X,Y,HT,WIDTH,STRING" >ed@,40000,0,160,1,1," UNDERLINE UNDERLINE " en@,40000,0,168,1,1," " ex@,40000,0,176,1,1," 40,1,1,"@FONT,#(1-2),ADDRESS" b@,40000,0,48,1,1,"@DOT,X,Y,MODE (0-1)" 4b@,40000,0,56,1,1,"@DRAW,X1,Y1,X2,Y2,MODE" bb@,40000,0,64,1,1,"@BOX,X1,Y1,X2,Y2,MODE" b@,40000,0,72,1,1,"@CIRCLE,MODE,CX,CY,XR,YR,SA,EA,THETA,INC" b @,40000,0,80,1,1, 9. IGHT ED" %_ 17)"2. ARK LUE 10. ARK URPLE" f_ 17)"3. IGHT LUE 11. IGHT URPLE" _ 17)"4. ARK REEN 12. ROWN" _ 17)"5. IGHT REEN IC, IT ACCOMPLISHES THIS BY INTERCEPTING THE YNTAX RROR SUBROUTINE THAT ISSUES ERROR MESSAGES WHEN YOU MAKE A TYPING MISTAKE.
LL LTRA I-ES COMMANDS ARE PRECEDED BY THE @ SYMBOL, WHICH IS NOT USED BY ASIC. HEN THE -128 ASIC INTERPRETER ENCO 606.
N 'S EBRUARY 1986 ISSUE, WE ANNOUNCED THAT THE -128 WAS FULLY CAPABLE OF USING ITS 80-COLUMN MODE FOR ULTRA HIGH-RESOLUTION (640 BY 200 PIXELS) GRAPHICS. E ALSO INTRODUCED YOU TO THE -128 LTRA I-ES GRAPHICS LANGUAGE. HIS MONTH ANTAGE OF THIS WEDGE OVER OTHERS IS THAT IT ALLOWS ASIC TO RUN AT TOP SPEED AND ONLY CHECKS FOR OUR ROUTINE WHEN THEY ARE ENCOUNTERED. F YOU COMBINE THIS WITH THE AST COMMAND, WHICH OPERATES AT 2Z, YOU'LL HAVE YOUR -128 RUNNING AT FULL THROTTLE WIT " e@,40000,0,184,1,1,"@" ?f@,40000,0,191,1,1,"RINTERS SUPPORTED BY LTRA IRES (1) PSON (2) PIRIT 80 (3) LIVETTI" rf@,45000,224,16,1,1,"PRESS RETURN TO CONTINUE" f A$: A$"" 5280 f@,0: 160 fp ** END PROGRAM ** "@PAINT,X,Y,MODE,P1,P2,P3,P4,P5,P6,P7,P8" c
@,40000,0,88,1,1,"@HCOPY,SIZE (1-4),SECONDARY ADDRESS" Tc@,40000,0,96,1,1,"@STASH,BUF ADDRESS,X,Y,DX,DY" c @,40000,0,104,1,1,"@FETCH,BUF ADDRESS,X,Y" c(@,40000,0,112,1,1,"@COPY,X,Y,DX,DY,ENDX,ENDY" 13. ELLOW" ` 17)"6. ARK YAN 14. IGHT REY" S` 17)"7. IGHT YAN 15. HITE" ` 17)"8. ARK ED 16. LACK" `0,0,22: 28)" " ` UNTERS THIS IN THE CONTEXT OF A COMMAND, IT PASSES CONTROL TO THE YNTAX RROR SUBROUTINE, WHICH WOULD NORMALLY DISPLAY A SYNTAX ERROR MESSAGE AND STOP THE PROGRAM.
OWEVER, WE HAVE CHANGED THE VECTOR THAT POINTS TO THAT SUBROUTINE. NSTEAD, IT POINT H MANY NEW AND POWERFUL GRAPHICS COMMANDS.
O USE LTRA I-ES, PART 2, YOU'LL NEED A COPY OF PART 1. OU WILL THEN COMBINE ALL THE COMMANDS TO FORM AN ENHANCED VERSION -- LTRA I-ES ERSION 1.1.
HE LTRA I-ES 1.1 ROGRAMS
HREE PROGRAMS A WILL ADD THE NEW MODULES. T WILL ALSO RENAME THE ORIGINAL VERSION TO LTRA I-ES.OLD AND SAVE A NEW VERSION CALLED LTRA I-ES. LTRA I-ES 1.1 IS NOW READY FOR USE. O ACTIVATE IT, LOAD AND RUN THE LTRA I-ES OOT PROGRAM, AS YOU USED IT TO LOAD T GALLY USE THIS PROGRAM TO CREATE APPLICATIONS YOU WISH TO GIVE AWAY, YOU MUST USE THE FIFTH NEW COMMAND, @, WHICH CREATES A LOGO CREDITING THE PROGRAM'S AUTHORS. T IS YOUR LEGAL OBLIGATION TO DISPLAY THIS LOGO FOR ANY NON-PERSONAL USE. (F YOU INT U CAN ONLY HAVE TWO COLORS ON SCREEN AT ONCE, RATHER THAN THE 16 AVAILABLE IN 40-COLUMN MODE. O COMPENSATE FOR THIS LOSS OF COLOR, YOU CAN CHANGE YOUR DRAWING MODE FROM DRAW TO ERASE. HE SYNTAX IS:
@,MODE,CX,CY,XR,YR<,SA,EA,ANGLE,INCREMENT>
Y CHANGING THE INCREMENT, YOU CAN USE THE IRCLE COMMAND TO DRAW POLYGONS.
HE DEFAULTS FOR THE OPTIONAL PARAMETERS ARE: SA=0; EA=360; ANGLE=0; AND INCREMENT=8. OR MORE INFORMATION ON THE CIRCLE PARAMETERS, SEE THE -128'S SYSTEM GUIDE.
HE SECO ERS FROM 0-255 AND REPRESENT THE DECIMAL VALUE OF THE BINARY PATTERN USED IN THE FILL. OR EXAMPLE, IF YOU WANTED TO GENERATE AN INTERESTING PATCHWORK PATTERN TO FILL AN AREA, YOU WOULD USE THE FOLLOWING VALUES.
01100110 102
11001100 204
00110011 51
CCOMPANY THIS ARTICLE. EFORE RUNNING THEM, SAVE THEM TO A DISK CONTAINING BOTH THE OLD MACHINE LANGUAGE VERSION OF THE LTRA I-ES PROGRAM AND ITS OOT PROGRAM.
IRST, LOAD THE PROGRAM CALLED . (ISTING 1) AND RUN IT IN NORMAL -128 80-COLUMN
HE ORIGINAL LTRA I-ES PROGRAM.
HE FINAL PROGRAM IS CALLED . (ISTING 3). E'VE CHANGED THE ORIGINAL PICTURE-FILE FORMAT TO ALLOW UPWARD COMPATIBILITY OF LTRA I-ES PICTURES IN FUTURE APPLICATIONS PROGRAMS. ISTING 3 ALLOWS YOU TO C END TO SELL YOUR APPLICATIONS, PLEASE CONTACT THE AUTHORS ABOUT LICENSING.)
HE OMMANDS
ART 2 ADDS FIVE NEW COMMANDS THAT GIVE PROFESSIONAL-LEVEL GRAPHICS POWER TO THE ALREADY-POWERFUL LTRA I-ES COMMAND SET. OMBINED WITH THE -128'S LARGE MEM ODE IS 0 FOR ERASE AND 1 FOR DRAW; CX IS THE X COORDINATE OF THE CENTER (0-639); CY IS THE Y COORDINATE OF THE CENTER (0-199); XR IS THE X RADIUS (1-319); YR IS THE Y RADIUS (1-100). HE PARAMETERS WITHIN THE BRACKETS, <>, ARE OPTIONAL. HE SA IS THE STA ND NEW COMMAND IS CALLED @. NLIKE THE 40-COLUMN AINT COMMAND, THIS ONE ONLY PROVIDES ONE COLOR AT A TIME. HIS COULD BE A PROBLEM WHEN IT COMES TO GRAPHICS AND CHARTS. HE @AINT COMMAND COMPENSATES FOR THIS PAUCITY OF COLORS BY ALLOWING YOU TO FI 10000001 129
10011001 153
01111110 126
00000000 0
10101010 170
HE COMMAND FORMAT IS:
@,X,Y,1,102,204,51,129,153,126,0,170
HIS WILL FILL A SPECIFIED AREA WITH THAT PATTERN. F YOU DO NOT ENTER ANY SPECIFIED VALUES, THE AREA WILL BE F MODE, NOT IN LTRA I-ES MODE. T WILL CREATE A NUMBER OF BINARY FILES ON THE DISK.
FTER RUNNING ISTING 1, LOAD AND RUN THE PROGRAM CALLED 1.1 (ISTING 2). HIS PROGRAM WILL FIRST LOAD INTO MEMORY THE OLD VERSION OF LTRA I-ES, THEN IT HANGE PICTURES MADE WITH VERSION 1.0 TO THIS NEW FORMAT. LACE IN THE DRIVE A DISK THAT CONTAINS THE PICTURES YOU WANT CONVERTED AND ANSWER THE PROMPTS. OUR OLD LTRA I-ES PICTURES WILL NOW BE FULLY COMPATIBLE WITH LTRA I-ES 1.1.
INALLY, TO LE ORY AND 2 Z CLOCK SPEED, YOU WILL BE ABLE TO USE ASIC TO WRITE VERY IMPRESSIVE APPLICATIONS PROGRAMS.
HE FIRST NEW COMMAND @ IS ALSO FOUND IN NORMAL 40-COLUMN OMPOSITE MODE AND FUNCTIONS IN THE SAME WAY; HOWEVER, WITH LTRA I-ES 1.1, YO RTING ANGLE (0-360); EA IS THE ENDING ANGLE ANGLE (0-360). HESE ALLOW YOU TO DRAW ARCS EASILY. HE ANGLE IS THE NUMBER OF DEGREES (0-360) YOU WISH TO ROTATE THE CIRCLE, ELLIPSE OR ARC. HE INCREMENT IS THE NUMBER OF DEGREES USED IN DRAWING THE CIRCLE. LL AREAS WITH VARIETIES OF DIFFERENT PATTERNS. HE SYNTAX OF THE COMMAND IS:
@,X,Y,MODE<,P1><,P2><,P3,P4><,P5,P6,P7,P8>
ERE X IS ANY VALUE FROM 0-639; Y IS ANY VALUE FROM 0-199; AND MODE IS 0 (FOR ERASE) AND 1 (FOR DRAW). HE P VALUES ARE NUMB ILLED WITH A SOLID PATTERN. Y ENTERING ONLY ONE NUMBER, ITS PATTERN IS REPEATED EIGHT TIMES; IF YOU ENTER TWO NUMBERS, THE PATTERN OF THE PAIR IS REPEATED FOUR TIMES; IF YOU ENTER FOUR NUMBERS, EACH PATTERN IS REPEATED ONCE.
OU CAN CLEAR A SOLID AR QUIRE A SECONDARY ADDRESS OF 5. T THE MOMENT, ONLY THE PSON, ANNESMAN ALLY PIRIT 80 AND LIVETTI 2300 PRINTERS ARE SUPPORTED, BUT ADDITIONAL MODULES WILL BE ADDED IF THE DEMAND IS THERE.
HE FOURTH COMMAND IS @. HIS SETS UP A SPECIAL FO ATIONS. LTRA I-ES IS A RARITY THAT GREATLY EXTENDS THE ALREADY-POWERFUL FEATURES OF THE -128. OU WILL MOST LIKELY DISCOVER MANY WAYS TO USE THIS NEW GRAPHICS POWER.
OOK FORWARD TO MORE ARTICLES ON THE INNER WORKINGS OF THE 8563 VIDEO CHIP. LTR @,@
(215)0"80 COLUMN MODE ONLY!!!": w@ %:(14)" ":1,20,1,"-128 I-ESOLUTION ISKETTE" @ 1,16,3,"OADING I-ES RAPHICS PACKAGE , LEASE TANDBY!" @( 1,1: 5 @2 47,0 : 48,68 : @< " IES",B0,P7168 A @THE FOLLOWING ROGRAMS:" /C "???????????" 5C :" OU HAVE 16 SET ASIDE FOR RAPHICS TORAGE. ORE SPACE CAN BE RESERVED" Ad "BY NCREASING THE AMOUNT INTO EGISTER 48 IN LINE 20 OF THIS ROGAM." ]Bn " ACH UMBER OV 0@*@
%:47,0:48,68::@,0,2:@,0:10000 Ƞ ( HIRES HELPER.DOC
DOC.ULTRAHI1.0 H DOC.ULTRAHI1.1 ! ---------------- BOOT PROGRAM EA (NOT A PATTERN) BY USING A MODE OF 0. OU MUST MAKE SURE THE AREA TO BE FILLED IS COMPLETELY ENCLOSED OR THE PATTERN WILL LEAK OUT AND FILL THE SCREEN.
HE THIRD COMMAND IS @. HIS WILL DUMP THE GRAPHICS SCREEN TO A PRINTER IN ANY OF FOUR DIF RM OF THE RAW MODE THAT PERFORMS AN ON THE SCREEN WHEN YOU USE ANAY OF THE DRAWING COMMANDS (OT, INE, OX, IRCLE OR AR). T REVERSES LINES ON THE SCREEN. HIS COMMAND ALLOWS YOU TO CREATE THE ILLUSION OF TRANSPARENCY WHEN TWO POINTS OVERLAP. HE MA I-ES IS ONLY ONE ASPECT OF WHAT THIS CHIP IS CAPABLE OF ACCOMPLISHING.
EMENT AND 1 INDICATING COMPLEMENT.
EM OF A ROGRAM
OU DON'T OFTEN FIND A GRAPHICS UTILITY THAT ENHANCES THE USEFULNESS OF A COMPUTER FOR PERSONAL AND PROFESSIONAL APPLIC F 8448 8AP 20)"-128 LTRA I-ES IS NOW CTIVATED" AZ :" OU HAVE 16 SET ASIDE FOR RAPHICS TORAGE. ORE SPACE CAN BE RESERVED" Ad "BY NCREASING THE AMOUNT INTO EGISTER 48 IN LINE 20 OF THIS ROGAM." ]Bn " ACH UMBER OV [[
47,0:48,68::@,0,2:@,0:10000 Ƞ ( HIRES HELPER.DOC
DOC.ULTRAHI1.0 H DOC.ULTRAHI1.1 ! ---------------- BOOT PROGRAM O
@WALRUS 5 6 "COMPUTER FONT",B0,P40000 D( "LOADER" J2 FR.DOC
DOC.ULTRAHI1.0 H DOC.ULTRAHI1.1 ! ---------------- BOOT PROGRAM FERENT SIZES. HE SYNTAX IS:
@,SIZE, SECONDARY ADDRESS
HE SIZE IS FROM 1-4, AND THE SECONDARY ADDRESS IS WHATEVER YOUR PRINTER INTERFACE REQUIRES FOR RAPHICS MODE WITH NO LINEFEEDS. OR EXAMPLE, THE ARDCO AND WITH RAPHICS INTERFACES RE SYNTAX IS:
@,MODE
HE MODE IS 0 OR 1, WITH 0 INDICATING NO COMPLEMENT AND 1 INDICATING COMPLEMENT.
EM OF A ROGRAM
OU DON'T OFTEN FIND A GRAPHICS UTILITY THAT ENHANCES THE USEFULNESS OF A COMPUTER FOR PERSONAL AND PROFESSIONAL APPLIC @
@
@,0,15 @ @,0 T@ @,40000,150,10,1,1,"WHICH SCREEN DO YOU WANT DISPLAYED?" @ @,40000,150,20,1,1,"1: GRAPHIC DISPLAY 1" @( @,40000,150,30,1,1,"2: GRAPHIC DISPLAY 2" @2 @,40000,150,40,1,1,"3: GRAPHIC DISPLAY 3" A< @,40000,150,50,1,1,"4: ER 68 WILL NCREASE THE UFFER BY 256 YTES. O GAIN A 32 YTE UFFER, CHANGE THE 68 TO A 132 " Bx " OU CURRENTLY HAVE"(0)" YTES AVAILABLE IN 0 FOR ROGRAM TORAGE," B "AND"(1)" IN 1 FOR ARIABLES." C "N THIS DISKETTE ARE GRAPHIC DISPLAY 4" AF A 5AP A 90, 100, 110, 120 FAZ "GRAPHICS1" WAd "GRAPHICS2" hAn "GRAPHICS3" yAx "GRAPHICS4" A O @
@ @,0,13 @ @,0 S@
@,40000,150,1,1,1,"G R A P H I C S D I S P L A Y 1" @ @,40000,150,10,1,1,"HIT ANY KEY TO CONTINUE OR HIT" @ @,40000,150,20,1,1,"'Y' TO SEE THE OTHER DISPLAYS" @( I$ @2 I$"Y" 280 @< @,0 Ad I80 480 OME CHANGES HAVE BEEN MADE IN LTRA ; WE ARE NOW AT ERSION 3.7, ELEASE
1.1; ALL VISABLE CHANGES HAVE BEEN MARKED WITH A "*" CHARACTER. NTERNAL CHANGES
ARE (IN PART):
LIGHT RESTRUCTURING OF THE COMMAND LOOP.
LIMINATION OF THE "L AYS:
TTEMPTS TO IMPLEMENT , , AND (ZOOM) COMMANDS
HAVE SO FAR PROVEN FRUITLESS; HE @ COMMAND IN BASIC IS LIMITED TO
CHARACTER-DEFINED BOUNDRIES, SO NONE OF THE ALGORITHMS DESIGNED FOR THESE
CO RE 128, 1350 MOUSE OR ANY COMPATIBLE JOYSTICK. EQUIRED SOFTWARE: THE
SYSTEM (AVAILABLE FROM THE PUBLIC DOMAIN DOWNLOAD AREA).
RAWING IS DONE WITH THE JOYSTICK OR 1350 MOUSE IN PORT TWO; PRESSING THE
BUTTON WILL CAUSE HE / KEY:
: , MOVE CURSOR TO SET RADIUS, CLICK MOUSE/FIRE JOYSTICK
(FILLED CIRCLE): , MOVE CURSOR TO SET RADIUS, /
: , MOVE CURSOR TO OTHER END OF RECTANGLE, /
(FILLED RECTANGLE):
20 An @,1,I,100,75,75 Ax %A 1,5 ;A I80 500 20 PA @,1,I,100,50,50 VA `A 1,7 vA I50 530 20 A @,1,I,100,25,25 A A @,40000,150,10,1,1,"DO YOU WANT TO SEE THE OTHER DISPLAYS?" A I$ A I$"N" @TEXT: B I$ )
(COPY SECTION OF SCREEN): POSITION CURSOR AT UPPER LEFT CORNER OF
AREA TO COPY, , POSITION CURSOR AT LOWER RIGHT CORNER OF AREA, /,
POSITION CURSOR AT DESTINATION LOCATION OF AREA, /
: , TO CONFIRM
LEGAL UANITY RROR" PROBLEM - THANKS, R. .
ISABLE, NON-DESTRUCTIVE CURSOR IN EXT NTRY MODE.
UNCTIONAL /ACK RROW KEY IN EXT NTRY MODE.
N ATTEMPT TO MAKE IMPROPER / PRESSES LESS DAMAGING.
ABITUAL REFERENCES (FR
MMANDS FUNCTION. EW VERSIONS ARE BEING TRIED.
EGULAR FILE FOLLOWS.
FILE/ERSION 3.7/ELEASE ERSION 1.1/LTRA !
PRODUCTIONS PUBLIC DOMAIN SERIES.
'YKANDAR ORRA'TI INK: :72406,370 /: AND YREBYRD
POINTS TO BE PLOTTED. EN DRAWING PEN SIZES ARE AVAILABLE
(0-9): PRESS / FOLLOWED BY A NUMBER TO CHOOSE THE SIZE YOU WISH TO USE. 0
IS THE DEFAULT AND SMALLEST.
ASTER CURSOR MOVEMENT MAY BE ATTAINED BY PRESSING THE / KEY, ANY , MOVE CURSOR, /
: , TEXT (WILL APPEAR ONSCREEN AS TYPED), TO END
MODE DRAWING: MODE DRAWING:
: -/, TO CONFIRM
SCREEN (COMPACTED FORM): , FILENAME,
"Y" "LOADER" B" 250 ,40000,150,1,1,1,"G R A P H I C S D I S P L A Y 1" @ @,40000,150,10,1,1,"HIT ANY KEY TO CONTINUE OR HIT" @ @,40000,150,20,1,1,"'Y' TO SEE THE OTHER DISPLAYS" @( I$ @2 I$"Y" 280 @< @,0 Ad I80 480 : / OR ?
: $
HE CURSOR IS USUALLY A VERY SMALL BOX, BUT CHANGES TO A POINT WHEN BEING
USED TO SET CIRCLE OR DISK RADIUS, AREA, RECTANGLE, OR PASTE AREA SIZE. *HIS
SMALLER CURSOR ALSO ACCEPTS USE OF THE -AR OM MY DAYS ON SYSTEMS) TO THE NON-EXISTANT
KEY (ACTUALLY THE / KEY) HAVE BEEN REMOVED FROM THIS FILE.
HE PACKAGE NOW CONTAINS A SAMPLE PICTURE MAKING FUN OF AN OLD PPLE
ACINTOSH/ISA AD.
DDITIONAL PROBLEMS AND DEL
LTRA ! IS AN LTRA-IRES ADAPTATION OF !, AN EARLY DRAWING PROGRAMME
FOR THE OMMODORE 128. EQUIRED HARDWARE: OMMODORE 128, DISK DRIVE,
MONITOR ANY MONITOR CAPIBLE OF DISPLAYING THE 80 COLUMN SCREEN OUTPUT OF THE
OMMODO
DIRECTIONAL ARROW KEY, AND THEN . *RESS THE ARROW KEY MULTIPLE TIMES TO
MOVE THE CURSOR FURTHER DISTANCES WITHOUT HAVING TO PRESS / AGAIN.*
EVERAL MORE ADVANCED SCREEN EDITING COMMANDS ARE AVAILABLE; ALL ARE PRECEEDED
BY PRESSING T SCREEN (COMPACTED FORM): , FILENAME,
(DRAW A LINE): , MOVE CURSOR TO OTHER END OF LINE, /
( ALL DRAWING DONE SINCE LAST EDITING COMMAND EXECUTED): (THE
COMMAND ITSELF CANNOT BE UNDONE - USE CAUTION! ROW KEY (FASTER) MOVEMENT
METHOD.*
END MAIL WITH QUESTIONS TO ANY OF THE ABOVE NAMES OR ACCOUNTS ON ANY OF
THE ABOVE SYSTEMS.
OF AREA, /,
POSITION CURSOR AT DESTINATION LOCATION OF AREA, /
: , TO CONFIRM
!5(1E(EA))) pXW(AUE1)(EA):YW(AUE1)(1EE).5(EA):1245:APS:1245:ANS "q1245:INS:XXW:YYW:1295:XHX:YHY:ZHG RqMO360:I2XAXH:YAYH:ZAZH:AB0:1190 qqXWXHXA:YWYHYA:ZWZHZA qXAU((EA)E):YAU(EA)(1EE).5:!09 sXR(A):YR(A): sY0Y1.7E09 sR(XXYY).5:A(YX):A0AA sY0AA t Ft K(6)11:K(7)5:K(8)4:K(10)4:K(9)4:IK13:I6IK3T(3)0: \tIK3K(I)K(I)1 t
1245:A0:IJ1K(I):U,V,W:AAR(U)((VTW)180! 2C1K:CD(U(K)):M1R:X1XX:Y1YY:Z1ZZ:X1:1370 wPW1(((R.5M1.5)(M1.5R.5))(R1.5M11.5))(C1K) 7wUXXXXX1:YYYYY1:ZZZZZ1:1380:X1:W10XX gwZMO360:C(I,CN)U(C)X:HE$"ON"C(I,CN)HE tw_I:1415 wdXXX:YYY:1395:KA:C!
S(TM,CN,2)CS(TX,CN,2):CS(TX,CN,2)K1:K1CS(TM,CN,1):CS(TM,CN,1)CS(TX,CN,1):CS(TX,CN,1)K1 zK$GE$(TM,CN):GE$(TM,CN)GE$(TX,CN):GE$(TX,CN)K$ 'z:: .z: [z ******* ZOIDIAC NOTATION ********** bz: zU(C):Z3(U):Q(Z330)1:Z7(W! LD)G)M:F(LLN)M:DDM:Y2D | ML22639.6S(L)4586.4S(LY) |MLML2369.9S(Y)769S(2L)669S(L1) }MLML411.6S(2F)212S(2LY) C}MLML206S(LL1Y)192S(LY) q} MLML165S(L1Y)148S(LL1)125S(D) }"MLML110S(L" )360 ~EC(14,CN)H(1,CN)C(11,CN):C(14,CN)C(14,CN)C(1,CN):C(14,CN)360C(14,CN)C(14,CN)360 JC(14,CN)0C(14,CN)C(14,CN)360 O T: FY ******** DRAW CHART *********** M^: c@,0,2:@,0:I021006:@,320(I)85,! TM)K(TX):K(TX)K1 n8: n=TM114:K(TM)H11095 nB oGTX114:HH(TX,CN)K(TM):TMTM1:TM14TM1 oL: oQ: EoV******* SOLAR ANGLES ********** Lo[: qo`ED2:1150:ED18:H(1,CN)C(1,CN) oeTM212:H(TM,CN)H(TM1,CN)30:H(TM,CN)!
1295:XXX:YYY:ZZG qI5I111280:XXXXT(2):YYYYT(1):ZZZZT(3) rXK(XXYHYYXH)(XXXXYYYY):BR0:1230:AB1:HESS >rI2X1XX:Y1YY:Z1ZZ:1215 |rXXXXX1:YYYYY1:ZZZZZ1:XK(XXYWYYXW)(XXXXYYYY) rBR.0057756(XXXXYYYY!)::T(IK)D(SA):: t1260:AAAP:1250:DX:XY:Y0:1260:AAIN:1250:GY:YX:XD u1260:AAAN:A0AA2 u1250: u : Du# ****** TIME TRAVLER ******* Ku(: su-230:I2ED:MO2:I11I15:310 u21385:MU(S):1385:ED(S):!D(A): wiS,S1,S2:SR(SS1TS2TT): wnXR(A):YR(A): xsR(XXYY):A(Y(X1E9(X0)))(X0):AA2(A0): xx: =x} ***** ARANGE PLANETS ***** Dx: xTM13:C(TM,CN)C(TM1,CN)::C(4,CN)C(1,CN)180:C(4,CN)360C(4,CN!((Z330(Z330))30)):X$((Z7),2):Z710X$"0"(X$,1) zZZ$((((UZ3)60.5))):(ZZ$)10ZZ$"0"(ZZ$,1) I{B$(ZA$,Q21,2):Z$(P$(I),2)" "X$" "B$" "(ZZ$,2):A$(Z$,9): P{: t{ ***** MOON ROUTINE ***** {{: {TTM(CN)!L1)55S(2FY) }'MLML45S(L2F)40S(L2F) },GU((LLML)M) }1TNN5392S(2FY)541S(L1)442S(Y) ~6TNTN423S(2F)291S(2L2F) 0~;TNU(TNM) ~@C(11,CN)(G):C(12,CN)TN:C(13,CN)C(12,CN)180:C(13,CN)360C(13,CN)C(13,CN! 360H(TM,CN)H(TM,CN)360 oj:1065 oo: ot ********* ACUA-TRACK *** oy: p~TTM(CN):J2415020J24515461325 Gp30:I2ED:MO2:I11I15:310 p1245:MU(S):1245:ED(S):EAM:A15:EAME(EA): pAU:E1.01720209(AU1.!ZZZZ)D(XK) r1230:C(I,CN)SS:XK0C(I,CN)SS rHE$"ON"C(I,CN)HE r:1415 0sXXX:YYY:1260:KA:CD(A)NUBR:I2AB1CU(C180) _sCU(C):SSC:YZZ:XR:1260:A.35AA2 es sS,S1,S2:SR(SS1TS2TT): sA0A1.7E!EAM:A15 u7EAME(EA):A:AU:XAU((EA)E):YAU(EA)(1EE) v<1395:1385:AAS:1390:DX:XY:Y0:1395:1385:ANS PvA1385:AAS:1390:ZZY:YX:XD:1395:AAAN:A0AA2 vF1390:XXX:YYY:1380:I2HEU(C)1:HED(U(K))1 vKI!)C(4,CN)360: x: x ******** BUBBLE SORT PLANETS ************ x: yI1ED:CC(I,CN):1475:GE$(I,CN)Z$: wyTM1ED:CS(TM,CN,1)TM:CS(TM,CN,2)C(TM,CN)::TM1ED1:TXTM1ED:(CS(TX,CN,2))(CS(TM,CN,2))1455 yK1CS(TM,CN,2):C!:CN2CN4TTM(CN1) {P(X)(X)(((X)M)360(((X)M)360))360 {LL9735631732564379T4TT |G10123956189T &|N9330606962911T7.5TT G|G1120358614648523T37TT o|D12626551602961611T5TT:M3600 |L(LLG1)M:L1((L"":":A$A$F$(CN)" ZONE"(X(CN)) wLCS(L):@,C2,L,100,1,1,A$:A$((B4(CN)))"N "((L5(CN)))"W":LCS(L):@,C2,L,110,1,1,A$: |: B ********** PUT ON CUSPS ****************** I: VTM112 @,C1,CU%(TM,1,1),CU%(TM,1,2),1,1"1775:PD0:HS%(TX,2)5PD(((5HS%(TX,2))PD%(TX,2))(HS%(TX,2)1)) DPR((PD%(TX,3)PD)(HS%(TX,1)(PD%(TX,2)PD))) B@,C3,320(DP)PD%(TX,1),SC(320(DP)PD%(TX,1)),1,1,""(GE$(TM,CN),1,2) @,C1,320(DP)(PD%(TX,1)30),SC(320(DP)(P"S ":LCS(L):@,C1,L,0,1,1,A$ TM1:TY20:TX3260632:@,C3,TX,10,1,1,P$(TM1):@,C3,0,TY,1,1,P$(TM):TYTY10:TMTM1::@,C1,578,10,1,1,"AS" \ TY18:TX2460832:@,TX,10,TX,TY10,1:@,0,TY,632,TY,1:TYTY10:TY188TY188 u!:@,0,198,632, S%180O1AS$"-.":1910:1885 ] ݉bAS$""AS$(AS%):AS$(AS$,3):@,C1,(TX1)32,10(TY10),1,1,AS$:1900 gAS$(AS$,3):@,C3,(TX1)32,10(TY10),1,1,AS$ l =qAS(TX)AS(TX)1:AS(TY)AS(TY)1: cvAS(TX)AS(TX)1:AS(TY)AS(TY)1: ))"
00 0 0 0 `` '&a d << 00 00 `````` 02 @c33dC 00 @a1 G1 F ``0f f f0`` f !! >v|f|l"? 0 0` `` ````` 0` `0 ? ? `0 xx0 |f|xlf " ,""(H$(TM,CN),2,2) ȁ@,C3,CU%(TM,2,1),CU%(TM,2,2),1,1,(H$(TM,CN),5,2) @,C3,CU%(TM,3,1),CU%(TM,3,2),1,1,(H$(TM,CN),8,2)::
: C ********** SORT DUMP ************************* J: TM112:HS%(TM,1)0:HS%(TM,2)0::JJ114"
D%(TX,1)30)),1,1,""(GE$(TM,CN),4,2) @,C3,320(DP)(PD%(TX,1)60),SC(320(DP)(PD%(TX,1)60)),1,1,""(GE$(TM,CN),7,2) kCS(TM,CN,2)01790: @,C3,320(DP)(PD%(TX,1)90),SC(320(DP)(PD%(TX,1)90)),1,1,""(GE$(TM,CN),10,2) HS%("198,1 Ç"TM119:AS(TM)0::C(19,CN)H(1,CN):TY118:TXTY119:1850:1890:: &@,C1,608,10,1,1,(AS(19)):TM0:TY2019810:TMTM1:@,C1,608,TY,1,1,(AS(TM)):: #+: O0 ******* ASPECTS SUBROUTITNES ******** V5: :AS%((C(TY,CN))# ?1M1 '!` L/!1 1hhL <1 ) l1 a!L!&RA TL% }!L
+T ݏ!кL"TXE ЪL = ݬ!НL2LLORC !ЈL/SURLA !
LC! !!!!!LX,22,-Xj "f fff 0 0` `` ````` 0` `0 ? ? `0 xx0 0` $$$ 08 $ 88 (< x@pp 8$ 8 <$$< $ 00`0 ~ ~ p p ******* DISPLAY ASPECTS ******* E
: @,0,2:@,0:SC1:A$""CH$(CN)" ASPECT"(C(TX,CN))):AS$"" ?AS%O11AS%0AS$"#$":1885 ҈DAS%60O1AS%60O1AS$"%&":1905:1885 IAS%90O1AS%90O1AS$"'(":1910:1885 0NAS%120O1AS%120O1AS$")*":1905:1885 ZSAS%150O2AS%150O2AS$"+,":1885 XAS%180O1A" " `` q 0`0`
ǰ x! c @00`0 00000 f< ? 36x0 0? p 01373 ?f 0 00 ```an` xp< f f f f `` >v66 # 2А +2 2 2 2 2 !2LC! \y *"2$% 1 ) 1"2`,2 t1 ) !2"#21"2 ,2 t1 ) $2 *!23&2#2 j* *
12$2 j* *)1212LN)$2 j* *12 92!2&21=12#H(`H.2 0.2h`02+2 t02` 2 22Ȍ2 ) 2 + LP+0 + + t + +i槥2` , ` , ` 11i1i 01 21 2 1 ) 111 0#22 0 . 0 2
2 22iP22 2` t` 02 11 / ; ) 002L. 0 111@L{/ 02 / ; ) 002L// q/ 0 11 011 01111@L{/11111(1# 01 #@L.#1 0 ֭)H h֩ ֭1L0 ֭ ֍` 1 2 ) 111 0)H%18111111811111111111111 1,11 $11 $11,11 $11 $11i#
1111 K#` 1 211111111 K#` 1111111 1J1 9% ǰ861 221111 2221189%281ǐ`1m11 221m1222 ӭ21m12222 ' O'121# 11
&
&m11em1m1`1Jn1Jn1Jn1112`111 11) 1111-1*11111.1J1m111m11N11Ǯ11` ? 11 11 11 11` @ F F F # /2/2
>92>A2>I2>Q2>Y2>a2>i2>q2>y2>2>2>2>2>2>2>2&2ƈЩ &2!2'2 '2*9212 2%212M(2-2)2 * 0M-2 * 0iP-2%2Ů*28項 **2 0 2i 2 2 *'2&2&2!2L9)L9( @`ɀ8@`ɠ#
2
2111 022
2 2 0 ֭ ֍֢ 22 0 2 ֍ 0 2iP 2
22iP22 2Ы` 22 i 203(i2 11i1i 01 2
2LC!1 22m 2222m20 ) #1 /1 1 1 11L.1 11111 1 1 /L /11L.1 q/11" q/11 0L4/1ש 1 q/1 q/ 01L4/ `hh L0211 1 1 102` 6 h 1` < ,2#111111111111i11 $11 $180n1n1 11711m111m1108111111 $11121 $ 01 $1,10I-1L$
1 011111`L0%$)%$L$8Ii ` $iP`
%8P# 19% 21ǐթ 22LO'11111111 2121 '11 21212121 '21212Ȑ 1212111 '2121111111 ' 2211211111 11 K#22` +2,2 2$ F 3
?M@ F PP > > 3 ؘ ?