4 INIT"CRT:M1" 5 IF SIZE < 4000 THEN 30 20 SYMBOL[ 3] 50, 50,"Just a moment", 2, 2, 0: LIMIT $f6ff: LOAD"OPENING DATA" 30 RESTORE: DIMHI( 20),AA( 10),AB( 10),BA( 10),BB( 10): FORI = 1 TO 20: READHI(I): NEXTI 40 DATA .1,.28,.44,.57,0.7,.8,.88,.94,.98,1,1 50 DATA 1.03,1.07,1.15,1.26,1.45,1.74,2.31,3.68,10 60 J = 0: FORI = 1 TO 10:AA(I) = 150 * COS( RAD(J)) + 160:BA(I) =( 160 -AA(I)) / 30 70 AB(I) = 50 * SIN( RAD(J)) + 120:BB(I) =( 100 -AB(I)) / 30:J =J + 36: NEXTI 80 : ' DEMO START -------------------------------------------------------------- 90 FORJ = 5 TO 1 STEP - 1: FORI = 1 TO 21 STEP 2: SYMBOL[ 3] 80, 30, STR$(J),I,I, 0: CLS: NEXTI,J 100 PAL 0, 1: PAL 1, 1: PAL 2, 2: PAL 3, 7 110 X = 15:Y = 4:C = 1:CC = 1:HX = 1.#INF:HY = 1.#INF: GOSUB"MZ-800": GOSUB"PAINT": USR( $f700) 120 FORI = 160 TO 318: LINE[ 2, 1]I, 0,I, 199: LINE[ 2, 1] 319 -I, 0, 319 -I, 199: NEXTI 130 PAL 0, 0: LINE[ 0, 0] 0, 50, 319, 50: PAINT[ 0, 0] 5, 55, 0: PAL 1, 6 140 FORI = 0 TO 500: SET[ 3, 0] RND( 1) * 320, RND( 1) * 200: NEXTI 150 FORI = 1 TO 10: FORK = 0 TO 3: CIRCLE[ 3, 0]AA(I),AB(I),K: NEXTK,I 160 C = 1: FORI = 1 TO 10: FORK = 3 TO 0 STEP - 1: CIRCLE[ 0, 0]AA(I),AB(I),K: NEXTK 170 L = 5: FORJ = 1 TO 30: SET[ 0, 0]AA(I),AB(I):AA(I) =AA(I) +BA(I):AB(I) =AB(I) +BB(I) 180 SET[ 3, 0]AA(I),AB(I): NEXTJ: FORK = 0 TO 3: CIRCLE[ 3, 0] 160, 100,K: NEXTK 190 FORK = 3 TO 0 STEP - 1: CIRCLE[ 0, 0] 160, 100,K: NEXTK 200 PAL 0,C: PAL 3, 2: PAL 2, 7: WAIT 300:C =C + 1: IFC = 7 THENC = 2 210 PAL 0, 0: PAL 3, 7: PAL 2, 2:L =L +(I / 1.5) ^ 2 220 CIRCLE[ 3, 0] 160, 100,L: PAINT[ 0, 0] 160, 100, 3 230 CIRCLE[ 2, 0] 160, 100,L: PAINT[ 1, 0] 160, 100, 2: NEXTI 240 I2 = 50:I1 = 200:I0 = 320:I3 = 10:J = 1:K = 1:I4 = - 2: GOSUB"RYUUSEI" 250 PAL 0, 0: PAL 1, 6: PAL 2, 2: PAL 3, 7:I2 = 50:I1 = 199:I0 = 0:I3 = 10:J = 1:K = 1:I4 = 2 260 GOSUB"RYUUSEI": GOTO 350 270 LABEL"RYUUSEI": FORI = 0 TO 80 280 CIRCLE[ 1, 1]I0,I1,I3: CIRCLE[ 2, 0]I0,I1,I2,HI(J) 290 I1 =I1 - 1.25:I0 =I0 +I4:I2 =I2 - 0.625:I3 =I3 - 0.125 300 J =J +K: IF(J = 10) +(J = 1) THENK = -K 310 NEXTI 320 FORI = 1 TO 27 STEP 3: CIRCLE[ 1, 0] 160, 100,I: CIRCLE[ 2, 0] 160, 100,I + 1: CIRCLE[ 3, 0] 160, 100,I + 2: NEXTI 330 FORI = 1 TO 10: PAL 1, 1: PAL 2, 2: PAL 3, 4: WAIT 50: PAL 1, 2: PAL 2, 4: PAL 3, 1: WAIT 50: PAL 1, 4: PAL 2, 1: PAL 3, 2: WAIT 50: NEXTI 340 FORI = 1 TO 10: PAL 0, 7: WAIT 50: PAL 0, 0: WAIT 50: NEXTI: RETURN 350 FORI = 0 TO 30: CIRCLE[ 0, 0] 160, 100,I: NEXTI: PAL 3, 7 360 FORJ = 1 TO 20: FORI = 1 TO 10: CIRCLE[ 3, 0]AA(I),AB(I),J:AA(I) =AA(I) -BA(I) * 2:AB(I) =AB(I) -BB(I) * 2: NEXTI,J: PAL 1, 2 370 X = 21:Y = 5:C = 1:CC = 1:HX = 1.#INF:HY = 1.#INF: GOSUB"MZ-800": GOSUB"PAINT": WAIT 3000: CLS 380 PAL 0, 9: PAL 1, 1: PAL 2, 2: PAL 3, 4:K = 105 390 FORI = 1 TO 12 STEP 0.5: LINE[ 3, 0] 0,K, 319,K: LINE[ 3, 0] 0, 200 -K, 319, 200 -K:K =K +I: NEXTI 400 K = 105:C = 0 410 FORI = 1.5 TO 10 STEP 0.5: PAINT[C, 0] 0,K, 3: PAINT[C, 0] 0, 200 -K, 3:K =K +I:C =C + 1: IFC = 3 THENC = 0 420 NEXTI 430 FORI = 1 TO 10: PAL 0, 1: PAL 1, 2: PAL 2, 9: WAIT 200: PAL 0, 2: PAL 1, 9: PAL 2, 1: WAIT 200: PAL 0, 9: PAL 1, 1: PAL 2, 2: WAIT 200: NEXTI:K = 105 440 FORI = 1.5 TO 10 STEP 0.5: PAINT[ 0, 0] 0,K, 3: PAINT[ 0, 0] 0, 200 -K, 3:K =K +I: NEXTI 450 FORI = 1 TO 20: CIRCLE[ 1, 0] 160, 100, 50,HI(I): NEXTI 460 AX = 50:BX = - 10:AY = 90:BY = 1:C = 10:D = 1:CA = 150:CB = 70 470 FORI = 0 TO 360 STEP 4.5:AX =CA * COS( RAD(I)) + 160:AY =CB * SIN( RAD(I)) + 100: CIRCLE[ 1, 0]AX,AY, 10,HI(C):C =C +D: IF(C = 1) +(C = 20) THEND = -D 480 NEXTI 490 Y = 5:C = 2:CC = 2:HX = 1.#INF:HY = 1.#INF: FORX = 15 TO 95 STEP 40: GOSUB"MZ-800": GOSUB"PAINT":Y =Y + 60:HX =HX - 1.#INF:HY =HY - 1.#INF: NEXTX 500 FORI = 1 TO 10: PAL 1, 2: PAL 2, 1: PAL 0, 4: PAL 3, 9: WAIT 100: PAL 1, 1: PAL 2, 2: PAL 0, 9: PAL 3, 4: WAIT 100: NEXTI 510 PAL 0, 0: PAL 1, 1: PAL 2, 2: PAL 3, 7: WAIT 3000: CLS 520 GOSUB"RAKUGAKI": USR( $f700) 530 : ' MZ-800 SCROOL ----------------------------------------------------------- 540 Y = 5:C = 3:CC = 1:HX = 0.6:HY = 1: FORX = 20 TO 170 STEP 150: GOSUB"MZ-800": GOSUB"PAINT":CC =CC + 1: NEXTX 550 LINE[ 3] 0, 47, 319, 47: PAINT[ 1] 0, 0, 3 560 PAINT[ 1] 95, 12, 3: PAINT[ 1] 95, 27, 3: PAINT[ 1] 117, 20, 3: PAINT[ 1] 137, 20, 3 570 PAINT[ 1] 245, 12, 3: PAINT[ 1] 245, 27, 3: PAINT[ 1] 267, 20, 3: PAINT[ 1] 287, 20, 3 580 PA = 5:SS = 30:SE = 125:SW = 95:S1 =SW * 8:S2 = 0:CO = 608:DS = 5 590 PAL 1, 0: PAL 2, 8: PAL 0, 1 600 GOSUB"PRSET": USR( $fe48) 610 CO =CO / 2: GOSUB"PAL" 620 DS =DS * 2: IFDS = 20: ELSE 600 621 SS = 30:SE = 125:SW = 95:S2 =SW * 8:S1 = 0:CO = 608:DS = 65531:J = 5 622 GOSUB"PAL" 623 GOSUB"PRSET": USR( $fe48) 624 CO =CO / 2: GOSUB"PAL":DS =DS -J:J =J * 2: IFDS > 65500 GOTO 623 630 S2 =SW * 8:S1 = 0: GOSUB"PAL": LINE[ 1], 0, 47, 319, 47 650 SS = 0:SE = 30:SW = 30:S1 = 240:S2 = 0:CO = 200:DS = 5: GOSUB"PRSET": USR( $fe48) 670 GOSUB"PAL":DS = 1: FORI = 1 TO 24 680 DS = 1: FORI = 1 TO 24 690 CO = 2:DS =DS + 1: GOSUB"PRSET": USR( $fe48): WAIT 300: NEXT: GOSUB"END" 700 BOX[ 0] 0, 50, 319, 199, 0: GOSUB"PAL" 710 SS = 0:SE = 125:SW = 125:S2 = 980:S1 = 0 720 CO = 150:DS = 65531: GOSUB"PRSET": USR( $fe48) 730 Y = 110:C = 3:CC = 1:HX = 0.6:HY = 1: FORX = 20 TO 170 STEP 150: GOSUB"MZ-800": GOSUB"PAINT":CC =CC + 1: NEXTX 740 BOX[ 0] 0, 150, 319, 199, 0: GOSUB"END": GOTO 1690 750 : '----------------------------------------- 760 : ' SCROOL WORK 770 : '----------------------------------------- 780 LABEL"PRSET": POKE $fe84,(S2 .MOD 256), INT(S2 / 256),SW,SS,SE 790 POKE $fe89,(DS .MOD 256), INT(DS / 256),(CO .MOD 256), INT(CO / 256) 800 POKE $fe8d,(S1 .MOD 256), INT(S1 / 256),(S2 .MOD 256), INT(S2 / 256) 810 RETURN 820 LABEL"END": USR( $fe91): RETURN 830 : '------------------------------------------------------ 840 LABEL"RAKUGAKI" 850 C = 1:X = 0:Y = 190:HX = 1.2: FORI = 0.5 TO 3 STEP 1.#INF:X =X + 5:Y =Y - 17:CC =C:HY =I 870 GOSUB"MZ-800": GOSUB"PAINT":C =C + 1: IFC = 3 THENC = 1 880 NEXT 890 X = 40:Y = 54:C = 3:CC = 3:HX = 1.2:HY = 1.#INF: GOSUB"MZ-800": GOSUB"PAINT": RETURN 900 LABEL"MZ-800":HH =HY /HX: IFHH < 1 THENHR =HX: GOTO 920 910 HR =HY 920 H = PAI( 1) / 180 930 REM CHR "m" 940 BOX[C]X,Y,X + 10 *HX,Y + 30 *HY 950 LINE[C]X + 15 *HX,Y,X + 15 *HX,Y + 5 *HY 960 CIRCLE[C]X + 15 *HX,Y + 10 *HY, 5 *HR,HH, 0, 90 *H 970 LINE[C]X + 20 *HX,Y + 10 *HY,X + 20 *HX,Y + 30 *HY,X + 30 *HX,Y + 30 *HY,X + 30 *HX,Y + 5 *HY 980 CIRCLE[C]X + 25 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H 990 LINE[C]X + 25 *HX,Y,X + 15 *HX,Y 1000 LINE[C]X + 35 *HX,Y,X + 35 *HX,Y + 5 *HY 1010 CIRCLE[C]X + 35 *HX,Y + 10 *HY, 5 *HR,HH, 0, 90 *H 1020 LINE[C]X + 40 *HX,Y + 10 *HY,X + 40 *HX,Y + 30 *HY,X + 50 *HX,Y + 30 *HY,X + 50 *HX,Y + 5 *HY 1030 CIRCLE[C]X + 45 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H 1040 LINE[C]X + 45 *HX,Y,X + 35 *HX,Y 1050 LINE[C]X + 55 *HX,Y,X + 55 *HX,Y + 5 *HY,X + 70 *HX,Y + 5 *HY,X + 75 *HX,Y,X + 55 *HX,Y 1060 CIRCLE[C]X + 80 *HX,Y + 5 *HY, 5 *HR,HH, 315 *H, 135 *H 1070 LINE[C]X + 77 *HX,Y + 1 *HY,X + 56 *HX,Y + 22 *HY 1080 CIRCLE[C]X + 60 *HX,Y + 25 *HY, 5 *HR,HH, 135 *H, 315 *H 1090 LINE[C]X + 63 *HX,Y + 29 *HY,X + 84 *HX,Y + 8 *HY 1100 LINE[C]X + 70 *HX,Y + 25 *HY,X + 65 *HX,Y + 30 *HY,X + 85 *HX,Y + 30 *HY,X + 85 *HX,Y + 25 *HY,X + 70 *HX,Y + 25 *HY 1110 REM CHR "-" 1120 BOX[C]X + 90 *HX,Y + 13 *HY,X + 105 *HX,Y + 18 *HY 1130 REM CHR "8" 1140 LINE[C]X + 120 *HX,Y + 10 *HY,X + 120 *HX,Y + 5 *HY,X + 125 *HX,Y + 5 *HY,X + 125 *HX,Y,X + 118 *HX,Y 1150 CIRCLE[C]X + 118 *HX,Y + 5 *HY, 5 *HR,HH, 90 *H, 180 *H 1160 LINE[C]X + 113 *HX,Y + 5 *HY,X + 113 *HX,Y + 10 *HY 1170 CIRCLE[C]X + 118 *HX,Y + 10 *HY, 5 *HR,HH, 180 *H, 270 *H 1180 LINE[C]X + 118 *HX,Y + 15 *HY,X + 115 *HX,Y + 15 *HY 1190 CIRCLE[C]X + 115 *HX,Y + 20 *HY, 5 *HR,HH, 90 *H, 180 *H 1200 LINE[C]X + 110 *HX,Y + 20 *HY,X + 110 *HX,Y + 25 *HY 1210 CIRCLE[C]X + 115 *HX,Y + 25 *HY, 5 *HR,HH, 180 *H, 270 *H 1220 LINE[C]X + 115 *HX,Y + 30 *HY,X + 135 *HX,Y + 30 *HY 1230 CIRCLE[C]X + 135 *HX,Y + 25 *HY, 5 *HR,HH, 270 *H, 0 1240 LINE[C]X + 140 *HX,Y + 25 *HY,X + 140 *HX,Y + 20 *HY 1250 CIRCLE[C]X + 135 *HX,Y + 20 *HY, 5 *HR,HH, 0, 90 *H 1260 LINE[C]X + 135 *HX,Y + 15 *HY,X + 132 *HX,Y + 15 *HY 1270 CIRCLE[C]X + 135 *HX,Y + 20 *HY, 5 *HR,HH, 0, 90 *H 1280 CIRCLE[C]X + 132 *HX,Y + 10 *HY, 5 *HR,HH, 270 *H, 0 1290 LINE[C]X + 137 *HX,Y + 10 *HY,X + 137 *HX,Y + 5 *HY 1300 CIRCLE[C]X + 132 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H 1310 LINE[C]X + 132 *HX,Y,X + 128 *HX,Y,X + 128 *HX,Y + 5 *HY,X + 130 *HX,Y + 5 *HY,X + 130 *HX,Y + 10 *HY,X + 120 *HX,Y + 10 *HY 1320 BOX[C]X + 120 *HX,Y + 20 *HY,X + 130 *HX,Y + 25 *HY 1330 REM CHR "0" 1340 CIRCLE[C]X + 150 *HX,Y + 5 *HY, 5 *HR,HH, 90 *H, 180 *H 1350 LINE[C]X + 145 *HX,Y + 5 *HY,X + 145 *HX,Y + 25 *HY 1360 CIRCLE[C]X + 150 *HX,Y + 25 *HY, 5 *HR,HH, 180 *H, 270 *H 1370 LINE[C]X + 150 *HX,Y + 30 *HY,X + 170 *HX,Y + 30 *HY 1380 CIRCLE[C]X + 170 *HX,Y + 25 *HY, 5 *HR,HH, 270 *H, 0 1390 LINE[C]X + 175 *HX,Y + 25 *HY,X + 175 *HX,Y + 5 *HY 1400 CIRCLE[C]X + 170 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H 1410 LINE[C]X + 170 *HX,Y,X + 150 *HX,Y 1420 CIRCLE[C]X + 160 *HX,Y + 10 *HY, 5 *HR,HH, 0, 180 *H 1430 LINE[C]X + 155 *HX,Y + 10 *HY,X + 155 *HX,Y + 20 *HY 1440 CIRCLE[C]X + 160 *HX,Y + 20 *HY, 5 *HR,HH, 180 *H, 0 1450 LINE[C]X + 165 *HX,Y + 20 *HY,X + 165 *HX,Y + 10 *HY 1460 REM CHR "0" 1470 CIRCLE[C]X + 185 *HX,Y + 5 *HY, 5 *HR,HH, 90 *H, 180 *H 1480 LINE[C]X + 180 *HX,Y + 5 *HY,X + 180 *HX,Y + 25 *HY 1490 CIRCLE[C]X + 185 *HX,Y + 25 *HY, 5 *HR,HH, 180 *H, 270 *H 1500 LINE[C]X + 185 *HX,Y + 30 *HY,X + 205 *HX,Y + 30 *HY 1510 CIRCLE[C]X + 205 *HX,Y + 25 *HY, 5 *HR,HH, 270 *H, 0 1520 LINE[C]X + 210 *HX,Y + 25 *HY,X + 210 *HX,Y + 5 *HY 1530 CIRCLE[C]X + 205 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H 1540 LINE[C]X + 205 *HX,Y,X + 185 *HX,Y 1550 CIRCLE[C]X + 195 *HX,Y + 10 *HY, 5 *HR,HH, 0, 180 *H 1560 LINE[C]X + 190 *HX,Y + 10 *HY,X + 190 *HX,Y + 20 *HY 1570 CIRCLE[C]X + 195 *HX,Y + 20 *HY, 5 *HR,HH, 180 *H, 0 1580 LINE[C]X + 200 *HX,Y + 20 *HY,X + 200 *HX,Y + 10 *HY: RETURN 1590 REM PAINT 1600 LABEL"PAINT" 1610 PAINT[CC]X + 4 *HX,Y + 3 *HY,C: PAINT[CC]X + 20 *HX,Y + 3 *HY,C 1620 PAINT[CC]X + 40 *HX,Y + 3 *HY,C: PAINT[CC]X + 60 *HX,Y + 3 *HY,C 1630 PAINT[CC]X + 80 *HX,Y + 3 *HY,C: PAINT[CC]X + 80 *HX,Y + 27 *HY,C 1640 PAINT[CC]X + 95 *HX,Y + 16 *HY,C: PAINT[CC]X + 120 *HX,Y + 3 *HY,C 1650 PAINT[CC]X + 133 *HX,Y + 5 *HY,C: PAINT[CC]X + 160 *HX,Y + 3 *HY,C 1660 PAINT[CC]X + 195 *HX,Y + 3 *HY,C: RETURN 1670 LABEL"PAL":PA =PA + 1: IFPA = 15 THENPA = 1 1680 PAL 0,PA: RETURN 1690 PAL 1, 1: PAL 2, 2: LINE[ 0] 0, 47, 319, 47: GOSUB"STAR": GOSUB"KAITEN" 1700 BOX[ 0] 0, 0, 319, 150, 0: PAL 1, 1: PAL 2, 2: PAL 3, 3 1710 GOTO 1960 1720 : '------------MAKU----------------- 1730 LABEL"MAKU" 1740 FORI = 0 TO 319: LINE[ 1]I, 0,I, 199: LINE[ 1] 639 -I, 0, 639 -I, 199: WAIT 10: NEXTI 1750 SYMBOL[ 0] 15, 50,"THE END", 10, 14, 0 1755 SYMBOL[ 0] 25, 50,"THE END", 10, 14, 0 1760 FORI = 0 TO 10: PAL 1, 0: PAL 0, 7: WAIT 100: PAL 0, 0: PAL 1, 7: WAIT 100: NEXTI 1770 INIT"CRT:M1": GOTO 30 1780 LABEL"STAR": PAL 0, 0 1790 CN = 1:CX = 1:XX = 160:YY = 70:R1 = 30:R2 = 50:R3 =R1 * 1.5:R4 =R2 * 1.5: GOSUB"HOSHI" 1800 CN = 3:CX = - 1:XX = 60:YY = 100:R1 = 15:R2 = 25:R3 =R1 * 1.5:R4 =R2 * 1.5: GOSUB"HOSHI" 1810 CN = 3:CX = - 1:XX = 260:YY = 100:R1 = 15:R2 = 25:R3 =R1 * 1.5:R4 =R2 * 1.5: GOSUB"HOSHI": RETURN 1820 LABEL"HOSHI":PP = 1:YH =YY:C =CN: GOTO 1830 1830 FORV = 0.42 TO 6.3 STEP 0.42 1840 XP =XX +( SIN(V)) *R3:YP =YY +( COS(V)) *R1 1850 X1 =XX +( SIN(V - 0.21)) *R3:Y1 =YY +( COS(V - 0.21)) *R1 1860 X2 =XX +( SIN(V)) *R4:Y2 =YY +( COS(V)) *R2 1870 X3 =XX +( SIN(V + 0.21)) *R3:Y3 =YY +( COS(V + 0.21)) *R1 1880 LINE[C]XX,YY,X1,Y1,X2,Y2,X3,Y3,XX,YH 1890 IFPP = 1 THEN PAINT[C]XP,YP,C 1900 C =C +CX: IF(C = 4) .OR(C = 0) THENC =CN 1910 NEXTV: RETURN 1920 LABEL"KAITEN" 1930 FORI = 1 TO 13 STEP 3: PAL 1,I: PAL 2,I + 1: PAL 3,I + 2: WAIT 700 1940 FORJ = 1 TO 3: PAL 1,I: PAL 2, 0: PAL 3, 0: WAIT 500 1950 PAL 1, 0: PAL 2,I + 1: PAL 3, 0: WAIT 500: PAL 1, 0: PAL 2, 0: PAL 3,I + 2: WAIT 500: NEXTJ,I: RETURN 1960 INIT"CRT:M1": CLR 1970 : ' STER DEMO -------------------------------------------------------------- 1980 X = 70:Y = 20:H = 1.#INF:L = 1.#INF:C = 1:V = 1: GOSUB"TR1":C = 2: GOSUB"TR2" 1990 X = 118:Y = 48:H = 1.#INF:L = 1.#INF:C = 1:V = 1: GOSUB"TR1":C = 2: GOSUB"TR2" 2000 X = 168:Y = 20:H = 1.#INF:L = 1.#INF:C = 1:V = 1: GOSUB"TR1":C = 2: GOSUB"TR2" 2010 X = 118:Y = 105:H = 1.#INF:L = 1.#INF:C = 1:V = 1: GOSUB"TR1":C = 2: GOSUB"TR2": USR( $f700) 2015 FORI = 1 TO 500: SET[ RND * 4] RND * 319, RND * 199: NEXTI 2020 WAIT 1000: PAL 0, 0: PAL 1, 0: PAL 2, 0: PAL 3, 0 2030 X = 100:Y = 30:H = 0.6:L = 0.6:C = 3:V = 0: GOSUB"TR1": GOSUB"TR2" 2040 C1 = 1:C2 = 2:C3 = 3: GOSUB"TRP1": GOSUB"TRP2": PAL 0, 8 2050 FORI = 1 TO 5: PAL 1, 15: PAL 2, 1: PAL 3, 2: WAIT 700 2070 PAL 1, 1: PAL 2, 15: PAL 3, 2: WAIT 700: PAL 1, 1: PAL 2, 2: PAL 3, 15: WAIT 700: NEXT: GOTO 2490 2080 LABEL"LTR" 2090 : '********************************* 2100 : '* LINE TR * 2110 : '********************************* 2120 LABEL"TR1": LINE[C]H * 122 +X,L * 46 +Y,H * 95 +X,L +Y,H * 85 +X,L +Y 2130 LINE[C]H * 111 +X,L * 46 +Y,H * 85 +X,L +Y,H *( 38 - 11 *V) +X,L *( 81 + 19 *V) +Y 2140 LINE[C]H * 99 +X,L * 46 +Y,H * 84 +X,L * 19 +Y,H *( 43 - 11 *V) +X,L *( 90 + 19 *V) +Y 2150 LINE[C]H * 90 +X,L * 30 +Y,H *( 49 - 11 *V) +X,L *( 100 + 19 *V) +Y 2160 LINE[C]H * 27 +X,L * 100 +Y,H * 1 +X,L * 145 +Y,H * 6 +X,L * 154 +Y 2170 LINE[C]H * 32 +X,L * 109 +Y,H * 6 +X,L * 154 +Y,H *( 99 + 23 *V) +X,L * 154 +Y 2180 LINE[C]H * 39 +X,L * 119 +Y,H * 23 +X,L * 145 +Y,H *( 105 + 23 *V) +X,L * 145 +Y 2190 LINE[C]H * 29 +X,L * 135 +Y,H *( 110 + 23 *V) +X,L * 135 +Y 2200 LINE[C]H * 122 +X,L * 154 +Y,H * 173 +X,L * 154 +Y,H * 179 +X,L * 145 +Y 2210 LINE[C]H * 127 +X,L * 145 +Y,H * 179 +X,L * 145 +Y,H *( 133 - 11 *V) +X,L *( 65 - 19 *V) +Y 2220 LINE[C]H * 132 +X,L * 135 +Y,H * 162 +X,L * 135 +Y,H *( 122 - 11 *V) +X,L *( 65 - 19 *V) +Y 2230 LINE[C]H * 151 +X,L * 135 +Y,H *( 110 - 11 *V) +X,L *( 65 - 19 *V) +Y: RETURN 2240 LABEL"TR2": LINE[C]H * 142 +X,L * 119 +Y,H * 95 +X,L * 199 +Y,H * 85 +X,L * 199 +Y 2250 LINE[C]H * 137 +X,L * 110 +Y,H * 85 +X,L * 199 +Y,H *( 58 - 11 *V) +X,L *( 154 - 19 *V) +Y 2260 LINE[C]H * 130 +X,L * 100 +Y,H * 85 +X,L * 180 +Y,H *( 70 - 11 *V) +X,L *( 154 - 19 *V) +Y 2270 LINE[C]H * 90 +X,L * 170 +Y,H *( 81 - 11 *V) +X,L *( 154 - 19 *V) +Y 2280 LINE[C]H * 47 +X,L * 135 +Y,H +X,L * 55 +Y,H * 6 +X,L * 46 +Y 2290 LINE[C]H * 58 +X,L * 135 +Y,H * 6 +X,L * 46 +Y,H *( 58 + 23 *V) +X,L * 46 +Y 2300 LINE[C]H * 70 +X,L * 135 +Y,H * 23 +X,L * 55 +Y,H *( 53 + 23 *V) +X,L * 55 +Y 2310 LINE[C]H * 29 +X,L * 65 +Y,H *( 47 + 23 *V) +X,L * 65 +Y 2320 LINE[C]H * 81 +X,L * 46 +Y,H * 174 +X,L * 46 +Y,H * 179 +X,L * 55 +Y 2330 LINE[C]H * 75 +X,L * 55 +Y,H * 179 +X,L * 55 +Y,H *( 153 - 11 *V) +X,L *( 100 + 19 *V) +Y 2340 LINE[C]H * 70 +X,L * 65 +Y,H * 163 +X,L * 65 +Y,H *( 148 - 11 *V) +X,L *( 91 + 19 *V) +Y 2350 LINE[C]H * 151 +X,L * 65 +Y,H *( 142 - 11 *V) +X,L *( 81 + 19 *V) +Y: RETURN 2360 : '********************************* 2370 : '* PAINT TR * 2380 : '********************************* 2390 LABEL"TRP1": PAINT[C1]H * 30 +X,L * 60 +Y,C 2400 PAINT[C1]H * 80 +X,L * 58 +Y,C: PAINT[C1]H * 137 +X,L * 120 +Y,C 2410 PAINT[C2]H * 155 +X,L * 70 +Y,C: PAINT[C2]H * 130 +X,L * 110 +Y,C 2420 PAINT[C2]H * 48 +X,L * 130 +Y,C: PAINT[C3]H * 83 +X,L * 170 +Y,C 2430 PAINT[C3]H * 60 +X,L * 130 +Y,C: PAINT[C3]H * 85 +X,L * 53 +Y,C: RETURN 2440 LABEL"TRP2": PAINT[C1]H * 170 +X,L * 150 +Y,C 2450 PAINT[C1]H * 95 +X,L * 150 +Y,C: PAINT[C1]H * 49 +X,L * 90 +Y,C 2460 PAINT[C2]H * 93 +X,L * 5 +Y,C: PAINT[C2]H * 130 +X,L * 70 +Y,C 2470 PAINT[C2]H * 100 +X,L * 140 +Y,C: PAINT[C3]H * 6 +X,L * 145 +Y,C 2480 PAINT[C3]H * 43 +X,L * 80 +Y,C: PAINT[C3]H * 120 +X,L * 70 +Y,C: RETURN 2490 : 'SYMBOL -------------------------------------------------------------- 2500 INIT"CRT:M3": PAL 1, 12 2510 FORJ = 1 TO 8:X = 599:Y = 0:XD =(X + 3 - 64 *J) / - 33:YD = 59 / 33:A$ = MID$("Personal",J, 1) 2520 XA = 1:YA = 1:S = 0: GOSUB"DISP": NEXTJ 2530 FORJ = 1 TO 8:X = 599:Y = 167:XD =(X - 29 - 64 *J) / - 33:YD = 78 / - 33:A$ = MID$("Computer",J, 1) 2540 XA = 1:YA = 1:S = 0: GOSUB"DISP": NEXTJ 2550 SYMBOL 124, 10,"SHARP", 8, 4, 0: SYMBOL 100, 130,"MZ-800", 8, 8, 0 2560 USR( $fe9a) 2561 PAL 1, 2: PAL 0, 9: USR( $fe9a): PAL 1, 15: GOTO"MAKU" 2570 LABEL"DISP": FORI = 1 TO 33 2580 X =X +XD:Y =Y +YD:XA =XA + 8 / 33:YA =YA + 4 / 33 2590 ONS GOTO"1","2","3" 2600 LABEL"0":X1 =X:Y1 =Y:XB =XA:YB =YA: GOTO"SYM" 2610 LABEL"1":X1 =X:Y1 =Y + 8 *YA:XB =XA /(XA /YA):YB =YA *(XA /YA): GOTO"SYM" 2620 LABEL"2":X1 =X + 8 *XA:Y1 =Y + 8 *YA:XB =XA:YB =YA: GOTO"SYM" 2630 LABEL"3":X1 =X + 8 *XA:Y1 =Y:XB =XA /(XA /YA):YB =YA *(XA /YA) 2640 LABEL"SYM": IFI = 1: ELSE SYMBOL[ 0]XX,YY,A$,XC,YC,SS 2650 SYMBOL[ 1]X1,Y1,A$,XB,YB,S 2660 XX =X1:YY =Y1:SS =S:XC =XB:YC =YB 2670 S =S + 1: IFS = 4 THENS = 0 2680 NEXTI: RETURN