DataMuseum.dk

top - download

    Length: 5632 (0x1600)
    Types: TextFile
    Names: »B42«

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

TextFile

 0001 ON ESC CHAIN "LOGON"
 0010 REM 
 0020 REM .             NEDSKYD
 0030 REM 
 0040 REM COPYRIGHT: CARSTEN D. BECH.
 0050 REM 
 0060 REM 
 0070 REM 4-6-1981
 0080 DIM SVAR$(1),H$(80),KK(24),J$(80),VÆ(24),FF(3),TO(3),NÅ(24),LS$(2)
 0090 DIM BU$(128)
 0100 RANDOMIZE 
 0110 DEF FNQ(X)=95+X-((X-1) DIV 32)*64
 0120 PRINT CHR(12)
 0200 EXEC FREM
 0210 OPEN "2/SCORE",MMO,BU$,10
 0225 NY=0
 0230 REPEAT 
 0240   PRINT CHR(12)
 0250   PRINT "HVILKEN SVÆRHEDSGRAD VIL I BRUGE?"
 0260   PRINT TAB(35); "1. FOR ELITE-SPILLERE"
 0270   PRINT TAB(35); "2. FOR SÆRLIG GODE SPILLERE"
 0280   PRINT TAB(35); "3. FOR GODE SPILLERE"
 0290   PRINT TAB(35); "4. FOR ALMINDELIGE SPILLERE"
 0300   PRINT TAB(35); "5. FOR DÅRLIGE SPILERE/NYBEGYNDERE"
 0302   PRINT 
 0304   PRINT "        BRUG <ESC> NÅR DU VIL SKYDE!"
 0306   PRINT 
 0310   REPEAT 
 0320     INPUT "SVÆRHEDSGRAD NR. ",SVÆR
 0330   UNTIL SVÆR=INT(SVÆR) AND SVÆR>0 AND SVÆR<6
 0340   SVÆRH=SVÆR
 0350   SVÆR=INT(12+((SVÆR-1)*(SVÆR-2)))
 0360   IF SVÆRH=1 THEN SVÆR=10
 0370   REM EXEC VÆK
 0380   EXEC KØR
 0390   IF POIU>HIGH THEN LET HIGH=POIU; NY=1
 0395   ON ESC G1=1
 0400   EXEC CUR(19,14)
 0405   ON ESC G1=1
 0410   PRINT CHR(144); "HØJESTE SCORE PÅ DENNE COMPUTER:"; HIGH; CHR(128)
 0420   FOR A=1 TO 200
 0430     ON ESC G1=0
 0440   NEXT A
 0450   EXEC FREM
 0460   EXEC CUR(1,18)
 0470   INPUT "VIL I PRØVE IGEN? ",SVAR$
 0480 UNTIL SVAR$="N" OR SVAR$="N"
 0490 IF NY=1 THEN PUT MMO,1 : HIGH
 0500 CLOSE MMO
 0510 CHAIN "LOGON"
 0520 GO TO 0010
 0530 PROC CUR(X,Y)
 0540   PRINT CHR(6); CHR(FNQ(X)); CHR(FNQ(Y)); 
 0550 ENDPROC 
 0560 PROC ØER
 0570   TO(1)=1; TO(3)=24; GANG=20.5; IALT=24; SKUD=0; TRÆF=0
 0580   TTT=INT(RND(0)*10)+1
 0590   FOR A=1 TO TTT
 0600     B=RND(0)
 0610   NEXT A
 0620   PRINT CHR(12); CHR(6); CHR(42); CHR(107); "REST"
 0630   FOR A=1 TO 24
 0640     PRINT CHR(6); CHR(96); CHR(95+A); CHR(141)
 0650     KK(A)=INT(RND(0)*9)+1; NÅ(A)=1; VÆ(A)=INT(RND(0)*SVÆR)+2
 0660     PRINT CHR(6); CHR(35); CHR(95+A); CHR(128); 
 0670     IF A=1 OR A=24 THEN LET VÆ(A)=INT(VÆ(A)*1.5)
 0680     PRINT USING "###" : VÆ(A)
 0690     FOR C=1 TO KK(A)
 0700       PRINT CHR(6); CHR(FNQ(31-C)); CHR(95+A); CHR(127)
 0710     NEXT C
 0720   NEXT A
 0730   H$=CHR(127)+CHR(61); J$=""; LS$=H$
 0740   FOR A=1 TO 8
 0750     IF A<4 THEN 
 0760       H$=H$+"$$$$$$$$$$"
 0770     ELSE 
 0780       H$=H$+" $ $ $ $ $"
 0790     ENDIF 
 0800     J$=J$+"          "
 0810   NEXT A
 0820 ENDPROC 
 0830 PROC SKYD(Æ)
 0840   ON ESC G1=1
 0850   IF Æ>0 AND Æ<25 THEN 
 0860     ON ESC G1=1
 0870     A=KK(Æ); SKUD=SKUD+1
 0880     PRINT CHR(6); CHR(97); CHR(95+STÅ); "  "
 0890     ON ESC G1=1
 0900     IF A<=0 THEN LET A=-40; NÅ(Æ)=NÅ(Æ)-1
 0910     ON ESC G1=1
 0920     PRINT CHR(6); CHR(97); CHR(95+Æ); H$(1 : 30-A)
 0930     ON ESC G1=1
 0940     PRINT CHR(6); CHR(97); CHR(95+Æ); J$(1 : 30-A)
 0950     ON ESC G1=1
 0960     KK(Æ)=KK(Æ)-1; GANG=GANG-1
 0970     ON ESC G1=1
 0980     IF NÅ(Æ)>-1 THEN LET TRÆF=TRÆF+1
 0990     ON ESC G1=1
 1000     IF NÅ(Æ)=0 THEN LET GANG=GANG+VÆ(Æ); IALT=IALT-1
 1010     ON ESC G1=1
 1020     IF NÅ(Æ)>-1 THEN PRINT CHR(6); CHR(42); CHR(96)
 1030     ON ESC G1=1
 1040     PRINT CHR(6); CHR(39); CHR(108); CHR(128); 
 1050     ON ESC G1=1
 1060     PRINT USING "####.#" : GANG
 1070   ENDIF 
 1080 ENDPROC 
 1090 PROC KØR
 1100   EXEC ØER
 1110   RET=INT(RND(0)*2); Ø=2; GG=0
 1120   IF RET=0 THEN RET=-1
 1130   REPEAT 
 1140     RET=-RET; GANG=GANG-0.5; FR=TO(2-RET)+RET; TI=TO(2+RET)
 1150     PRINT CHR(6); CHR(40); CHR(108); 
 1160     PRINT USING "####.#" : GANG
 1170     FOR STÅ=FR TO TI STEP RET
 1180       ON ESC EXEC SKYD(Ø)
 1190       PRINT CHR(6); CHR(97); CHR(95+Ø); "  "
 1200       ON ESC EXEC SKYD(Ø)
 1210       Ø=STÅ
 1220       PRINT CHR(6); CHR(97); CHR(95+STÅ); CHR(127); CHR(61)
 1230       ON ESC EXEC SKYD(STÅ)
 1240       IF GANG<=0 OR IALT=0 THEN STÅ=TI
 1250     NEXT STÅ
 1260   UNTIL GANG<=0 OR IALT=0
 1270   PRINT CHR(12); "DU NÅEDE AT AFFYRE"; SKUD; "SKUD INDEN"; 
 1280   ON ESC G1=1
 1290   QWE=INT((TRÆF*100)/SKUD)
 1300   POIU=INT(((TRÆF*QWE)/10)*(1+((5-SVÆRH)*.4)))
 1310   ON ESC G1=1
 1320   IF IALT=0 THEN 
 1330     PRINT " DU HAVDE NEDSKUDT ALLE POINTENE."
 1340     EXEC CUR(25,10)
 1350     ON ESC G1=1
 1360     PRINT CHR(130); "B R A V O"; CHR(128); " (SIKKE HELDIGT)"
 1370     ON ESC G1=1
 1380     POIU=INT(POIU*1.5)
 1390   ELSE 
 1400     PRINT " DU "; CHR(34); "LØB TØR FOR ENERGI"; CHR(34); "."
 1405     ON ESC G1=1
 1410   ENDIF 
 1420   EXEC CUR(1,5)
 1430   ON ESC G1=1
 1440   PRINT "DU HAVDE EN TRÆF-SIKKERHED PÅ"; QWE; "%"
 1445   ON ESC G1=1
 1450   EXEC CUR(1,7)
 1455   ON ESC G1=1
 1460   PRINT "DU FIK"; CHR(130); POIU; CHR(128); "POINT"
 1470 ENDPROC 
 1480 END 
 1490 PROC VÆK
 1500   OUT 1,0
 1510   OUT 0,79
 1520   OUT 0,152
 1530   OUT 0,186
 1540   OUT 0,125
 1550   OUT 1,35
 1560   OUT 1,128
 1570   OUT 0,0
 1580   OUT 0,0
 1590 ENDPROC 
 1600 PROC FREM
 1610   OUT 1,0
 1620   OUT 0,79
 1630   OUT 0,152
 1640   OUT 0,122
 1650   OUT 0,93
 1660   OUT 1,35
 1670   OUT 1,128
 1680   OUT 0,0
 1690   OUT 0,0
 1700 ENDPROC 
▶03◀«nul»