Listing of file='HANGMAN' on disk='vmedia/games.wvd.zip'
# Sector 931, program filename = 'HANGMAN'
0001 GOTO 100
0002 DEFFN'00"LIST S 100,9999"
0003 DEFFN'02"GOSUB'"
0004 DEFFN'03"MAT"
0005 DEFFN'04"INPUT"
0006 DEFFN'05"REWIND"
0007 DEFFN'06"DATA"
0008 DEFFN'07"LOAD"
0009 DEFFN'8 "SAVE"
0010 DEFFN'09"GOTO"
0011 DEFFN'10"SELECT"
0012 DEFFN'11"THEN"
0013 DEFFN'12"FOR"
0014 DEFFN'13"STEP"
0015 DEFFN'14"NEXT"
0016 DEFFN'15"CLEAR P100"
0017 DEFFN'16"RENUMBER 100,100"
0018 DEFFN'17"RND("
0019 DEFFN'18"ABS("
0020 DEFFN'19"SGN("
0021 DEFFN'20"INT("
0022 DEFFN'21"SKIP"
0023 DEFFN'22"BACKSPACE"
0024 DEFFN'23"HEX("
0025 DEFFN'24"RETURN"
0026 DEFFN'25"PLOT<"
0027 DEFFN'26"END"
0028 DEFFN'27"PRINT USING"
0029 DEFFN'28"TRACE OFF"
0030 DEFFN'29"TRACE"
0031 DEFFN'30
0032 PRINT HEX(03)
: RETURN
0033 DEFFN'31"CLEAR V"
0034 DEFFN'01"DEFFN'"
0100 DIM D$(10,20)1,W$(50)10
0110 PRINT HEX(03)
0120 M=20
: N=10
: M1=10
0130 K=1
0140 DATA LOAD DC OPEN F"HANGDATA"
: DATA LOAD DC W$()
0150 PRINT HEX(03)
0160 INPUT "CHOOSE A NUMBER BETWEEN 1 AND 50",K
0170 D$(1,1),D$(1,14)="+"
0180 FOR J=2TO 13
: D$(1,J)="-"
: NEXT J
0190 FOR I=2TO 10
: D$(I,1)="!"
: NEXT I
: D$(10,4)=HEX(5C)
0200 D$(9,2)=HEX(5C)
0210 GOSUB '100("O")
0220 GOSUB '101("!")
0230 GOSUB '102(HEX(5B),HEX(5D))
0240 GOSUB '103("-")
0250 GOSUB '104("-")
0260 GOSUB '105(HEX(2F))
0270 GOSUB '106(HEX(5C))
0280 GOSUB '107(HEX(5C))
0290 GOSUB '108(HEX(2F))
0300 PRINT HEX(03)
0310 GOSUB 610
0320 Z1=0
0330 W1$=W$(K)
0340 I=1
0350 IF STR(W1$,I,1)=HEX(20) THEN 390
0360 I=I+1
0370 IF I>M1THEN 380
: GOTO 350
0380 I=M1+1
0390 N1=I-1
0400 P$=" "
0410 FOR I=1TO N1
0420 STR(P$,I,1)="-"
: NEXT I
0430 PRINT
: PRINT TAB(10);P$
0440 I=1
0450 IF STR(P$,I,1)="-" THEN 500
0460 I=I+1
0470 IF I>N1THEN 480
: GOTO 450
0480 PRINT " CONGRATULATIONS! YOU GOT IT RIGHT!!"
0490 GOTO 740
0500 PRINT
: PRINT " "
: PRINT HEX(0C);
0510 INPUT " GUESS A LETTER",L$
0520 Z=0
0530 I=1
0540 IF STR(W1$,I,1)<>L$THEN 550
: Z=1
: STR(P$,I,1)=L$
0550 I=I+1
0560 IF I>N1THEN 570
: GOTO 540
0570 IF Z=0THEN 620
0580 PRINT HEX(0C);" "
0590 PRINT HEX(0C0C0C0C);
0600 GOTO 430
0610 PRINT HEX(01);
: MAT PRINT D$
: RETURN
: PRINT HEX(01);
: FOR I=1TO N
: FOR J=1TO M
: PRINT D$(I,J);
: NEXT J
: PRINT
: NEXT I
: RETURN
0620 Z1=Z1+1
0630 IF Z1>1THEN 640
: GOSUB '108(" ")
: GOTO 780
0640 IF Z1>2THEN 650
: GOSUB '107(" ")
: GOTO 780
0650 IF Z1>3THEN 660
: GOSUB '106(" ")
: GOTO 780
0660 IF Z1>4THEN 670
: GOSUB '105(" ")
: GOTO 780
0670 IF Z1>5THEN 680
: GOSUB '104(" ")
: GOTO 780
0680 IF Z1>6THEN 690
: GOSUB '103(" ")
: GOTO 780
0690 IF Z1>7THEN 700
: GOSUB '102(" "," ")
: GOTO 780
0700 IF Z1>8THEN 710
: GOSUB '101(" ")
: GOTO 780
0710 IF Z1>9THEN 720
: GOSUB '100(" ")
: GOTO 720
0720 GOSUB 610
0730 PRINT HEX(0A0A);"SORRY! YOU LOSE. THE WORD WAS ";W1$
0740 INPUT "WOULD YOU LIKE TO TRY AGAIN",A3$
0750 IF A3$="YES" THEN 770
: IF A3$="NO"THEN 760
: PRINT HEX(0C);
: GOTO 740
0760 PRINT HEX(03)
: END
0770 K=K+1
: IF K<=50 THEN 170
: K=K-50
: GOTO 170
0780 GOSUB 610
0790 GOTO 430
0800 DEFFN'100(A$)
0810 D$(2,13),D$(2,15),D$(3,13),D$(3,15)=A$
: RETURN
0820 DEFFN'101(A$)
0830 D$(4,14)=A$
: RETURN
0840 DEFFN'102(A1$,A2$)
0850 D$(5,13),D$(6,13),D$(7,13)=A1$
0860 D$(5,15),D$(6,15),D$(7,15)=A2$
: RETURN
0870 DEFFN'103(A$)
0880 D$(5,9),D$(5,10),D$(5,11),D$(5,12)=A$
: RETURN
0890 DEFFN'104(A$)
0900 D$(5,16),D$(5,17),D$(5,18),D$(5,19)=A$
: RETURN
0910 DEFFN'105(A$)
0920 D$(8,13),D$(9,11),D$(10, 9)=A$
: RETURN
0930 DEFFN'106(A$)
0940 D$(8,15),D$(9,17),D$(10,19)=A$
: RETURN
0950 DEFFN'107(A$)
0960 D$(10,8)=A$
: RETURN
0970 DEFFN'108(A$)
0980 D$(10,20)=A$
: RETURN
0990 FOR I=I1 TO 100
1000 INPUT "NEXT",W$(I)
1010 NEXT I
1020 INPUT "READY TO SAVE DATA",A$
1030 DATA SAVE W$()