Vader – Commodore 64 Basic V2

Creative Computing – Anno 19?? – Versione originale: CP/M Basic – Adattamento: Commodore 64 Basic V2

Questa volta ci occupiamo di un gioco originalmente pensato per il CP/M e le 80 colonne. La versione presentata in questo articolo é un adattamento dello stesso al Basic V2 del C64 e alle sue 40 colonne.

Titolo: Vader
Piattaforma: Commodore 64
Linguaggio: Basic
Versione originale: Creative Computing
Pubblicazione: Creative Computing
Anno: 19??
Adattamento: Francesco Fiorentini
Anno: 2021
Download: vader.prg
Note: Il codice originale era per CP/M ad 80 colonne. Questa versione é stata adattata al Basic V2 del Commodore 64 e alle 40 colonne. Altre modifiche sono state apportate nei colori e nella visualizzazione del testo.

Scopo del gioco
Sei il capitano del Millennium Falcon, tu e il tuo co-pilota, il Wookie Chewbacca, siete mercenari, che esercitano il loro commercio in tutta la galassia. Dopo aver preso a bordo con voi quattro passeggeri, Luke Skywalker, Obi-Wan-Kenobi e due droidi, r2d2 e 3cpo, sfuggendo alle forze imperiali nel sistema tatooine, avete salvato la principessa Leia di Alderaan dalle malefiche grinfie del malvagio Grand Moth Tarkin e dell’oscuro signore dei Sith, Darth Vader. La tua missione è raggiungere la base ribelle situata su Yavin-4. Darth Vader si trova tra te e Yavin-4. La sua nave ha la stessa tua potenza disponibile.
Devi sconfiggerlo per consegnare il tuo carico (la Principessa Leia e i piani dettagliati della Morte Nera conservati nei circuiti di memoria di r2d2).

Qui di seguito trovate il codice da copiare sul vostro Commodore 64.
Il codice é pronto per essere copiato su CBM prg Studio.

Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘&gt’ e ‘&lt’. Nel caso, sostituite questi valori direttamente su CBM prg Studio.

Listato: Vader – Commodore 64 – Basic V2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
10 rem program from creative computing

20 rem modified and maintained by steve gilbreath (cmrlblg, tegames)

30 print chr$(147): poke 53280,0: poke 53281,0:poke 646,7

40 print 

50 PRINT "      ** **  ***  ***  **** ***"

52 PRINT "      ** ** ** ** ** * **   ** *"

53 PRINT "      ** ** ***** ** * ***  ****"

54 PRINT "      ** ** ** ** ** * **   ***"

55 PRINT "       ***  ** ** ***  **** ** *"

60 print

61 print

62 print  

70 print "  original version: creative computing"

71 print "  c64 version     : f.fiorentini 2021"

80 s1=0

90 dim p(1)

100 print

110 x8=0

120 q=1

130 print

140 print">what is your name ";

150 input a$

160 h9=0

170 d9=0

180 s1=0

190 print

200 a1$="no"

210 if a2$="yes" then 1200

220 print">greetings ";a$

221 print " this is darth vader."

230 print" i'm about to wipe the floor with you,"

231 print" but for the sake of sort, i will give"

240 print" you a chance to defend yourself and"

250 print" perhaps, though i sincerly doubt it,"

251 print" destroy me instead."

260 print

270 h9=0

280 d9=0

290 s1=0

300 print">enter a secret password, ";a$

310 print" it must not be over seven letters"

320 input p4$

330 if len(p4$)<=7 then 370

340 print

350 print"are you deaf or something... i said"

360 goto 310

370 print

380 print">this is your disrupter password."

381 print" if you decide to use the disrupters"

390 print" you will need this password!"

400 print

410 print

420 print">do you think that instructions"

421 print" will help you ";a$;

430 input b$

440 if b$="no" then 730

450 if b$="n" then 730

490 print chr$(147):print"history tape - data library"

491 print"...a few millenia ago..."

500 print

510 print"you're the captain of the millennium"

511 print"falcon, you and your co-pilot, the" 

520 print"wookie chewbacca, are mercenaries,"

521 print"plying your trade throughout the"

530 print"galaxy. after taking on four"

531 print"passengers, luke skywalker,"

540 print"obi-wan-kenobi, and two droids, r2d2"

541 print"and 3cpo"

