Код:
1 BORDER 0: PAPER 0: INK 7: CLS
2 POKE 23607,250
3 FOR A=-60 TO 60 STEP 5: BEEP 0.01,A: NEXT A
5 GO SUB 9000
10 REM ==TOPITIP==
15 PRINT AT 0,17;" TOPITIP"
17 PRINT AT 2,17;"=2.173"
20 PRINT AT 6,0;"IGRA PROSTA: UPRAVLdd NOLIKOM NADO COBRATa OPREDELENNOE KOLIWESTVO DOLLAROV ($),PRI cTOM NELad NATbKATaSd NA REHETKU (#),TAKJE MOJNO SOBIRATa VOPROSb () PRI cTOM Vb MOJETE LIBO POLUWITa 100 OWKOV LIBO MOJETE UMERETa,TAK-WTO VbBIRAITE."
22 PRINT AT 18,0;" q , A , O , p "
24 PRINT AT 21,17;"1"
25 PAUSE 0
26 PAUSE 0
29 REM ==MATEMATIKA==
30 GO SUB 9000
31 PRINT AT 0,17;" MATEMATIKA"
35 PRINT AT 2,17;"=2.624"
40 PRINT AT 6,0;" MATEMATIKA: IGRA OBUWAQeAd SLOJENIQ,VbWITANIQ,UMNOJENIQ I DELENIQ,A TAKJE REHENIQ PROSTEIHIX UROVNENII,DLd VTOROGO-TRETaETaEGO KLASA."
42 PRINT AT 18,0;"ENTR - VVOD WISEL,KLAVIHI: 1,2.."
45 PRINT AT 21,17;"2"
47 PAUSE 0
48 PAUSE 0
49 REM ==TABBLE==
50 GO SUB 9000
55 PRINT AT 0,17;" TABBLE"
60 PRINT AT 2,17;"929 BAIT."
65 PRINT AT 6,0;" TABBLE: PROGRAMMA DLd VbWISLENId: SINUSA,KOSINUSA,TANGENSA,VbWISLENIE KORNd,NAXOJDENIE ABSOLQTNOGO WISA DANNOGO WISLA I.T.D."
67 PRINT AT 18,0;" LQBbE KLAVIHI.."
69 PRINT AT 21,17;"3"
70 PAUSE 0
71 PAUSE 0
75 REM ==BLOK-L==
80 GO SUB 9000
85 PRINT AT 0,17;" BLOK-L"
87 PRINT AT 2,17;"=7.659(OBeAd)"
89 PRINT AT 6,0;"BLOK-L: BEISIK ZAGRUZWIK PROGRAMMb _LASER-BEISIK_"
91 PRINT AT 18,0;" OTSUTSTVUQT."
93 PRINT AT 21,17;"4"
94 PAUSE 0
96 PAUSE 0
99 REM ==BUM I BOM"
100 GO SUB 9000
102 PRINT AT 0,17;" BUM I BOM"
105 PRINT AT 2,17;"=4.469(OBeAd)"
107 PRINT AT 6,0;"BUM I BOM: PRIKLQWENId DVUX ZABAVNbX KOLOBKOV,UPRABLdd IMI Vb DOLJNb SOBRATa KAK-MOJNO BOLaHE VSdKIX VKUSNbX VEeEI: _dBLOKI,VIHENKI,BANANb,TARELKI S SUPOM,A TAKJE VAM NADO IZBEGATa STOLKNOVENId S SERDCAMI,KOTORbE VO MNOJESTVE RAZBROSANb PO cKRANU POBEJDAET TOT KTO NABERET BOLaHE OWKOV."
109 PRINT AT 18,0;"SINKLAIR-DJOISTIK, KLAVIHI:q,A,O,p"
111 PRINT AT 21,17;"5"
113 PAUSE 0
115 PAUSE 0
120 REM ==BUM I BOM 2"
122 GO SUB 9000
125 PRINT AT 0,17;" BUM I BOM2"
127 PRINT AT 2,17;"=4.501(OBeAd)"
130 PRINT AT 6,0;" BUM I BOM2: ,NA cTOT RAZ BUMU NADO SPASTI BOMA,VAM TAKJE MEHAQTSd SERDCA RAZBROSANbE PO cKRANU,NO IGRA USLOJNdTSd: Vb MOJETE XODITa LIH VLEVO I VPRAVO,NASTUPIV NA PUSTOE MESTO Vb PADAETE VNIZ,VAM NADO VZdTa S SOBOI _BOMA_,MIGAQeII KOLOBOK,PO PUTI SOBIRAITE VEeI,V IGRE DESdTa UROVNEI."
135 PRINT AT 18,0;"SINKLAIR-DJOISTIK."
137 PRINT AT 21,17;"6"
138 PAUSE 0
139 PAUSE 0
140 REM == ==TANK== ==
145 GO SUB 9000
150 PRINT AT 0,17;"=TANK="
152 PRINT AT 2,17;"=3.339(OBeAd)"
154 PRINT AT 6,0;" =TANK=: POLNOE NAZVANIE IGRb(TANKOS KOMANDOS),UPRAVLdd TANKOM Vb DOLJNb LOVKO OBYEZJAd MINb PROEXATa PO POLQ I SOBRATa VSEX SOLDAT A ZATEM ZAEXATa V KREPOSTa,IGRA PROSTAd,VAM DAETSd 5 JIZNEI, U VAS ESTa I cNERGId,SLEDITE ZA NEI I VREMd OT VREMENI POPOLNdITE EE ZAPAS(MOLNII)."
156 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
158 PRINT AT 21,17;"7"
159 PAUSE 0
160 PAUSE 0
165 REM ==DITETRIS==
170 GO SUB 9000
175 PRINT AT 0,17;" DITETRIS"
177 PRINT AT 2,17;"=6.545(OBeAd)"
179 PRINT AT 6,0;" DITETRIS: RAZNOVIDNOSTa TETRISA,V NEM NE NUJNO SOBIRATa LINII,NO ZATO V cTOI IGRE ESTa NESKOLaKO SQRaPRIZOV,KOTORbX NET NIVKAKOM DRUGOM TETRISE,A CELa IGRb OWENa PROSTA VAM NADO SLOJITa OPREDELENNOE KOLIWESTVO KUBIKOV,SQRPRIZb NAIDITE SAMI."
181 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
184 PRINT AT 21,17;"8"
186 PAUSE 0
188 PAUSE 0
190 REM ==INZZ==
195 GO SUB 9000
197 PRINT AT 0,17;" INZZ"
200 PRINT AT 2,17;"=2.218(OBeAd)"
205 PRINT AT 6,0;" INZZ: PITON,VAM NADO SOBRATa ZA OGRANIWENNOE VREMd ODINADCATa MUXOMOROV I IZBEJATa STOLKNOVENId S HARIKAMI,KOTORbE RAZBROSANNb PO VSEMU cKRANU."
207 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
209 PRINT AT 21,17;"9"
211 PAUSE 0
212 PAUSE 0
215 REM ==DIGGER.==
217 GO SUB 9000
220 PRINT AT 0,17;" DIGGER."
222 PRINT AT 2,17;"=4.012(OBeAd)"
224 PRINT AT 6,0;"DIGGER: WELOVEWEK BEGAET PO cKRANU I SOBIRAET ALMAZb, MOJNO DVIGATa KAMNI,ESTa V cTOI IGRE ODNA SLOJNOSTa: WELOVEWEK ROd ZEMLQ,KOTOROI POKRbT VESa cKRAN OCTAVLdET POZADI SEBd SLEDb PO KOTORbM BEGATa ON UJE NE MOJET,KAMNI VOKRUG VAS WASTO VZRbVATSd,A NA IX MESTE OPdTa-JE POdBLdQTSd SLEDb."
226 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
228 PRINT AT 21,17;"10"
229 PAUSE 0
230 PAUSE 0
235 REM ==M-KODE 1==
237 GO SUB 9000
239 PRINT AT 0,17;" M - KODE 1"
241 PRINT AT 2,17;"=1.206(OBeAd)"
243 PRINT AT 6,0;"M - KODE 1: MALENaKAd,MUZbKALaNAd PROGRAMKA SDELANNAd S POMOeaQ _VHAM_."
245 PRINT AT 18,0;" - / - / -"
247 PRINT AT 21,17;"11"
249 PAUSE 0
250 PAUSE 0
255 REM ==.,. ILI XARIOS==
257 GO SUB 9000
259 PRINT AT 0,17;" XARIOS"
261 PRINT AT 2,17;"=3.503(OBeAd)"
263 PRINT AT 6,0;" XARIOS: UPRAVLdd VOZDUHNbM HAPIKOM,KOTORbI VSE VREMd LETIT VVERX,VAM NODO VbLETETaNARUJU WEREZ VbXOD,MIGAQeIE STRELKI,IZBEGAITE STOLKNOVENII S KANCELdRSKIMI KNOPKAMI,HARIK VSE VREMd DERGAETSd V RAZNbE STORONb IZZA VETRA,BUDaTE OSTOROJNb U VAS VSEGO ODNA JIZNa,A UROVNEI CELbX DESdTa."
265 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
267 PRINT AT 21,17;"12"
268 PAUSE 0
269 PAUSE 0
270 REM ==TREASURE==
272 GO SUB 9000
275 PRINT AT 0,17;" TREASURE"
277 PRINT AT 2,17;"=4.059(OBeAd)"
279 PRINT AT 6,0;" TREASURE: POISKI PODVODNbX SOKROVIe,VAM NADO PODNATa SO DNA MORSKOGO NESKOLaKO SUNDUKOV S ZOLOTOM,SLEDITE ZA KISLORODOM,ZA KAJDbI SUNDUK VAM BUDUT DAVATa PO BALLONU KISLORODA,OSTEREGAITESa WUDOVIeA."
280 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
281 PRINT AT 21,17;"13"
282 PAUSE 0
283 PAUSE 0
285 REM ==MAZE==
287 GO SUB 9000
290 PRINT AT 0,17;" MAZE"
295 PRINT AT 2,17;"=5.672"
297 PRINT AT 6,0;" MAZE: cTO LABIRINT,PO KOTOROMU RAZBROSANb ALMAZb,SOBERITE IX VSE INAWE IX SOBERUT DVA STRAJA,KOTORbMI UPRAVLdET KOMPaQTER,KTO BOLaHE(KOMPaQTOR ILI Vb) SOBERET ALMAZOV TOT I VbIGRAET,VREMd OGRANIWENO."
299 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
301 PRINT AT 21,17;"14"
303 PAUSE 0
304 PAUSE 0
305 REM ==BOMB ATOM==
310 GO SUB 9000
315 PRINT AT 0,17;" BOMB ATOM"
317 PRINT AT 2,17;"=5.742(OBeAd)"
319 PRINT AT 6,0;" BOMB ATOM: CELI TUT NIKAKOI NET,PROSTO BOMBITE VSE WTO DVIJETSd I NABIRAITE OWKI."
320 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
322 PRINT AT 21,17;"15"
324 PAUSE 0
326 PAUSE 0
330 REM ==STAR VARS==
332 GO SUB 9000
334 PRINT AT 0,17;" STAR VARS"
336 PRINT AT 2,17;"=5.440(OBeAd)"
338 PRINT AT 6,0;" STAR VARS: ZVEZDNbE VOINb,BOMBITE KORABLI I SLADITE ZA VREMENEM,BSd IGRA."
340 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
345 PRINT AT 21,17;"16"
347 PAUSE 0
348 PAUSE 0
350 REM ==XONIK==
352 GO SUB 9000
354 PRINT AT 0,17;" XONIK"
356 PRINT AT 2,17;"=3.203"
358 PRINT AT 6,0;"XONIK: WELOVEWEK LAZAET PO POLQ I OSTAVLdET ZA SOBOI SLEDb PO KOTORbM UJE NELaZd XODITa,ZA VAMI GONdQTSd DVA BANDITA,NADO UNIWTOJITa KAK MOJNO BOLaHE ZEMLI."
360 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
362 PRINT AT 21,17;"17"
363 PAUSE 0
364 PAUSE 0
365 REM ==KAR.==
367 GO SUB 9000
369 PRINT AT 0,17;"KAR."
370 PRINT AT 2,17;"=5.797(OBeAd)"
372 PRINT AT 6,0;"KAR.: cTO KARATE,KOMENTARIEV NE NUJNO."
374 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
376 PRINT AT 21,17;"18"
378 PAUSE 0
379 PAUSE 0
380 REM ==FISHER==
382 GO SUB 9000
384 PRINT AT 0,17;" FISHER"
385 PRINT AT 2,17;"=6.105(OBeAd)"
387 PRINT AT 6,0;" FISHER: RbBAK,STARAITESa POIMATa,KAK MOJNO BOLaHE RbB,NO NE OSaMINOGOV I KONSERVNbX BANOK."
389 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
390 PRINT AT 21,17;"19"
392 PAUSE 0
394 PAUSE 0
395 REM ==PRESS ==
397 GO SUB 9000
399 PRINT AT 0,17;" PRESS "
401 PRINT AT 2,17;"=4963(OBeAd)"
403 PRINT AT 6,0;" PRESS: Vb KOLOBOK,VAM NADO SOBRATa DRAGOCENNOSTI,VAM MEHAQT: DRUGOI KOLOBOK,PRESSb,A TAKJE DbRKI WEREZ KOTORbE NADO PEREPRbGIVATa,SLEDITE ZA VREMENEM,IGRA OWENa INTERESNAd."
405 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
407 PRINT AT 21,17;"20"
408 PAUSE 0
409 PAUSE 0
410 REM ==TIR==
411 GO SUB 9000
412 PRINT AT 0,17;" TIR"
414 PRINT AT 2,17;"=3.850(OBeAd)"
416 PRINT AT 6,0;"TIR: POdSNENId NIKWEMU."
418 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
420 PRINT AT 21,17;"21"
422 PAUSE 0
423 PAUSE 0
425 REM ==* GUN *==
427 GO SUB 9000
429 PRINT AT 0,17;" * GUN *"
431 PRINT AT 2,17;"=7.509(OBeAd)"
433 PRINT AT 6,0;" GUN: PERESTRELKI NA PUHKAX,SLEDITE ZA dDRAMI,S POMOeaQ VSdKIX VEeEI UMNOJAQTSd VAHI OWKI,IGRA INTERESNAd I ZABAVNAd,CELa: SBITa FLAG PROTIVNIKA."
435 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
437 PRINT AT 21,17;"22"
438 PAUSE 0
439 PAUSE 0
440 REM ==DONIXLOGIK==
442 GO SUB 9000
445 PRINT AT 0,17;" DONIXlogik"
447 PRINT AT 2,17;"3.826(OBeAd)"
449 PRINT AT 6,0;"DONIXlogik: LOGIWESKAd IGRA,SLEDITE ZA VREMENEM,A O CELI DOGADAITESa SAMI,SKAJIM LIH ODNO STAVTE KUBIKI V KUWKU MOJET DOGADAETESa TOGDA OCELI."
451 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
453 PRINT AT 21,17;"23"
454 PAUSE 0
455 PAUSE 0
460 REM ==LALALA==
462 GO SUB 9000
464 PRINT AT 0,17;" LALALA"
466 PRINT AT 2,17;"=639(BAIT)"
468 PRINT AT 6,0;" LALALA: LABIRINT."
470 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
472 PRINT AT 21,17;"24"
473 PAUSE 0
474 PAUSE 0
475 REM ==SUPERMAZE==
477 GO SUB 9000
479 PRINT AT 0,17;" SUPERMAZE"
480 PRINT AT 2,17;"=2.809(BAIT)"
482 PRINT AT 6,0;"SUPERMAZE: LABIRINT,cTO PROSTO LABIRINT,LAZAITE PO NEMU KAK XOTITE,OSTEREGAITESa WUDOVIeA,V IGRE 6 BLOKOV."
484 PRINT AT 18,0;"SINKLAIR-DJOISTIK"
486 PRINT AT 21,17;"25"
488 PAUSE 0
489 PAUSE 0
490 CLS
495 PRINT AT 11,10
Сообщение от ZEman
Ответить с цитированием