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??
AdattamentoFrancesco 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
Share

One thought on “Vader – Commodore 64 Basic V2

Lascia un commento

Il tuo indirizzo email non sarà pubblicato.

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.