542 print

543 print"escaping the imperial"

550 print"forces at mose eisley, in the"

551 print"tatooine system, you have rescued"

560 print"the princess leia organa of"

561 print"alderaan from the evil clutches of"

570 print"evil grand moth tarkin and the dark"

580 print"lord of the sith, darth vader."

581 print

582 print

590 print

591 print">>> press enter to continue...":poke19,65: input b$

592 poke 19,0

600 print chr$(147):print"your mission is to reach the rebel"

601 print"base located on yavin-4."

602 print

610 print"darth vader is between you and"

611 print"yavin-4.  his ship has the same"

620 print"amount of power available. you"

621 print"must defeat him in order to reach"

630 print"safety and deliver your cargo (the"

631 print"princess leia and the detailed plans"

640 print"of the deathstar stored in the"

641 print"memory circuits of r2d2)"

650 print

651 print

652 print

653 print

654 print

660 print

670 print"do you wish further instructions";b$;

680 input b$

690 if b$="no" then 720

700 if b$="n" then 720

710 gosub 5090

720 print

730 print"do you wish armament information ";

740 input b$

750 if b$="n" then 1190

760 if b$="no" then 1190

780 print

790 print ">here are your vital datum:"

800 print

810 print"you are equiped with 100,000 stroms"

811 print"of energy. when you run out"

820 print"darth vader will destroy you."

830 print

850 print ">armament:"

860 print

870 print"w  ";"description  ";"range(km) ";" fuel drain"

871 print"-  ";"-----------  ";"--------- ";" -----------"

880 print"1  ";"heavy guns   ";"  0k-11k  ";" 10   stroms"

890 print"2  ";"warheads     ";" 10k-100k ";" 100  stroms"

900 print"3  ";"lasers       ";"100k-200k ";" 1000 stroms"

910 print

930 print ">options:"

940 print

950 print"4";tab(3);"approach";tab(27);"100 stroms"

960 print"5";tab(3);"retreat";tab(27);"100 stroms"

970 print"6";tab(3);"cont. to yavin-4, gain  .9c energy"

980 print"7";tab(3);"enter hyperspace"

990 print"8";tab(3);"disrupters"

1000 print"9";tab(3);"deflector screens"

1010 print

1020 print">>> press enter to continue...":poke19,65: input b$

1030 poke 19,0

1080 print"darth vader has the same capabilites"

1081 print"as you. each time a ship is hit,"

1100 print"the energy drain from the screens is"

1110 print"equal to the amount of energy"

1111 print"expended by the striking weapon"

1120 print"times ten, (except lasers, which are"

1121 print"equal to an expenditure that varies"

1130 print"with distance to the target)"

1140 print

1150 print"note: you are continuously being"

1151 print"drawn toward darth vader..."

1160 print"watch your range closely!!"

1161 print">>> press enter to continue...":poke19,65: input b$

1162 poke 19,0

1190 print

1191 print">>> this is computer control <<<"

1200 p=100000

1210 b1=9.45426e+12

1220 p(1)=100000

1230 a=int(rnd(1)*200000)

1250 print"darth vader approaching"

1251 print"at ";a;" kilometers"

1260 print"distance to yavin-4 "

1261 print"is ";b1;" kilometers"

1270 print

1280 print"may the force be with you!!"

1290 print

1320 on at goto 1520

1330 if a2$<>"y" then 1540

1340 d9=d9+1

1350 c=int(rnd(1)*3.14159*(rnd(1)*3.14159))

1360 o=int(rnd(1)*2+1)

1370 if a>200050 then 3180

1380 if c=o then 1350

1390 if a>50000 then 1410

1400 if c=4 then 1770

1410 if c=5 then 1350

1420 if c<>6 then 1440

1430 if p>5000 then 1350

1440 if c<7 then 1460

1450 if c=7 then 1500

1460 if c>7 then 1350

1470 n=0

1480 b1=b1-(2.23119e+10)

1490 goto 2060

1500 if n>0 then 1350

1510 goto 2060

1520 x7=0

1530 x8=0

1540 print

1550 x7=x7+1

1560 if x7<x8 then 1620

1565 gosub 6720

1570 print"what are your instructions ";

1580 x8=0

1590 x7=0

1600 on at goto 1520

1610 input c

1620 if c>=1 then 1640

