1 REM ********************************* 2 REM * * 3 REM * GRAFIK - DEMO * 4 REM * ZUM * 5 REM * TESTEN DES ERSTEN TEILS VON * 6 REM * * 7 REM * H I R E S - 3 * 8 REM * * 9 REM *AUCH VON MIR(H.PONNATH HH 1984)* 10 REM********************************* 20 POKE52,128:POKE56,128:SYS37498:REM EINSCHALTEN DER NEUEN BASIC-BEFEHLE 25 REM ---------- DER LIN-BEFEHL ------- 30 DEFFNA(X)=(Y2-Y1)*(X-X1)/(X2-X1)+Y1:DEFFNB(Z)=(Y4-Y3)*(Z-X3)/(X4-X3)+Y3 35 DEFFNC(I)=X1+I*(X2-X1)/10:DEFFND(I)=X3+I*(X4-X3)/10 40 DEFFNE(I)=X4-I*(X4-X3)/10 45 X1=10:X2=100:X3=190:X4=310:Y1=10:Y2=170:Y3=195:Y4=15 50 HFL,1,6 55 FORI=0TO10STEP.5:X=FNC(I):Z=FND(I):LIN,X,FNA(X),Z,FNB(Z):NEXT 60 LIN,X1,Y1,X2,Y2:LIN,X3,Y3,X4,Y4 65 PAU,5 70 HOF:PRINTCHR$(147)"DAS WAR DER LIN-BEFEHL":PRINT:PRINT"PAU,HFL U. HOF FUNKTIONIEREN AUCH 75 PAU,5 80 [143] ----------- DER REC-BEFEHL ------ 85 LOE:HAN 90 [150][165]Z(X)[178][171]3.39098E[171]3[172]X[174]2[170]1.053668[172]X[170]8.9497:X1[178]200:Y1[178]198:X2[178]310:Y2[178]5 95 X3[178]2:X4[178]309:E[178]60 100 [129]I[178]0[164]E:XU[178]X2[171]I[172](X2[171]X1)[173]E:YU[178][165]A(XU):XO[178]X4[171]I[172](X4[171]X3)[173]E:YO[178][165]Z(XO) 105 REC,XO,YO,XU,YU:[130]I:PAU,3 110 FAR,6,1:PAU,2:FAR,0,7:PAU,1:FAR,2,8:PAU,1:LOE:PAU,1:HOF:[153] 115 [153]"DAS WAREN DIE BEFEHLE REC,FAR UND LOE":PAU,5 120 [143] -- PKT,BLO,CIR,LBK UND LRE ----- 125 HAN:BLO,40,100,160,150:BLO,180,100,200,150:BLO,200,120,250,150 130 BLO,240,100,250,120:LBK,44,102,68,120:LBK,72,102,98,120:LBK,102,102,128,120 135 LBK,132,102,156,120:LBK,182,102,198,148:LRE,44,122,68,148 140 LRE,132,122,156,148:LIN,160,145,180,145:CIR,45,155,5,5,2[172][255] 145 CIR,55,155,5,5,2[172][255]:CIR,155,155,5,5,2[172][255]:CIR,145,155,5,5,2[172][255] 150 CIR,185,155,5,5,2[172][255]:CIR,195,155,5,5,2[172][255]:CIR,245,155,5,5,2[172][255] 155 LIN,0,160,319,160:LIN,0,163,319,163 160 [129]K[178]1[164]10:[129]J[178]1[164]235 165 V[178][181]([187](1)[172]20)[170]235[171]J:W[178][181]([187](1)[172]100[171]J[173]3):[139]W[177]0[175]V[177]0[167]:PKT,V,W:[130] 170 [130]K:PAU,5:HOF 175 [153]:[153]"DIESER ZUG FUHR MIT:PKT,BLO,CIR,LBK,LRE":PAU,5 180 [143] ------ RAD UND LRA ------------- 185 HFL,0,6:[129]L[178]0[164]3[172][255][169][255][173]30:RAD,160,100,[181](10[172]L),[181](10[172]L),L 190 [130]L:PAU,4:[129]L[178]0[164]3[172][255][169][255][173]15:LRA,160,100,[181](7[172]L),[181](7[172]L),L:[130]L 195 PAU,4:HOF:[153]:[153]"SOWOHL RAD ALS AUCH LRA FUNKTIONIEREN":PAU,4 200 [143] ------ LPK,LLN,LKR ------------- 205 [151]53280,0 210 HFL,6,14:BLO,20,10,300,190:X(1)[178]60:X(2)[178]120:X(3)[178]170:X(4)[178]200:X(5)[178]201 215 X(6)[178]240:X(7)[178]260:Y(1)[178]65:Y(2)[178]42:Y(3)[178]70:Y(4)[178]100:Y(5)[178]135:Y(6)[178]150 220 Y(7)[178]117:[129]I[178]1[164]7:LKR,X(I),Y(I),2,2,2[172][255]:LKR,X(I),Y(I),1,1,2[172][255]:[130]I 225 [129]I[178]2[164]7:LLN,X(I[171]1),Y(I[171]1),X(I),Y(I):[130]I:LLN,X(7),Y(7),X(4),Y(4) 230 [129]I[178]0[164]500:V[178][181]([187](1)[172]280)[170]20:W[178][181]([187](1)[172]180)[170]10:LPK,V,W:[130]I:PAU,3 235 [151]53280,14:HOF:[153]:[153]"DER GROSSE WAGEN WURDE GEBILDET MIT" 240 [153]"DEN BEFEHLEN:LLN,LPK UND LKR":[153]:[153]:[151]646,1:[153]"ALLES O.K!" 245 [151]646,14:[128]