DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦c07d37a0d⟧ TextFile

    Length: 7680 (0x1e00)
    Types: TextFile
    Names: »B29«

Derivation

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

TextFile

 0010 REM FIL-NAVN "HANGMAN"
 0020 PRINT CHR(12)
 0030 DIM BJ$(1)
 0040 PRINT TAB(26); "HANGMAN"
 0050 PRINT 
 0060 PRINT "MASKINEN VÆLGER ET ORD SOM DEN GEMMER."
 0070 PRINT "DU FÅR KUN AT VIDE HVOR MANGE BOGSTAVER DER INDGÅR I ORDET"
 0080 PRINT "HVIS DU GÆTTER RIGTIG FORTÆLLER MASKINEN DIG"
 0090 PRINT "HVOR I ORDET BOGSTAVET INDGÅR."
 0100 PRINT "EFTER HVER FEJLSLAGEN FORSØG HÆNGER MASKINEN DIG EN LILLE SMULE."
 0110 PRINT "DU HAR 10 FORSØG INDEN DU ER HÆNGT H E L T."
 0120 PRINT 
 0130 PRINT "SAMTLIGE ORD ER STAVET MED STORT."
 0140 PRINT 
 0150 PRINT "NÅR/HVIS DU GÆTTER ET BOGSTAV RIGTIG FÅR DU MULIGHED"
 0160 PRINT "FOR AT GÆTTE HELE ORDET. HVIS DU FEJLER HER, TÆLLER"
 0170 PRINT "DET IKKE MED I REGNSKABET."
 0180 PRINT 
 0190 INPUT "NÅR DU HAR LÆST DETTE TAST RETURN",BJ$
 0200 DIM ORD$(20),P$(144,1),D$(20,1),N$(26,1),U(50),H$(3,4)
 0210 DIM BOGS$(1),L$(26),G$(1),B$(20),W$(3),T$(3),TOM$(1)
 0220 TOM$(1 : 1)=" "
 0230 NN=50; C=1
 0240 PRINT CHR(12)
 0250 FOR I=1 TO 20
 0260   D$(I)="-"
 0270 NEXT I
 0280 M=0
 0290 FOR I=1 TO 26
 0300   N$(I)=""
 0310 NEXT I
 0320 FOR I=1 TO 144
 0330   P$(I)=" "
 0340 NEXT I
 0350 FOR I=1 TO 144 STEP 12
 0360   P$(I)="X"
 0370 NEXT I
 0380 FOR I=2 TO 7
 0390   P$(I)="X"
 0400 NEXT I
 0410 P$(19)="X"
 0420 IF C<NN THEN GO TO 0450
 0430 PRINT "DU HAR GÆTTET ALLE ORDERNE"
 0440 GO TO 2240
 0450 RANDOMIZE 3
 0460 Q=INT(NN*RND(0))+1
 0470 IF U(Q)=1 THEN GO TO 0450
 0480 U(Q)=1; C=C+1; T1=0
 0490 PRINT CHR(6); CHR(125); CHR(103); 
 0500 PRINT "JEG GØR LIGE KLAR"
 0510 RR=1
 0520 PRINT CHR(6); CHR(96); CHR(99); 
 0530 EXEC SAMELINE
 0540 FOR I=RR TO RR+11
 0550   PRINT P$(I); 
 0560 NEXT I
 0570 RR=RR+12
 0580 IF RR<>145 THEN 
 0590   PRINT 
 0600   GO TO 0540
 0610 ENDIF 
 0620 RESTORE 
 0630 FOR I=1 TO Q
 0640   READ ORD$
 0650 NEXT I
 0660 ANTAL=0
 0670 FOR I=1 TO 20
 0680   BOGS$(1 : 1)=ORD$(I : 1)
 0690   IF BOGS$=" " THEN EXIT 
 0700   L$(I : 1)=BOGS$(1 : 1)
 0710   ANTAL=ANTAL+1
 0720 NEXT I
 0730 D$(ANTAL+1)=" "
 0740 PRINT CHR(6); CHR(96); CHR(111); 
 0750 PRINT "HER ER DE BOGSTAVER DU HAR VALGT:"
 0760 FOR I=1 TO 26
 0770   PRINT N$(I); 
 0780   IF N$(I+1)="" THEN EXIT 
 0790   PRINT ","; 
 0800 NEXT I
 0810 PRINT CHR(6); CHR(96); CHR(113); 
 0820 FOR I=1 TO ANTAL
 0830   PRINT D$(I); 
 0840 NEXT I
 0850 PRINT 
 0860 PRINT 
 0870 PRINT "                                                    "
 0880 EXEC SAMELINE
 0890 INPUT "HVAD ER DIT GÆT: ",G$(1 : 1)
 0900 EXEC UPPERCASE(G$)
 0910 Z=0; Q=3
 0920 FOR I=1 TO 26
 0930   IF N$(I)="" THEN 
 0940     Q=2
 0950   ELSE 
 0960     IF G$=N$(I) THEN 
 0970       PRINT CHR(6); CHR(125); CHR(103); 
 0980       PRINT "DU HAR GÆTTET DETTE BOGSTAV FØR"
 0990       Q=1
 1000     ENDIF 
 1010   ENDIF 
 1020   IF Q<>3 THEN EXIT 
 1030 NEXT I
 1040 IF Q=3 THEN GO TO 1070
 1050 IF Q=2 THEN GO TO 1090
 1060 IF Q=1 THEN GO TO 0740
 1070 PRINT "PROGRAM FEJL -- START FORFRA"
 1080 GO TO 2240
 1090 N$(I)=G$(1 : 1)
 1100 T1=T1+1
 1110 FOR I=1 TO ANTAL
 1120   IF L$(I : 1)=G$(1 : 1) THEN 
 1130     D$(I)=G$
 1140     Z=Z+1
 1150   ENDIF 
 1160 NEXT I
 1170 PRINT CHR(6); CHR(96); CHR(96); 
 1180 PRINT "                                                "
 1190 PRINT "                                              "
 1200 IF Z=0 THEN GO TO 1530
 1210 GO TO 1220
 1220 FOR I=1 TO ANTAL+1
 1230   IF D$(I)="-" THEN 
 1240     EXIT 
 1250   ELSE 
 1260     IF D$(I)=" " THEN 
 1270       GO TO 1500
 1280     ENDIF 
 1290   ENDIF 
 1300 NEXT I
 1310 PRINT CHR(6); CHR(125); CHR(103); 
 1320 PRINT "                                            "
 1330 PRINT CHR(6); CHR(96); CHR(113); 
 1340 FOR I=1 TO ANTAL
 1350   PRINT D$(I); 
 1360 NEXT I
 1370 PRINT 
 1380 PRINT 
 1390 INPUT "HVAD ER DIT GÆT PÅ HELE ORDET : ",B$
 1400 EXEC UPPERCASE(B$)
 1410 IF B$+TOM$=ORD$ THEN GO TO 1450
 1420 PRINT CHR(6); CHR(125); CHR(103); 
 1430 PRINT "FORKERT. PRØV ET ANDET BOGSTAV"
 1440 GO TO 0740
 1450 PRINT "KORREKT !!! DET TOG DIG"; T1; "GÆT"
 1460 INPUT "ØNSKER DU ET ANDET ORD(JA/NEJ)",W$
 1470 IF W$="JA" OR W$="JA" THEN GO TO 0240
 1480 PRINT "DET HAR VÆRET MORSOMT ! - FARVEL FOR NU -"
 1490 GO TO 2240
 1500 PRINT "DU FANDT ORDET----- "; 
 1510 PRINT ORD$
 1520 GO TO 1460
 1530 M=M+1
 1540 PRINT 
 1550 PRINT CHR(6); CHR(96); CHR(96); 
 1560 PRINT "BEKLAGER DETTE BOGSTAV INDGÅR IKKE I ORDET"
 1570 ON M GO TO 1580,1600,1620,1640,1660,1680,1700,1720,1740,1760
 1580 PRINT "FØRST TEGNER VI HOVEDET"
 1590 GO TO 1770
 1600 PRINT "NU TEGNER VI KROPPEN"
 1610 GO TO 1770
 1620 PRINT "DET NÆSTE VI TEGNER ER EN ARM"
 1630 GO TO 1770
 1640 PRINT "NU ER DET TID FOR DEN ANDEN ARM"
 1650 GO TO 1770
 1660 PRINT "LAD OS NU TEGNE DET HØJRE BEN"
 1670 GO TO 1770
 1680 PRINT "DENNE GANG TEGNER VI DET VENSTRE BEN"
 1690 GO TO 1770
 1700 PRINT "NU SÆTTER VI DEN ENE HÅND PÅ"
 1710 GO TO 1770
 1720 PRINT "DET NÆSTE ER DEN ANDEN HÅND"
 1730 GO TO 1770
 1740 PRINT "NU TEGNER VI DEN ENE FOD"
 1750 GO TO 1770
 1760 PRINT "HER ER DEN ANDEN FOD -- DU ER HÆNGT --"
 1770 ON M GO TO 1780,1810,1830,1850,1870,1890,1910,1930,1950,1970
 1780 P$(30)="-"; P$(31)="-"; P$(32)="-"; P$(41)="("; P$(42)="."
 1790 P$(44)="."; P$(45)=")"; P$(54)="-"; P$(55)="-"; P$(56)="-"
 1800 GO TO 1980
 1810 P$(67)="X"; P$(79)="X"; P$(91)="X"; P$(103)="X"
 1820 GO TO 1980
 1830 P$(39)="'"; P$(52)="'"; P$(65)="'"; P$(78)="'"
 1840 GO TO 1980
 1850 P$(47)="'"; P$(58)="'"; P$(69)="'"; P$(80)="'"
 1860 GO TO 1980
 1870 P$(114)="'"; P$(125)="'"
 1880 GO TO 1980
 1890 P$(116)="'"; P$(129)="'"
 1900 GO TO 1980
 1910 P$(27)="O"
 1920 GO TO 1980
 1930 P$(35)="O"
 1940 GO TO 1980
 1950 P$(136)="O"; P$(137)="O"
 1960 GO TO 1980
 1970 P$(141)="O"; P$(142)="O"
 1980 R=0; RR=0
 1990 FOR I=1 TO 3
 2000   H$(I)=P$(I+R)+P$(I+1+R)+P$(I+2+R)+P$(I+3+R)
 2010   R=R+3
 2020 NEXT I
 2030 PRINT H$(1)+H$(2)+H$(3)
 2040 RR=RR+12; R=RR
 2050 IF R<>144 THEN GO TO 1990
 2060 PRINT CHR(6); CHR(125); CHR(103); 
 2070 PRINT "                                          "
 2080 IF M<>10 THEN GO TO 0740
 2090 PRINT CHR(6); CHR(96); CHR(115); 
 2100 PRINT "BEKLAGER - DU TABTE - ORDET VAR ---"; ORD$; "---"
 2110 PRINT "DET SVIPSEDE DENNE GANG GJORDE DET IKKE"
 2120 GO TO 1460
 2130 INPUT "TAST JA ELLER NEJ",T$
 2140 IF T$="JA" OR T$="JA" THEN GO TO 0250
 2150 DATA "FIN ","GIK ","SOL ","SNE ","LYS ","BIL ","TUD "
 2160 DATA "FISK ","SLUT ","GRÆS ","PIBE ","KÆLK ","SNUE ","TABE "
 2170 DATA "LAMPE ","HÆNGT ","RC700 ","GALGE ","BOMBE ","FLINT ","LIKØR "
 2180 DATA "BLOMST ","SENNEP ","GARAGE ","POTENS ","GRATIS ","INDMAD "
 2190 DATA "TELEFON ","RYGEOST ","TRAKTAT ","VIKLERS","XYLOFON ","YNDLING "
 2200 DATA "SKÆRSILD ","ØRKESLØS ","VÆRTSHUS ","VILDMAND ","SVÆRVÆGT "
 2210 DATA "FOTOGRAFI ","SENSATION ","ÆGTESTAND ","UNDERSKÅL ","TRÆDEPUDE "
 2220 DATA "VIDTLØFTIG ","UNDERMÅLER ","TRYKKABINER ","INDKASSERE "
 2230 DATA "TRANSMISSION ","ELEKTRICITET ","VIOLINBYGGER "
 2240 STOP 
 2250 PROC SAMELINE
 2260   PRINT CHR(13); CHR(26); CHR(11); 
 2270 ENDPROC 
 2280 PROC UPPERCASE(E)
 2290   FOR TÆL=1 TO LEN(E$)
 2300     IF E$(TÆL : 1)<=CHR(125) AND E$(TÆL : 1)=>CHR(97) THEN 
 2310       E$(TÆL : 1)=CHR(ORD(E$(TÆL : 1))-32)
 2320     ENDIF 
 2330   NEXT TÆL
 2340 ENDPROC UPPERCASE
 2350 REM //----------------------------------------------//
«eof»