1630 goto 1730

1640 if c<=9 then 1770

1650 if c<>10 then 1720

1660 print"enter number of auto-plays ";

1670 input x8

1675 gosub 6720

1680 print"enter command to execute ";

1690 input c

1700 on at goto 1520

1710 goto 1620

1720 rem c

1730 print

1740 print"that number is not a command ";a$

1750 print"try again"

1760 goto 1540

1770 d9=d9+1

1780 o=int(rnd(1)*2+1)

1790 rem x

1800 goto 1820

1810 if c<6 then 2510

1820 if c=1 then 1840

1830 goto 1880

1840 if a>=0 then 1860

1850 goto 2510

1860 if a<11001 then 2000

1870 goto 2510

1880 if c=2 then 1900

1890 goto 1940

1900 if a>10999 then 1920

1910 goto 2510

1920 if a<100001 then 2000

1930 goto 2510

1940 if c=3 then 1960

1950 goto 2000

1960 if a>99999 then 1980

1970 goto 2510

1980 if a<200001 then 2000

1990 goto 2510

2000 if c<7 then 2040

2010 if c=7 then 2060

2020 if c=8 then 5420

2030 if c=9 then 5900

2040 n=0

2050 b1=b1-(2.33119e+10)

2060 if c=1 then 2530

2070 if c=2 then 2680

2080 if c=3 then 2840

2090 if c=4 then 2970

2100 if c=5 then 3070

2110 if c=6 then 3180

2120 if a2$<>"y" then 2180

2130 h=int(rnd(1)*10+1)

2140 if p-(10000*h^.3)<500 then 1350

2150 if h=0 then 2130

2160 gosub 6070

2170 goto 2230

2180 if c>77 then 2490

2190 print"please indicate hyper-factor";

2200 input h

2210 if s1>0 then 2160

2220 h2=1

2230 if h<13 then 2250

2240 goto 2180

2250 p=p-(10000*(h^.3))

2260 n=n+1

2270 print"computing course at h-f: ";h

2280 h9=h9+1

2290 if p<100 then 4440

2300 if b1-((h^3*299793)*60^2)<1e+06 then 4190

2310 if n>1 then 4410

2320 a=a+((h^3*299793)*60^2)

2330 if o=1 then 4970

2340 o2=int(rnd(1)*3.1415926+1)

2350 if o2=1 then 4970

2360 if o2=4 then 4940

2370 b1=b1-(h^3*299793)*(int(3.14159^3*rnd(1)+29)^2)

2380 print"sorry, error put us off line."

2390 if o2=3 then 2450

2400 if p(1)=p(1)-(h^.3*10000)<10000 then 3350

2410 print"darth vader followed!!"

2420 p(1)=p(1)-(10000*(h^.3))

2430 a=int(rnd(1)*200000)

2440 goto 3210

2450 print"no sign of darth vader, cruising at .9c"

2460 b1=b1-(2.33118e+10)

2470 if b1<1e+06 then 4530

2480 goto 4050

2490 if o=1 then 4020

2500 goto 1330

2510 print a$;", lets not crack under"

2511 print"pressure, check your range!!"

2520 goto 1330

2530 if a>11005 then 2490

2540 if a<10 then 2490

2550 p=p-100

2560 print

2570 print"guns have been fired..."

2580 if o=1 then 2610

2590 print"darth vader manuevering..."

2600 goto 2780

2610 print"awaiting damage assessment"

2620 if o=1 then 2650

2630 print"missed - drat!!"

2640 goto 3210

2650 print"hit!!!  - - his power down!!"

2660 p(1)=p(1)-100

2670 goto 3210

2680 if a>100000 then 2490

2690 if a<10000 then 2490

2700 p=p-100

2710 print

2720 print"we have launched a warhead..."

2730 o1=int(rnd(1)*2)+1

2740 if o1=1 then 2770

2750 print"darth vader maneuvering..."

2760 goto 2780

2770 print"darth vader is trying avoid..."

2780 if o=1 then 2810

2790 print"missed!! - - drat!!"

2800 goto 3210

2810 print"got him!!!"

2820 p(1)=p(1)-1000

2830 goto 3210

2840 if a<100000 then 2490

2850 p=p-1000

2860 print"lasers fired!!"

2870 o1=int(rnd(1)*2+1)

