mirror of
https://github.com/rfivet/BCG101.git
synced 2024-06-26 10:15:24 +00:00
Add POETRY.
This commit is contained in:
parent
36d630613a
commit
88c23128a8
231
dec/POETRY.BAS
Normal file
231
dec/POETRY.BAS
Normal file
|
|
@ -0,0 +1,231 @@
|
|||
100 GO TO 110
|
||||
110 LET D=0
|
||||
120 LET D=D+1
|
||||
130 GO TO 1300
|
||||
140 PRINT "THE HOURS RISE UP PUTTING OFF STARS"
|
||||
150 LET A1=1
|
||||
160 LET D=D+1
|
||||
170 PRINT " AND IT IS DAWN"
|
||||
180 GO TO 1350
|
||||
190 PRINT "INTO THE STREET OF THE SKY LIGHT"
|
||||
200 LET A2=1
|
||||
210 LET D=D+1
|
||||
220 PRINT " WALKS SCATTERING POEMS"
|
||||
230 GO TO 1350
|
||||
240 PRINT "ON EARTH A CANDLE IS EXTINGUISHED"
|
||||
250 LET A3=1
|
||||
260 LET D=D+1
|
||||
270 PRINT " THE CITY WAKES"
|
||||
280 GO TO 1350
|
||||
290 PRINT "WITH A SONG UPON HER MOUTH"
|
||||
300 LET A4=1
|
||||
310 LET D=D+1
|
||||
320 PRINT " HAVING DEATH IN HER EYES"
|
||||
330 GO TO 1350
|
||||
340 PRINT "AND IT IS DAWN"
|
||||
350 PRINT " THE WORLD"
|
||||
360 LET A5=1
|
||||
370 LET D=D+1
|
||||
380 PRINT " GOES FORTH TO MURDER DREAMS"
|
||||
390 GO TO 1350
|
||||
400 PRINT " AND IT IS DAY"
|
||||
410 LET C5=1
|
||||
420 LET D=D+1
|
||||
430 GO TO 1350
|
||||
440 PRINT "IN THE MIRROR I SEE A MAN, AND HE"
|
||||
450 PRINT " SCREAMS"
|
||||
460 LET D= D+1
|
||||
470 LET C5=1
|
||||
480 PRINT "FOR HE IS ME"
|
||||
490 LET D=D+1
|
||||
500 PRINT " AND I HE"
|
||||
510 GO TO 1350
|
||||
520 PRINT "AND IT IS DUSK"
|
||||
530 LET A7=1
|
||||
540 LET D=D+1
|
||||
550 PRINT " ON EARTH"
|
||||
560 GO TO 1350
|
||||
570 PRINT "A CANDLE IS LIGHTED"
|
||||
580 LET A8=1
|
||||
590 LET D=D+1
|
||||
600 PRINT " AND IT IS DARK"
|
||||
610 GO TO 1350
|
||||
620 PRINT " THE PEOPLE ARE IN THEIR HOUSES"
|
||||
630 LET A9=1
|
||||
640 LET D=D+1
|
||||
650 GO TO 1350
|
||||
660 PRINT "SHE SLEEPS WITH DEATH UPON HER MOUTH"
|
||||
670 LET B1=1
|
||||
680 LET D=D+1
|
||||
690 PRINT " AND A SONG IN HER EYES"
|
||||
700 GO TO 1350
|
||||
710 PRINT " THE HOURS DESENDED"
|
||||
720 LET B2=1
|
||||
730 LET D=D+1
|
||||
740 PRINT " PUTTING ON STARS"
|
||||
750 GO TO 1350
|
||||
760 PRINT "NOBODY LOSES ALL THE TIME "
|
||||
770 LET B3=1
|
||||
780 LET D=D+1
|
||||
790 GO TO 1350
|
||||
800 PRINT "HIS MOST WISE MUSIC STOLE"
|
||||
810 LET B4=1
|
||||
820 LET D=D+1
|
||||
830 PRINT " NOTHING FROM DEATH"
|
||||
840 GO TO 1350
|
||||
850 PRINT "LOVE IS THE EVER ONLY GOD"
|
||||
860 LET B5=1
|
||||
870 LET D=D+1
|
||||
880 GO TO 1350
|
||||
890 PRINT "WHO SPOKE THIS EARTH SO GLAD AND BIG"
|
||||
900 LET B6=1
|
||||
910 LET D=D+1
|
||||
920 PRINT " EVEN A THING ALL SMALL AND SAD"
|
||||
930 GO TO 1350
|
||||
940 PRINT "WHO IS AFRAID OF DEATH?THOU"
|
||||
950 LET B7=1
|
||||
960 LET D=D+1
|
||||
970 PRINT " ART OF HIM"
|
||||
980 GO TO 1350
|
||||
990 PRINT "OR WITH THY MIND AGAINST MY MIND,"
|
||||
1000 LET B8=1
|
||||
1010 LET D=D+1
|
||||
1020 PRINT " YOU SHOULD NOT HEAR ME SPEAK"
|
||||
1030 GO TO 1350
|
||||
1040 PRINT "FOR IF HE IS GONE AND I AM HERE"
|
||||
1050 LET B9=1
|
||||
1060 LET D=D+1
|
||||
1070 PRINT " THERE IS NO MEETING"
|
||||
1080 GO TO 1350
|
||||
1090 PRINT " TIME IS TWISTED TO LAP UPON"
|
||||
1100 LET C1=1
|
||||
1110 LET D=D+1
|
||||
1120 PRINT " ITSELF FOREVER"
|
||||
1130 GO TO 1350
|
||||
1140 PRINT "AND SPACE IS MISING FOR IT WAS "
|
||||
1150 LET C2=1
|
||||
1160 LET D=D+1
|
||||
1170 PRINT "STOLEN FOR ALL TIME TO COME "
|
||||
1180 GO TO 1350
|
||||
1190 PRINT "THERE IS NEVER AN END,"
|
||||
1200 LET C3=1
|
||||
1210 LET D=D+1
|
||||
1220 PRINT " MERELY A BELATED BEGINING..."
|
||||
1230 GO TO 1350
|
||||
1240 PRINT "AND TWICE REPEATED THERE"
|
||||
1250 LET C4=1
|
||||
1260 PRINT " WAS NO MORE"
|
||||
1270 GO TO 1350
|
||||
1280 PRINT
|
||||
1281 D=D+1
|
||||
1290 GO TO 1350
|
||||
1300 PRINT " RANDOM POETRY IN FOUR PART HARMONY."
|
||||
1310 PRINT
|
||||
1320 PRINT
|
||||
1330 IF Q=INT(Q) THEN 1280
|
||||
1340 IF D=12 THEN 2330
|
||||
1350 LET X=RND(-1)*24
|
||||
1360 LET X1=INT(X)+1
|
||||
1361 IF D=4 THEN1280
|
||||
1362 IF D=8 THEN1280
|
||||
1363 IF D>16 THEN 2330
|
||||
1370 IF X1=1 THEN 1390
|
||||
1380 GO TO 1410
|
||||
1390 IF A1=1 THEN 1410
|
||||
1400 IF X1=1 THEN 140
|
||||
1410 IF X1=2 THEN 1430
|
||||
1420 GO TO 1450
|
||||
1430 IF A2=1 THEN 1450
|
||||
1440 IF X1=2 THEN 290
|
||||
1450 IF X1=3 THEN 1470
|
||||
1460 GO TO 1490
|
||||
1470 IF A3=1 THEN 1490
|
||||
1480 IF X1=3 THEN 190
|
||||
1490 IF X1=4 THEN1510
|
||||
1500 GO TO 1530
|
||||
1510 IF A4=1 THEN 1530
|
||||
1520 IF X1=4 THEN 240
|
||||
1530 IF X1=5 THEN 1550
|
||||
1540 GO TO 1570
|
||||
1550 IF A5=1 THEN 1570
|
||||
1560 IF X1=5 THEN 340
|
||||
1570 IF X1=6 THEN 1590
|
||||
1580 GO TO 1610
|
||||
1590 IF A6= 1 THEN 1610
|
||||
1600 IF X1=6 THEN 400
|
||||
1610IF X1=7 THEN 1630
|
||||
1620 GO TO 1650
|
||||
1630 IF A7=1 THEN 1650
|
||||
1640 GO TO 520
|
||||
1650 IF X1=8 THEN 1670
|
||||
1660 GO TO 1690
|
||||
1670 IF A8=1 THEN 1690
|
||||
1680 GO TO 570
|
||||
1690 IF X1=9 THEN 1710
|
||||
1700 GO TO 1730
|
||||
1710 IF A9=1 THEN 1730
|
||||
1720 GO TO 620
|
||||
1730 IF X1=10 THEN 1750
|
||||
1740 GO TO 1780
|
||||
1750 GO TO 1760
|
||||
1760 IF B1=1 THEN 1780
|
||||
1770 GO TO 660
|
||||
1780 IF X1=11 THEN 1800
|
||||
1790 GO TO 1820
|
||||
1800 IF B2=1 THEN 1820
|
||||
1810 GO TO 710
|
||||
1820 IF X1=12 THEN 1840
|
||||
1830 GO TO 1860
|
||||
1840 IF B3=1 THEN 1860
|
||||
1850 GO TO 760
|
||||
1860 IF X1=13 THEN 1880
|
||||
1870 GO TO 1900
|
||||
1880 IF B4=1 THEN 1900
|
||||
1890 GO TO 800
|
||||
1900 IF X1=14 THEN 1920
|
||||
1910 GO TO 1940
|
||||
1920 IF B5=1 THEN 1840
|
||||
1930 GO TO 850
|
||||
1940 IF X1=15 THEN 1960
|
||||
1950 GO TO 1980
|
||||
1960 IF B6=1 THEN 1980
|
||||
1970 GO TO 890
|
||||
1980 IF X1=16 THEN 2000
|
||||
1990 GO TO 2020
|
||||
2000 IF B7=1 THEN 2020
|
||||
2010 GO TO 940
|
||||
2020 IF X1=17 THEN 2040
|
||||
2030 GO TO 2060
|
||||
2040 IF B8=1 THEN 2060
|
||||
2050 GO TO 990
|
||||
2060 IF X1=18 THEN 2080
|
||||
2070 GO TO 2100
|
||||
2080 IF B9=1 THEN 2100
|
||||
2090 GO TO 1040
|
||||
2100 IF X1=19 THEN 2120
|
||||
2110 GO TO 2140
|
||||
2120 IF C1=1 THEN 2140
|
||||
2130 GO TO 1090
|
||||
2140 IF X1=20 THEN 2160
|
||||
2150 GO TO 2180
|
||||
2160 IF C2=1 THEN 2180
|
||||
2170 GO TO 1140
|
||||
2180 IF X1=21 THEN 2200
|
||||
2190 GO TO 2220
|
||||
2200 IF C3=1 THEN 2220
|
||||
2210 GO TO 1190
|
||||
2220 IF X1=22 THEN 2240
|
||||
2230 GO TO 2260
|
||||
2240 IF C4=1 THEN 2260
|
||||
2250 GO TO 1240
|
||||
2260 IF X1=23 THEN 2280
|
||||
2270 GO TO 2300
|
||||
2280 IF C5=1 THEN 2300
|
||||
2290 GO TO 440
|
||||
2300 GO TO 2320
|
||||
2310 IF X1=24 THEN 1280
|
||||
2320 GO TO 1350
|
||||
2330 PRINT
|
||||
2340 PRINT
|
||||
2350 PRINT " BY A. COM PUTER."
|
||||
2360 END
|
||||
92
factory/POETRY.BAS
Normal file
92
factory/POETRY.BAS
Normal file
|
|
@ -0,0 +1,92 @@
|
|||
100 RANDOMIZE
|
||||
110 DIM A(24)
|
||||
130 GO TO 1300
|
||||
140 PRINT "THE HOURS RISE UP PUTTING OFF STARS"
|
||||
170 PRINT " AND IT IS DAWN"
|
||||
180 GO TO 1350
|
||||
190 PRINT "INTO THE STREET OF THE SKY LIGHT"
|
||||
220 PRINT " WALKS SCATTERING POEMS"
|
||||
230 GO TO 1350
|
||||
240 PRINT "ON EARTH A CANDLE IS EXTINGUISHED"
|
||||
270 PRINT " THE CITY WAKES"
|
||||
280 GO TO 1350
|
||||
290 PRINT "WITH A SONG UPON HER MOUTH"
|
||||
320 PRINT " HAVING DEATH IN HER EYES"
|
||||
330 GO TO 1350
|
||||
340 PRINT "AND IT IS DAWN"
|
||||
350 PRINT " THE WORLD"
|
||||
380 PRINT " GOES FORTH TO MURDER DREAMS"
|
||||
390 GO TO 1350
|
||||
400 PRINT " AND IT IS DAY"
|
||||
430 GO TO 1350
|
||||
440 PRINT "IN THE MIRROR I SEE A MAN, AND HE"
|
||||
450 PRINT " SCREAMS"
|
||||
480 PRINT "FOR HE IS ME"
|
||||
490 D=D+1
|
||||
500 PRINT " AND I HE"
|
||||
510 GO TO 1350
|
||||
520 PRINT "AND IT IS DUSK"
|
||||
550 PRINT " ON EARTH"
|
||||
560 GO TO 1350
|
||||
570 PRINT "A CANDLE IS LIGHTED"
|
||||
600 PRINT " AND IT IS DARK"
|
||||
610 GO TO 1350
|
||||
620 PRINT " THE PEOPLE ARE IN THEIR HOUSES"
|
||||
650 GO TO 1350
|
||||
660 PRINT "SHE SLEEPS WITH DEATH UPON HER MOUTH"
|
||||
690 PRINT " AND A SONG IN HER EYES"
|
||||
700 GO TO 1350
|
||||
710 PRINT " THE HOURS DESCENDED"
|
||||
740 PRINT " PUTTING ON STARS"
|
||||
750 GO TO 1350
|
||||
760 PRINT "NOBODY LOSES ALL THE TIME "
|
||||
790 GO TO 1350
|
||||
800 PRINT "HIS MOST WISE MUSIC STOLE"
|
||||
830 PRINT " NOTHING FROM DEATH"
|
||||
840 GO TO 1350
|
||||
850 PRINT "LOVE IS THE EVER ONLY GOD"
|
||||
880 GO TO 1350
|
||||
890 PRINT "WHO SPOKE THIS EARTH SO GLAD AND BIG"
|
||||
920 PRINT " EVEN A THING ALL SMALL AND SAD"
|
||||
930 GO TO 1350
|
||||
940 PRINT "WHO IS AFRAID OF DEATH? THOU"
|
||||
970 PRINT " ART OF HIM"
|
||||
980 GO TO 1350
|
||||
990 PRINT "OR WITH THY MIND AGAINST MY MIND,"
|
||||
1020 PRINT " YOU SHOULD NOT HEAR ME SPEAK"
|
||||
1030 GO TO 1350
|
||||
1040 PRINT "FOR IF HE IS GONE AND I AM HERE"
|
||||
1070 PRINT " THERE IS NO MEETING"
|
||||
1080 GO TO 1350
|
||||
1090 PRINT " TIME IS TWISTED TO LAP UPON"
|
||||
1120 PRINT " ITSELF FOREVER"
|
||||
1130 GO TO 1350
|
||||
1140 PRINT "AND SPACE IS MISSING FOR IT WAS "
|
||||
1170 PRINT "STOLEN FOR ALL TIME TO COME "
|
||||
1180 GO TO 1350
|
||||
1190 PRINT "THERE IS NEVER AN END,"
|
||||
1220 PRINT " MERELY A BELATED BEGINNING..."
|
||||
1230 GO TO 1350
|
||||
1240 PRINT "AND TWICE REPEATED THERE"
|
||||
1250 PRINT " WAS NO MORE"
|
||||
1260 D=D-1
|
||||
1270 GO TO 1350
|
||||
1280 PRINT
|
||||
1285 A(24)=0
|
||||
1290 GO TO 1350
|
||||
1300 PRINT " RANDOM POETRY IN FOUR PART HARMONY."
|
||||
1310 PRINT
|
||||
1320 PRINT
|
||||
1350 D=D+1
|
||||
1360 IF D>=16 THEN 1500
|
||||
1370 IF D-INT(D/4)*4=0 THEN 1280
|
||||
1400 X=INT(RND(1)*24)+1
|
||||
1410 IF A(X)<>0 THEN 1400
|
||||
1420 A(X)=1
|
||||
1430 IF X>12 THEN 1450
|
||||
1440 ON X GOTO 140,190,240,290,340,400, 440, 520, 570, 620, 660, 710
|
||||
1450 ON X-12 GOTO 760,800,850,890,940,990,1040,1090,1140,1190,1240,1280
|
||||
1500 PRINT
|
||||
1510 PRINT
|
||||
1520 PRINT " BY A. COM PUTER."
|
||||
2000 END
|
||||
231
port/POETRY.BAS
Normal file
231
port/POETRY.BAS
Normal file
|
|
@ -0,0 +1,231 @@
|
|||
100 RANDOMIZE
|
||||
110 LET D=0
|
||||
120 LET D=D+1
|
||||
130 GO TO 1300
|
||||
140 PRINT "THE HOURS RISE UP PUTTING OFF STARS"
|
||||
150 LET A1=1
|
||||
160 LET D=D+1
|
||||
170 PRINT " AND IT IS DAWN"
|
||||
180 GO TO 1350
|
||||
190 PRINT "INTO THE STREET OF THE SKY LIGHT"
|
||||
200 LET A2=1
|
||||
210 LET D=D+1
|
||||
220 PRINT " WALKS SCATTERING POEMS"
|
||||
230 GO TO 1350
|
||||
240 PRINT "ON EARTH A CANDLE IS EXTINGUISHED"
|
||||
250 LET A3=1
|
||||
260 LET D=D+1
|
||||
270 PRINT " THE CITY WAKES"
|
||||
280 GO TO 1350
|
||||
290 PRINT "WITH A SONG UPON HER MOUTH"
|
||||
300 LET A4=1
|
||||
310 LET D=D+1
|
||||
320 PRINT " HAVING DEATH IN HER EYES"
|
||||
330 GO TO 1350
|
||||
340 PRINT "AND IT IS DAWN"
|
||||
350 PRINT " THE WORLD"
|
||||
360 LET A5=1
|
||||
370 LET D=D+1
|
||||
380 PRINT " GOES FORTH TO MURDER DREAMS"
|
||||
390 GO TO 1350
|
||||
400 PRINT " AND IT IS DAY"
|
||||
410 LET A6=1
|
||||
420 LET D=D+1
|
||||
430 GO TO 1350
|
||||
440 PRINT "IN THE MIRROR I SEE A MAN, AND HE"
|
||||
450 PRINT " SCREAMS"
|
||||
460 LET D= D+1
|
||||
470 LET C5=1
|
||||
480 PRINT "FOR HE IS ME"
|
||||
490 LET D=D+1
|
||||
500 PRINT " AND I HE"
|
||||
510 GO TO 1350
|
||||
520 PRINT "AND IT IS DUSK"
|
||||
530 LET A7=1
|
||||
540 LET D=D+1
|
||||
550 PRINT " ON EARTH"
|
||||
560 GO TO 1350
|
||||
570 PRINT "A CANDLE IS LIGHTED"
|
||||
580 LET A8=1
|
||||
590 LET D=D+1
|
||||
600 PRINT " AND IT IS DARK"
|
||||
610 GO TO 1350
|
||||
620 PRINT " THE PEOPLE ARE IN THEIR HOUSES"
|
||||
630 LET A9=1
|
||||
640 LET D=D+1
|
||||
650 GO TO 1350
|
||||
660 PRINT "SHE SLEEPS WITH DEATH UPON HER MOUTH"
|
||||
670 LET B1=1
|
||||
680 LET D=D+1
|
||||
690 PRINT " AND A SONG IN HER EYES"
|
||||
700 GO TO 1350
|
||||
710 PRINT " THE HOURS DESCENDED"
|
||||
720 LET B2=1
|
||||
730 LET D=D+1
|
||||
740 PRINT " PUTTING ON STARS"
|
||||
750 GO TO 1350
|
||||
760 PRINT "NOBODY LOSES ALL THE TIME "
|
||||
770 LET B3=1
|
||||
780 LET D=D+1
|
||||
790 GO TO 1350
|
||||
800 PRINT "HIS MOST WISE MUSIC STOLE"
|
||||
810 LET B4=1
|
||||
820 LET D=D+1
|
||||
830 PRINT " NOTHING FROM DEATH"
|
||||
840 GO TO 1350
|
||||
850 PRINT "LOVE IS THE EVER ONLY GOD"
|
||||
860 LET B5=1
|
||||
870 LET D=D+1
|
||||
880 GO TO 1350
|
||||
890 PRINT "WHO SPOKE THIS EARTH SO GLAD AND BIG"
|
||||
900 LET B6=1
|
||||
910 LET D=D+1
|
||||
920 PRINT " EVEN A THING ALL SMALL AND SAD"
|
||||
930 GO TO 1350
|
||||
940 PRINT "WHO IS AFRAID OF DEATH? THOU"
|
||||
950 LET B7=1
|
||||
960 LET D=D+1
|
||||
970 PRINT " ART OF HIM"
|
||||
980 GO TO 1350
|
||||
990 PRINT "OR WITH THY MIND AGAINST MY MIND,"
|
||||
1000 LET B8=1
|
||||
1010 LET D=D+1
|
||||
1020 PRINT " YOU SHOULD NOT HEAR ME SPEAK"
|
||||
1030 GO TO 1350
|
||||
1040 PRINT "FOR IF HE IS GONE AND I AM HERE"
|
||||
1050 LET B9=1
|
||||
1060 LET D=D+1
|
||||
1070 PRINT " THERE IS NO MEETING"
|
||||
1080 GO TO 1350
|
||||
1090 PRINT " TIME IS TWISTED TO LAP UPON"
|
||||
1100 LET C1=1
|
||||
1110 LET D=D+1
|
||||
1120 PRINT " ITSELF FOREVER"
|
||||
1130 GO TO 1350
|
||||
1140 PRINT "AND SPACE IS MISSING FOR IT WAS "
|
||||
1150 LET C2=1
|
||||
1160 LET D=D+1
|
||||
1170 PRINT "STOLEN FOR ALL TIME TO COME "
|
||||
1180 GO TO 1350
|
||||
1190 PRINT "THERE IS NEVER AN END,"
|
||||
1200 LET C3=1
|
||||
1210 LET D=D+1
|
||||
1220 PRINT " MERELY A BELATED BEGINNING..."
|
||||
1230 GO TO 1350
|
||||
1240 PRINT "AND TWICE REPEATED THERE"
|
||||
1250 LET C4=1
|
||||
1260 PRINT " WAS NO MORE"
|
||||
1270 GO TO 1350
|
||||
1280 PRINT
|
||||
1281 D=D+1
|
||||
1290 GO TO 1350
|
||||
1300 PRINT " RANDOM POETRY IN FOUR PART HARMONY."
|
||||
1310 PRINT
|
||||
1320 PRINT
|
||||
1330 IF Q=INT(Q) THEN 1280
|
||||
1340 IF D=12 THEN 2033
|
||||
1350 LET X=RND(-1)*24
|
||||
1360 LET X1=INT(X)+1
|
||||
1361 IF D=4 THEN1280
|
||||
1362 IF D=8 THEN1280
|
||||
1363 IF D>16 THEN 2033
|
||||
1370 IF X1=1 THEN 1390
|
||||
1380 GO TO 1410
|
||||
1390 IF A1=1 THEN 1410
|
||||
1400 IF X1=1 THEN 140
|
||||
1410 IF X1=2 THEN 1430
|
||||
1420 GO TO 1450
|
||||
1430 IF A2=1 THEN 1450
|
||||
1440 IF X1=2 THEN 290
|
||||
1450 IF X1=3 THEN 1470
|
||||
1460 GO TO 1490
|
||||
1470 IF A3=1 THEN 1490
|
||||
1480 IF X1=3 THEN 190
|
||||
1490 IF X1=4 THEN1510
|
||||
1500 GO TO 1530
|
||||
1510 IF A4=1 THEN 1530
|
||||
1520 IF X1=4 THEN 240
|
||||
1530 IF X1=5 THEN 1550
|
||||
1540 GO TO 1570
|
||||
1550 IF A5=1 THEN 1570
|
||||
1560 IF X1=5 THEN 340
|
||||
1570 IF X1=6 THEN 1590
|
||||
1580 GO TO 1610
|
||||
1590 IF A6= 1 THEN 1610
|
||||
1600 IF X1=6 THEN 400
|
||||
1610IF X1=7 THEN 1630
|
||||
1620 GO TO 1650
|
||||
1630 IF A7=1 THEN 1650
|
||||
1640 GO TO 520
|
||||
1650 IF X1=8 THEN 1670
|
||||
1660 GO TO 1690
|
||||
1670 IF A8=1 THEN 1690
|
||||
1680 GO TO 570
|
||||
1690 IF X1=9 THEN 1710
|
||||
1700 GO TO 1730
|
||||
1710 IF A9=1 THEN 1730
|
||||
1720 GO TO 620
|
||||
1730 IF X1=10 THEN 1750
|
||||
1740 GO TO 1780
|
||||
1750 GO TO 1760
|
||||
1760 IF B1=1 THEN 1780
|
||||
1770 GO TO 660
|
||||
1780 IF X1=11 THEN 1800
|
||||
1790 GO TO 1820
|
||||
1800 IF B2=1 THEN 1820
|
||||
1810 GO TO 710
|
||||
1820 IF X1=12 THEN 1840
|
||||
1830 GO TO 1860
|
||||
1840 IF B3=1 THEN 1860
|
||||
1850 GO TO 760
|
||||
1860 IF X1=13 THEN 1880
|
||||
1870 GO TO 1900
|
||||
1880 IF B4=1 THEN 1900
|
||||
1890 GO TO 800
|
||||
1900 IF X1=14 THEN 1920
|
||||
1910 GO TO 1940
|
||||
1920 IF B5=1 THEN 1840
|
||||
1930 GO TO 850
|
||||
1940 IF X1=15 THEN 1960
|
||||
1950 GO TO 1980
|
||||
1960 IF B6=1 THEN 1980
|
||||
1970 GO TO 890
|
||||
1980 IF X1=16 THEN 2000
|
||||
1990 GO TO 2002
|
||||
2000 IF B7=1 THEN 2002
|
||||
2001 GO TO 940
|
||||
2002 IF X1=17 THEN 2004
|
||||
2003 GO TO 2006
|
||||
2004 IF B8=1 THEN 2006
|
||||
2005 GO TO 990
|
||||
2006 IF X1=18 THEN 2008
|
||||
2007 GO TO 2010
|
||||
2008 IF B9=1 THEN 2010
|
||||
2009 GO TO 1040
|
||||
2010 IF X1=19 THEN 2012
|
||||
2011 GO TO 2014
|
||||
2012 IF C1=1 THEN 2014
|
||||
2013 GO TO 1090
|
||||
2014 IF X1=20 THEN 2016
|
||||
2015 GO TO 2018
|
||||
2016 IF C2=1 THEN 2018
|
||||
2017 GO TO 1140
|
||||
2018 IF X1=21 THEN 2020
|
||||
2019 GO TO 2022
|
||||
2020 IF C3=1 THEN 2022
|
||||
2021 GO TO 1190
|
||||
2022 IF X1=22 THEN 2024
|
||||
2023 GO TO 2026
|
||||
2024 IF C4=1 THEN 2026
|
||||
2025 GO TO 1240
|
||||
2026 IF X1=23 THEN 2028
|
||||
2027 GO TO 2030
|
||||
2028 IF C5=1 THEN 2030
|
||||
2029 GO TO 440
|
||||
2030 GO TO 2032
|
||||
2031 IF X1=24 THEN 1280
|
||||
2032 GO TO 1350
|
||||
2033 PRINT
|
||||
2034 PRINT
|
||||
2035 PRINT " BY A. COM PUTER."
|
||||
2036 END
|
||||
Loading…
Reference in New Issue
Block a user