DataMuseum.dk

top - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »B8«

└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
    └─⟦this⟧ 

TextFile

 0010 ON ESC EXEC SLUT
 0020 DIM SVAR$(5)
 0030 REPEAT 
 0040   PRINT CHR(12)
 0050   EXEC XY(24,12)
 0060   INPUT "INSTRUCTIONS NEEDED (YES/NO) ? ",SVAR$
 0070   IF SVAR$="YES" OR SVAR$="YES" THEN EXEC INST
 0080 UNTIL SVAR$="YES" OR SVAR$="YES" OR SVAR$="NO" OR SVAR$="NO"
 0090 FORSØG=1; PLET=0
 0100 PRINT CHR(12); 
 0110 REPEAT 
 0120   RANDOMIZE 
 0130   HØJDE=INT(18*RND(0))+2
 0140   EXEC XY(40,21)
 0150   PRINT " I"
 0160   EXEC XY(40,22)
 0170   PRINT "(#)"
 0180   RETNING=-1; POSITION=80; MIDT=39
 0190   IF RND(0)>.5 THEN LET RETNING=1; POSITION=1; MIDT=38
 0200   RAMT=0; FORBI=0; SKUD=0; GRANAT=20
 0210   REM 
 0220   SKUD=0
 0230   REPEAT 
 0240     IN 16,X
 0250     X=X MOD 128
 0260     IF X=49 THEN EXEC SKYD
 0270     POSITION=POSITION+RETNING
 0280     EXEC XY(POSITION,HØJDE)
 0290     IF RETNING=1 THEN 
 0300       PRINT " :-> "
 0310     ELSE 
 0320       PRINT CHR(60); "-: "
 0330     ENDIF 
 0340     IF SKUD=1 THEN 
 0350       GRANAT=GRANAT-1
 0360       EXEC XY(40,GRANAT)
 0370       PRINT "^"; CHR(31)
 0380     ENDIF 
 0390     IF ABS(POSITION-MIDT)<2 AND GRANAT=HØJDE THEN 
 0400       EXEC XY(37,HØJDE)
 0410       PRINT "**BOOM**"; CHR(7)
 0420       EXEC XY(1,1)
 0430       PRINT " * YOU GOT IT *"
 0440       RAMT=1; PLET=PLET+1
 0450     ENDIF 
 0460     IF GRANAT=1 OR POSITION=1 OR POSITION=80 OR (GRANAT-HØJDE)<-4 THEN 
 0470       EXEC XY(1,1)
 0480       PRINT " *** A MISS ***"
 0490       FORBI=1
 0500     ENDIF 
 0510   UNTIL RAMT=1 OR FORBI=1
 0520   EXEC SCORE
 0530   EXEC XY(1,2)
 0540   PRINT " PRESS 2 FOR CONTINUATION"; CHR(31); 
 0550   EXEC XY(1,1)
 0560   PRINT 
 0570   LOOP 
 0580     IN 16,X
 0590     X=X MOD 128
 0600     IF X=50 OR X=115 THEN EXIT 
 0610   ENDLOOP 
 0620   EXEC XY(1,1)
 0630   PRINT "                 "
 0640   PRINT "                           "
 0650   IF CHR(X)="S" THEN EXIT 
 0660   PROC SKYD
 0670     SKUD=1
 0680   ENDPROC 
 0690   FORSØG=FORSØG+1
 0700 UNTIL 1=5
 0710 EXEC SLUT
 0720 PROC INST
 0730   PRINT CHR(12)
 0740   PRINT TAB(12); "WITH A MISSIL YOU CAN GUN DOWN AN AIRCRAFT"
 0750   PRINT 
 0760   PRINT TAB(12); "THE MISSIL IS FIRED BY PRESSING '1'. AFTER EACH SHOT."
 0770   PRINT TAB(12); "YOU PRESS '2' FOR CONTINUATION, OR 'S' TO LAND      "
 0780   PRINT 
 0790   PRINT 
 0800   PRINT TAB(12); "PRESS"; CHR(128+2+16); 
 0810   PRINT "'SPACEBAR'"; CHR(128); " WHEN YOU ARE READY TO FIRE "
 0820   REPEAT 
 0830     IN 16,X
 0840   UNTIL X=32
 0850 ENDPROC 
 0860 PROC SCORE
 0870   EXEC XY(40,1)
 0880   PRINT "YOU GOT"; PLET; "HITS OUT OF"; FORSØG; "SHOTS  "
 0890 ENDPROC 
 0900 PROC XY(XADR,YADR)
 0910   PRINT CHR(6); CHR(95+XADR-(XADR>32)*64-(XADR>64)*64); CHR(95+YADR); 
 0920 ENDPROC 
 0930 PROC SLUT
 0940   ON ESC EXEC SLUT
 0950   EXEC SCORE
 0960   CHAIN "MENUE"
«eof»