2880 if 1=1 then 2900

2890 print"i think...i think..."

2900 print"maybe..."

2910 if 0=1 then 2940

2920 print"missed!!...phooey!!"

2930 goto 3210

2940 print"got him!!!  good shooting ";a$;"!"

2950 p(1)=p(1)-(((200000-a)/100000)*3000)

2960 goto 3290

2970 print

2980 print"approaching, ";a$

2990 b=int(rnd(1)*30000+60000)

3000 a=a-b

3010 p=p-100

3020 if a<1 then 3040

3030 goto 3210

3040 print tab(10);">>collision<<"

3050 q=4

3060 goto 5670

3070 print

3080 print"retreating ";a$

3090 b=rnd(1)*40000+10000

3100 a=a+b

3110 p=p-100

3120 if a>175000 then 4290

3130 goto 3210

3140 print a$;" your range is ";a;", we cannot run."

3150 a=200000

3160 if o1=1 then 4290

3170 goto 3210

3180 print

3190 print"resting, ";a$

3200 p=p+1000

3210 print

3220 print

3230 if o=1 then 3290

3240 print

3250 print

3260 print "sensor readings darth vader's ship"

3270 print

3280 print"range: ";int(a);tab(17);"power: ";int(p(1))

3290 if a>200050 then 3350

3300 if p(1)<100 then 4510

3310 if p(1)<5000 then 4230

3320 if a>175000 then 4290

3330 if a<5000 then 4350

3340 goto 3420

3350 if p(1)-(10000*h^.3)<2000 then 4230

3360 p(1)=p(1)-(10000*h^.3)

3370 o1=int(rnd(1)*3.14159+1)

3380 print

3390 if o1=4 then 4920

3400 a=int(rnd(1)*40000+10000)

3410 print"darth vader is on us!!!!"

3420 if b1<1.5e+06 then 4530

3430 g=int(rnd(1)*30+1)

3440 if g=3 then 6660

3450 r=int(rnd(1)*3.14159+1)

3460 o=int(rnd(1)*2+1)

3470 if r=1 then 3880

3480 if r=2 then 3730

3490 if r=4 then 4270

3500 if r=3 then 3750

3510 if a<100000 then 3430

3520 print

3530 if a<10001 then 3930

3540 if a<100001 then 3800

3550 if a>200001 then 3430

3560 print

3570 p(1)=p(1)-1000

3580 print

3590 print"darth vader has fired lasers..."

3600 o1=int(rnd(1)*2+1)

3610 if o1=1 then 3640

3620 print"vh-oh..."

3630 goto 3650

3640 print"screen at full power..."

3650 if o1=1 then 3680

3660 print"missed...whew!!!"

3670 goto 4050

3680 if o1=2 then 3700

3690 print"  ooooff..."

3700 print"darth vader got us!!!"

3710 q=1

3720 goto 5670

3730 if a<100000 then 3430

3740 if a>10000 then 3430

3750 if a>10999 then 3770

3760 goto 3430

3770 if a<1e+06 then 3790

3780 goto 3430

3790 rem x

3800 p(1)=p(1)-100

3810 print"darth vader has launched a warhead..."

3820 if o=1 then 3850

3830 print"missed!!!..ha!!"

3840 goto 4050

3850 print"  hit!!! our power down!!"

3860 q=2

3870 goto 5670

3880 if a>200000 then 3430

3890 if a<11001 then 3940

3900 if a<100001 then 3800

3910 if a<200001 then 3570

3920 rem x

3930 p(1)=p(1)-10

3940 print"darth vader has fired a shell..."

3950 print"i am attempting to avoid..."

3960 if o=1 then 4020

3970 print"missed!!"

3980 if o1=1 then 4050

3990 print"that'll teach you what clean living";

4000 print"does for ya', ";a$

4010 goto 4050

4020 print"direct hit!!! power down!!"

4030 q=3

4040 goto 5670

4050 print

4070 print " >>> status of millennium falcon <<<"

4080 print

4090 a=(a*.98)

4100 print"power in primary screens:";int(s1)

4110 print"range:";int(a);tab(18);"power:";int(p)

4120 if p<1 then 4580

4130 if o=1 then 4170

4140 print"distance to yavin-4 :";b1;" km"

4150 q=q+1

4160 print"days in transit:";d9;" hyper space jumps:";h9

