DataMuseum.dk

top - metrics - download

    Length: 5120 (0x1400)
    Types: TextFile
    Names: »B40«

└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
    └─⟦this⟧ »/B40« 

TextFile

 0040 OUT 1,0
 0050 REM //----OVERSKRIFT OG INSTRUKTION----//
 0060 PRINT CHR(12)
 0070 PRINT "               "; CHR(130); "< < < <"; CHR(144); " M E M O R Y "; 
 0080 PRINT CHR(139); "> > > >"; CHR(128)
 0090 PRINT 
 0100 PRINT "UNDER HVERT BOGSTAV GEMMER DER SIG ET TAL, SOM DU KAN FÅ AT SE,"
 0110 PRINT "NÅR DU TASTER BOGSTAVET IND."
 0120 PRINT "DU MÅ SE 2 TAL AD GANGEN, OG HVIS DE TILSAMMEN GIVER DEN VALGTE"
 0130 PRINT "SUM, FÅR DU 2 POINT OG MÅ PRØVE IGEN, MODPARTEN FÅR ET MINUS POINT."
 0140 PRINT 
 0150 DEF FNC(X)=95+X-64*(X>32)-64*(X>64)
 0160 DIM T$(70),P$(21),S$(10),MV(16),ML(16),PV(2),PL(2),NR(2),PT(2),TAL(16)
 0170 DIM BESAT(16)
 0180 T$="ABCDEFGHIJKLMNOP"
 0190 PROC PLOT(XX,YY,CC)
 0200   PRINT CHR(6); CHR(FNC(XX)); CHR(FNC(YY)); CHR(CC); P$; CHR(128); 
 0210 ENDPROC 
 0220 ON ESC GO TO 1460
 0230 OUT 1,35
 0240 REPEAT 
 0250   REPEAT 
 0260     INPUT "INDTAST SUMMEN (2-999): ",SUM
 0270   UNTIL SUM=>2 AND SUM<=999
 0290   FOR Q=1 TO 16
 0300     BESAT(Q)=0
 0310     TAL(Q)=0
 0320   NEXT Q
 0330   REM //----TALLENE UDVÆLGES----//
 0340   RANDOMIZE 
 0350   FOR Q=1 TO 8
 0360     T1=INT(RND(0)*SUM)+1; T2=SUM-T1
 0370     REPEAT 
 0380       P1=INT(RND(0)*16)+1; P2=INT(RND(0)*16)+1
 0390     UNTIL TAL(P1)=0 AND TAL(P2)=0 AND P1<>P2
 0400     TAL(P1)=T1; TAL(P2)=T2
 0410   NEXT Q
 0420   REM //----SPILLEPLADEN LAVES----//
 0425   OUT 1,0
 0430   PRINT CHR(12)
 0440   K=144; Q=0
 0450   FOR L=2 TO 11 STEP 3
 0460     FOR V=20 TO 50 STEP 10
 0470       Q=Q+1; ML(Q)=L; MV(Q)=V
 0480       P$="   "+T$(Q : 1)+"   "
 0490       EXEC PLOT(V,L,K)
 0500       PRINT 
 0510     NEXT V
 0520   NEXT L
 0530   REM //----LINIEN MED SUMMEN----//
 0540   V=28; L=13; K=132; P$=",,,,,,,,,,,,,,,,,,,,,"
 0550   EXEC PLOT(V,L,K)
 0560   V=28; L=14; K=128; P$="S U M M E N  E R"
 0570   EXEC PLOT(V,L,K)
 0580   PRINT SUM
 0590   V=28; L=15; K=132; P$=",,,,,,,,,,,,,,,,,,,,,"
 0600   EXEC PLOT(V,L,K)
 0610   REM //----LINIEN MED SPILLER NR----//
 0620   V=12; L=18; K=144; P$="SPILLER NR:"
 0630   FOR Q=1 TO 2
 0640     V=V*Q*Q
 0650     EXEC PLOT(V,L,K)
 0660     PRINT CHR(144); Q; CHR(128)
 0670   NEXT Q
 0680   REM //----LINIEN MED POINT----//
 0690   L=22; V=12; K=144; P$=" P O I N T:"
 0700   FOR Q=1 TO 2
 0710     V=V*Q*Q
 0720     EXEC PLOT(V,L,K)
 0730     PRINT CHR(144); PT(Q); CHR(128)
 0740   NEXT Q
 0750   R=0
 0760   REM //----CURSEREN FJERNES----//
 0770   OUT 1,0
 0780   OUT 0,79
 0790   OUT 0,152
 0800   OUT 0,186
 0810   OUT 0,125
 0820   OUT 1,35
 0830   OUT 1,128
 0840   OUT 0,0
 0850   OUT 0,0
 0860   REM //----PLADEN ER FÆRDIG OG SPILLET STARTER----//
 0870   REPEAT 
 0880     FOR V=21 TO 57 STEP 36
 0890       FOR G=1 TO 2
 0900         L=20; K=130; P$="G Æ T"
 0910         REM //----INPUT----//
 0920         REPEAT 
 0930           EXEC PLOT(V-3,L,K)
 0940           PRINT 
 0950           S$=CHR(KEY(0))
 0960           Z=0
 0970           FOR Q=1 TO 16
 0980             IF S$=CHR(96+Q) THEN S$=CHR(64+Q)
 0990             IF T$(Q : 1)=S$(1 : 1) AND BESAT(Q)=1 THEN Z=1
 1000           NEXT Q
 1010         UNTIL S$=>"A" AND S$<="P" AND Z=0
 1020         REM //----DEN UDVALGTE BRIK VENDES----//
 1030         P$="        "; K=128
 1040         EXEC PLOT(V-3,L,K)
 1050         P$=" "
 1060         FOR Q=1 TO 16
 1070           IF T$(Q : 1)=S$(1 : 1) THEN 
 1080             EXEC PLOT(MV(Q)-1,ML(Q),K)
 1090             PV(G)=MV(Q); PL(G)=ML(Q); NR(G)=Q
 1100             PRINT CHR(130); TAL(Q)
 1110           ENDIF 
 1120         NEXT Q
 1130       NEXT G
 1140       REM //----CHECK FOR SUM----//
 1150       IF TAL(NR(1))+TAL(NR(2))<>SUM THEN 
 1160         FOR Q=1 TO 500
 1170         NEXT Q
 1180         REM //----BRIKKEN VENDES IGEN----//
 1190         FOR Q=1 TO 2
 1200           K=144; P$="   "+T$(NR(Q) : 1)+"   "
 1210           EXEC PLOT(PV(Q),PL(Q),K)
 1220           PRINT 
 1230         NEXT Q
 1240       ELSE //----POINT FOR RIGTIG SUM----//
 1250         FOR Q=1 TO 2
 1260           EXEC PLOT(PV(Q)-1,PL(Q),K)
 1270           PRINT CHR(128); TAL(NR(Q))
 1280         NEXT Q
 1290         PT((V+15)/36)=PT((V+15)/36)+3; PT(1)=PT(1)-1; PT(2)=PT(2)-1
 1300         R=R+1; L=22; VV=12; K=144; P$=" P O I N T:"
 1310         BESAT(NR(1))=1; BESAT(NR(2))=1
 1320         IF V=21 OR R=8 THEN 
 1330           V=58
 1340         ELSE 
 1350           V=21
 1360         ENDIF 
 1370         FOR Q=1 TO 2
 1380           VV=VV*Q*Q
 1390           EXEC PLOT(VV,L,K)
 1400           PRINT CHR(144); PT(Q); CHR(128)
 1410         NEXT Q
 1420       ENDIF 
 1430     NEXT V
 1440   UNTIL R=8
 1450   PRINT 
 1460   REM //----CURSEREN SÆTTES IGEN SOM STREG----//
 1465   ON ESC CHAIN "LOGON"
 1470   OUT 1,0
 1480   OUT 0,79
 1490   OUT 0,152
 1500   OUT 0,122
 1510   OUT 0,93
 1520   OUT 1,35
 1530   OUT 1,128
 1540   OUT 0,0
 1550   OUT 0,0
 1560   INPUT "VIL I SPILLE IGEN? ",S$
 1565   IF S$(1 : 1)="N" OR S$(1 : 1)="N" THEN CHAIN "LOGON"
 1570 UNTIL S$(1 : 1)="N" OR S$(1 : 1)="N"
▶03◀«nul»