Полигон-2

Идею игрушки видел еще в детстве на каких-то радиолюбительских компах типа Радио-86РК, Специалист, и т.д. Сюжет игры - очень примитивный тир, небось еще и "самописный".
Потом когда мне уже было лет 10, и у меня уже был IBM-совместимый комп (386 SX-33), решил самостоятельно написать данную игрушку на gw-basic'e.
С переездами с винта на винт и дальнейшим апгрейтом машины игрушка потерялась. А вот сегодня решил взять дискеты 5.25", дисковод к ним на 1.2МБ (которые уже лет 10 никто не трогал, только перекладывали с места на место).
Подрубил его к 286-му компу, загрузил dos 6.22, поставил драйвер 800, и стал исследовать старые дискеты. В итоге - на одной дискете в arj-вском архиве бейсиковских программ обнаружил исходник: letic2.bas, датированный: 10 января 1996 г., 20:54:50
конечно сейчас я бы написал ее намного быстрее и лучше...
Вот ее исходник в первозданном исполнении:
>br>10 REM ИГРА LETIC - II>br>20 REM ВЕРСИЯ ДЛЯ IBM>br>30 CLS>br>40 PRINT "                      L E T I C - II">br>50 PRINT "{здесь была полоска из досовской псевдографики, но в форуме не запостилась >img src="smiles/confused.gif" align=absmiddle alt=""> }">br>60 PRINT "ВЕРСИЯ 2.0">br>70 PRINT : PRINT>br>80 PRINT "СКОРОСТЬ ЛАСТОЧКИ  (1....100000) :";>br>90 INPUT "", A>br>100 LIVES = 5: LEVEL = 1: C = 0: SC = 0>br>110 REM>br>120 CLS : PRINT "SCORE : "; SC; " LIVES : "; LIVES; " LEVEL :"; LEVEL; " RINGS :"; C; "">br>130 REM >br>140 KEY OFF>br>150 LOCATE 20, 5: PRINT "/ ! \": LOCATE 21, 7: PRINT "A">br>160 LOCATE 20, 37: PRINT "/ ! \">br>170 LOCATE 21, 39: PRINT "B">br>180 LOCATE 20, 70: PRINT "/ @ \": LOCATE 21, 72: PRINT "C">br>190 FOR I = 1 TO 2>br>200 FOR U = 1 TO A: NEXT U>br>210 I = I + 1: LOCATE 5, I: PRINT " >O>">br>220 IF I = 73 THEN 300>br>230 A$ = INKEY$>br>240 IF A$ = "A" OR A$ = "a" THEN 420>br>250 IF A$ = "B" OR A$ = "b" THEN 860>br>260 IF A$ = "C" OR A$ = "c" THEN 1230>br>270 GOTO 200>br>280 REM FOR U=1 TO A :NEXT U>br>290 NEXT I: GOTO 300>br>300 CLS : PRINT "ВЫ УПУСТИЛИ ЛАСТОЧКУ !": LIVES = LIVES - 1>br>310 IF LIVES = 0 THEN 360>br>320 PRINT "НАЖМИТЕ ПРОБЕЛ">br>330 E$ = INKEY$>br>340 IF E$ = " " THEN CLS : GOTO 110>br>350 GOTO 330>br>360 PRINT "GAME OVER">br>370 PRINT : PRINT>br>380 PRINT "НАЖМИТЕ ПРОБЕЛ">br>390 U$ = INKEY$>br>400 IF U$ = " " THEN 30>br>410 GOTO 390>br>420 LOCATE 20, 7: PRINT "!">br>430 LOCATE 19, 7: PRINT "!">br>440 LOCATE 18, 7: PRINT "!">br>450 LOCATE 17, 7: PRINT "!">br>460 LOCATE 16, 7: PRINT "!">br>470 LOCATE 15, 7: PRINT "!">br>480 LOCATE 14, 7: PRINT "!">br>490 LOCATE 13, 7: PRINT "!">br>500 LOCATE 12, 7: PRINT "!">br>510 LOCATE 11, 7: PRINT "!">br>520 LOCATE 10, 7: PRINT "!">br>530 LOCATE 9, 7: PRINT "!">br>540 LOCATE 8, 7: PRINT "!">br>550 LOCATE 7, 7: PRINT "!">br>560 LOCATE 6, 7: PRINT "!">br>570 LOCATE 5, 7: PRINT "!">br>580 LOCATE 4, 7: PRINT "!">br>590 IF I = 7 OR I = 6 THEN 780>br>600 REM>br>610 REM>br>620 LOCATE 19, 7: PRINT " ">br>630 LOCATE 18, 7: PRINT " ">br>640 LOCATE 17, 7: PRINT " ">br>650 LOCATE 16, 7: PRINT " ">br>660 LOCATE 15, 7: PRINT " ">br>670 LOCATE 14, 7: PRINT " ">br>680 LOCATE 13, 7: PRINT " ">br>690 LOCATE 12, 7: PRINT " ">br>700 LOCATE 11, 7: PRINT " ">br>710 LOCATE 10, 7: PRINT " ">br>720 LOCATE 9, 7: PRINT " ">br>730 LOCATE 8, 7: PRINT " ">br>740 LOCATE 7, 7: PRINT " ">br>750 LOCATE 6, 7: PRINT " ">br>760 LOCATE 5, 7: PRINT " ">br>761 LOCATE 4, 7: PRINT " ">br>770 GOTO 210>br>780 CLS : SC = SC + 100>br>790 PRINT "ВЫ ЗАСТРЕЛИЛИ ЛАСТОЧКУ !!!">br>800 PRINT "ПОЗДРАВЛЯЮ !!!">br>810 PRINT "НАЖМИТЕ ПРОБЕЛ">br>820 T$ = INKEY$>br>830 IF T$ = " " THEN 850>br>840 GOTO 820>br>850 GOTO 120>br>860 LOCATE 20, 39: PRINT "!">br>870 LOCATE 19, 39: PRINT "!">br>880 LOCATE 18, 39: PRINT "!">br>890 LOCATE 17, 39: PRINT "!">br>900 LOCATE 16, 39: PRINT "!">br>910 LOCATE 15, 39: PRINT "!">br>920 LOCATE 14, 39: PRINT "!">br>930 LOCATE 13, 39: PRINT "!">br>940 LOCATE 12, 39: PRINT "!">br>950 LOCATE 11, 39: PRINT "!">br>960 LOCATE 10, 39: PRINT "!">br>970 LOCATE 9, 39: PRINT "!">br>980 LOCATE 8, 39: PRINT "!">br>990 LOCATE 7, 39: PRINT "!">br>1000 LOCATE 6, 39: PRINT "!">br>1010 LOCATE 5, 39: PRINT "!">br>1020 LOCATE 4, 39: PRINT "!">br>1030 IF I = 38 OR I = 39 THEN 780>br>1040 REM>br>1050 REM>br>1060 LOCATE 19, 39: PRINT " ">br>1070 LOCATE 18, 39: PRINT " ">br>1080 LOCATE 17, 39: PRINT " ">br>1090 LOCATE 16, 39: PRINT " ">br>1100 LOCATE 15, 39: PRINT " ">br>1110 LOCATE 14, 39: PRINT " ">br>1120 LOCATE 13, 39: PRINT " ">br>1130 LOCATE 12, 39: PRINT " ">br>1140 LOCATE 11, 39: PRINT " ">br>1150 LOCATE 10, 39: PRINT " ">br>1160 LOCATE 9, 39: PRINT " ">br>1170 LOCATE 8, 39: PRINT " ">br>1180 LOCATE 7, 39: PRINT " ">br>1190 LOCATE 6, 39: PRINT " ">br>1200 LOCATE 5, 39: PRINT " ">br>1210 LOCATE 4, 39: PRINT " ">br>1220 GOTO 210>br>1230 LOCATE 19, 72: PRINT "@">br>1240 LOCATE 18, 72: PRINT "@">br>1250 LOCATE 17, 72: PRINT "@">br>1260 LOCATE 16, 72: PRINT "@">br>1270 LOCATE 15, 72: PRINT "@">br>1280 LOCATE 14, 72: PRINT "@">br>1290 LOCATE 13, 72: PRINT "@">br>1300 LOCATE 12, 72: PRINT "@">br>1310 LOCATE 11, 72: PRINT "@">br>1320 LOCATE 10, 72: PRINT "@">br>1330 LOCATE 9, 72: PRINT "@">br>1340 LOCATE 8, 72: PRINT "@">br>1350 LOCATE 7, 72: PRINT "@">br>1360 LOCATE 6, 72: PRINT "@">br>1370 LOCATE 5, 72: PRINT "@">br>1380 LOCATE 4, 72: PRINT "@">br>1390 IF I = 71 OR I = 72 OR I = 73 THEN 1570>br>1400 LOCATE 19, 72: PRINT " ">br>1410 LOCATE 18, 72: PRINT " ">br>1420 LOCATE 17, 72: PRINT " ">br>1430 LOCATE 16, 72: PRINT " ">br>1440 LOCATE 15, 72: PRINT " ">br>1450 LOCATE 14, 72: PRINT " ">br>1460 LOCATE 13, 72: PRINT " ">br>1470 LOCATE 12, 72: PRINT " ">br>1480 LOCATE 11, 72: PRINT " ">br>1490 LOCATE 10, 72: PRINT " ">br>1500 LOCATE 9, 72: PRINT " ">br>1510 LOCATE 8, 72: PRINT " ">br>1520 LOCATE 7, 72: PRINT " ">br>1530 LOCATE 6, 72: PRINT " ">br>1540 LOCATE 5, 72: PRINT " ">br>1550 LOCATE 4, 72: PRINT " ">br>1560 GOTO 210>br>1570 IF C=10 THEN LEVEL=LEVEL+1:LIVES=LIVES+1:C=0:SCORE=SCORE+1000:GOTO 1580>br>1571 C=C+1:GOTO 1630>br>1580 CLS : PRINT "LEVEL COMPLETE !">br>1590 PRINT "HАЖMИТE ПPOБEЛ">br>1600 E$=INKEY$>br>1610 IF E$ = " " THEN 120>br>1620 GOTO 1600>br>1630 CLS : PRINT "BЫ 3АCТPEЛИЛИ ЛАCТOЧКУ !!!">br>1640 PRINT "ПO3ДPАBЛЯЮ !!!">br>1650 PRINT "HАЖMИТE ПPOБEЛ">br>1660 R$ = INKEY$>br>1670 IF R$ = " " THEN 1690>br>1680 GOTO 1660>br>1690 GOTO 120>br>
(Сообщение отредактировал doctorgenius 2 мая 2007 21:51)

помню, была у меня на микроше любимая бейсик-игра "посадка самолета".
и была мечта: распечатать листинг и набрать ее в кубейсике на 286...
принтера к микроше не было, поэтому мечта так и осталась мечтой...
а как думаете, пошла бы она под МС-ДОСом?

грустно, блин...
нет уже ни микроши, ни бейсика, ни 286...

[q]

Идею игрушки видел еще в детстве на каких-то радиолюбительских компах типа Радио-86РК

[/q]

У меня сохранился листинг игрушки XONIX-2 в шестнадцатиричных кодах для РК-86.

Уже когда-то совершал.
Там всего-то 5 страничек.