4170 if d9>=365 then 4570

4180 if b1>1e+06 then 4220

4190 if o=1 then 4530

4200 print"we are going to collide in yavin-4!"

4210 goto 4450

4220 goto 1330

4230 print

4240 p(1)=p(1)+1000

4250 print"darth vader resting, ";a$

4260 goto 4050

4270 if a<150000 then 3430

4280 if a>200050 then 3290

4290 b=rnd(1)*40000+10000

4300 a=a+b

4310 print

4320 print"darth vader approaching, ";a$

4330 p(1)=p(1)-100

4340 goto 4050

4350 b=rnd(1)*40000+10000

4360 a=a+b

4370 print

4380 print"darth vader retreating, ";a$

4390 p(1)=p(1)-100

4400 goto 4050

4410 print a$;", you have just entered"

4411 print"hyperspace twice... engines blown!!!"

4420 print"we're stuck here for ever!!!!"

4430 goto 4450

4440 print"you just hypered away all our power."

4450 print"that was a pretty dumb thing for you"

4451 print"to do!! your mission was to deliver"

4460 print"your passengers and the vital"

4461 print"information to yavin-4..."

4470 print"not to get everybody killed!"

4480 print

4490 print a$;", your a fieg!!"

4500 goto 4590

4510 print"darth vader's ship's power gone..."

4511 print"no life forms present."

4520 goto 4550

4530 print"ha! ha!  darth vader got too close"

4531 print"to our hidden base. ground based"

4540 print"lasers destroyed his ship!"

4550 print"mission successful!!!!"

4560 goto 4830

4570 print"we have been in transit for more"

4571 print"than a year"

4580 print"darth vader is the victor!!!"

4590 print"life support systems gone..."

4600 print"life support fading..."

4610 print"c"

4620 print" r"

4630 print"  e"

4640 print"   w"

4650 print"     "

4660 print"     d"

4670 print"      y"

4680 print"       i"

4690 print"        n"

4700 print"         g"

4710 print"          ."

4720 print"           ."

4730 print"            ."

4740 print"             ."

4750 print"              ."

4760 print"               ."

4770 v=v+1

4780 d3=int(5*rnd(1))+1

4790 if d3=5 then 6150

4800 if d3=4 then 6340

4810 if d3=3 then 6470

4820 print

4830 print"play again ";

4840 input b$

4850 n=0

4860 if b$="yes" then 260

4870 if b$="y" then 130 

4880 c5$="lost"

4890 print"good bye!!!"

4900 goto 6100

4910 rem x

4920 print"darth vader is being sucked"

4921 print"into a black hole!!!"

4930 goto 4550

4940 print"oops...we are being sucked"

4941 print"into a black hole!!!"

4950 print"sorry about that chief."

4960 goto 4610

4970 o2=int(rnd(1)*3.14159+1)

4980 b1=b1-((h^3*299793)*60^2)

4990 if b1<1e+06 then 4940

5000 if p(1)-(h^.3*10000)<10000 then 3350

5010 print"darth vader followed us through!!"

5020 p(1)=p(1)-(10000*(h^.3))

5030 a=int(rnd(1)*200000)

5040 if o2=4 then 5060

5050 goto 3210

5060 p=p+1000

5070 p(1)=p(1)+1000

5080 goto 4050

5090 print

5100 print"you are bound yavin-4, which"

5101 print"is one light year distant."

5110 print

5130 print">hyperdrive information"

5140 print

5150 for i=1 to 12

5160 print tab(1);"h-f";i;tab(10);"velocity";299793*i^3;tab(30);"kps"

5170 next i

5190 print

5200 print"hyperdrive consumes energy at a"

5201 print"minimum of 10,1000 stroms and a"

5210 print"maximum of 21,074 stroms, as follows:"

5230 print

5240 print">>> press enter to continue...":poke19,65: input b$

5250 poke 19,0

5270 print

5280 for i=1 to 12

5290 ii=i^.3*10000

5300 print"hf-";i;tab(8);"consume:";ii;tab(30);"stroms"     

5310 next i

5320 print

5330 print"hyperspace navigation tends to be a"

5331 print"bit erratic, resulting in navigation"

5340 print"errors; the higher the hf factor"

5350 print"the greater the potential error."

5370 print"the disrupters are used if all else" 

5371 print"fails. disrupters create a high"

5380 print"energy field in space. this field"

5390 print"can destroy you or darth vader."

5391 print"however, disrupters should be"

5400 print"considered as the last resort."

5410 return

5420 z=int(rnd(1)*3+1)

5430 print

5440 print">>> condition red <<<"

5441 print"disrupter command activated!!!"

5450 print

5460 print"input the disrupter password ";:input p6$

5470 if p6$=p4$ then 5540

5480 print

5490 print">>> illegal password <<<"

5491 print"abort disrupter command"

5500 print

5510 goto 1540

5520 print

5530 print

5540 print

5550 print">>> password correct <<<"

5551 print"engage disrupter command!"

5570 print

5580 print"disrupters engaged..."

5590 print"power building..."

5600 print"disrupters fired!!!"

5610 if z=2 then 5640

5620 print"the disrupters have failed! damn!!!"

5630 goto 4450

5640 print"disrupters destroyed darth vader!!!"

5650 print

5660 goto 4510

5670 if q=1 then 5710

5680 if q=2 then 5750

5690 if q=3 then 5790

5700 if q=4 then 5840

5710 s1=s1-(((200000-a)/100000)*3000)

5720 if s1<1 then 5880

5730 goto 5810

5740 rem x

5750 s1=s1-1000

5760 if s1<1 then 5880

5770 goto 5810

5780 rem x

5790 s1=s1-100

5800 if s1<s1 then 5880

5810 print"screens absorb blast."

5820 print

5830 goto 4050

5840 print"screen overload."

5850 print"power drained from both ships!!"

5860 rem x

5870 goto 4600

5880 print"sheilds have buckled!!"

5890 goto 4580

5900 print"raise or lower primary screens";

5910 input s2$

5920 if s2$="raise" then 5980

5930 if s2$="r" then 5980

5940 p=p+s1

5950 print"primary screens absorbed."

5960 s1=0

5970 goto 4050

5980 print"energy to primary screens";

5990 input s3

6000 if s3>-1 then 6040

6010 print"you can't cheat me ";a$;"!!"

6020 print

6030 goto 5900

6040 p=p-s3

6050 s1=s1+s3

6060 goto 4050

6070 print"all screen energy lost."

6080 s1=0

6090 return

6100 print

6110 print

6120 end

6130 print

6140 print

6150 print

6160 print"to: grand moth tarkin"

6170 print"from: lord darth vader  date: 26575"

6180 print

6190 print"the vessel containing princess leia"

6200 print"has been destroyed. all crew members"

6201 print"and passengers are dead."

6210 print"the plan of the deathstar are safe."

6220 print"i shall return shortly, after i"

6230 print"harass psgames and snarf"

6240 print"the *update* on forum."

6250 print

6260 print"                    lord darth vader"

6300 print

6310 goto 4830

6320 stop

6330 print

6340 print

6350 print"to: rebel bases on yavin-4"

6360 print"from: scout ship #13    date: 26768"

6370 print

6380 print"regret to inform you that space"

6381 print"wreckage discovered in section #6."

6390 print"thought to be remains of the"

6400 print"millennium falcon. no survivors."

6420 print

6430 print"                      capt. ernest"

6440 print

6450 print

6460 goto 4830

6470 print

6480 print

6490 print

6500 print"to: starfleet command"

6510 print"from: uss enterprise    stardate: 2324"

6520 print"officer reporting: capt. james t. kirk"

6540 print

6550 print"after a long tour of quadant h9 the"

6560 print"enterprise entered a space storm which"

6570 print"put us off course. long range senors" 

6580 print"detected a small mass of debris. "

6581 print"after close inspection first officer"

6582 print"spock determined that it was a space"

6590 print"vessel built by a primitive race."

6600 print

6610 print"                uss enterprise"

6620 print"                captain james t. kirk"

6630 print

6640 print

6650 goto 4830

6660 print

6670 print"luck...luck...luck..."

6680 print

6690 print"darth vader lurking, ";a$

6700 goto 3450

6710 end

6720 print"1) heavy guns 4) approach "           

6730 print"2) warheads   5) retreat " 

6740 print"3) lasers     6) continue to yavin-4" 

6741 print"7) hyperspace 8) disrupters"

6742 print"9) deflectors"

6750 print

6760 return