Compucolor.org – Virtual Media

Listing of file='HANG.BAS;01' on disk='vmedia/chip_8-sector.ccvf'

1 PLOT 12
5 H= 0:A$= ""
7 FOR X= 1TO 5:W(X)= 0:NEXT X
10 PLOT 29,23:INPUT "ENTER A 5 LETTER WORD";A$
20 IF LEN (A$)< > 5THEN PLOT 29,17:PRINT "I SAID 5 LETTERS":GOTO 10
30 PLOT 29,22:PRINT :INPUT "YOUR GUESS";G$
40 FOR X= 1TO 5
50 IF MID$ (A$,X,1)= G$THEN G= 1:GOTO 2000
60 NEXT X
62 G= 0:GOTO 2000
65 H= H+ 1
70 IF H= 10THEN GOTO 2500
80 PLOT 29,19:PRINT 10- H;" MISTAKES UNTIL YOU HANG"
90 GOTO 30
2000 PRINT
2005 L= 0
2010 IF G= 1THEN W(X)= 1
2015 PLOT 29,20,30,23
2020 FOR X= 1TO 5
2030 IF W(X)= 1THEN PRINT MID$ (A$,X,1);
2040 IF W(X)= 0THEN PRINT "-";:L= 1
2050 NEXT X
2054 PLOT 30,16
2055 PRINT
2060 IF L= 0THEN GOTO 3000
2065 IF G= 0THEN GOTO 65
2070 GOTO 30
2500 PLOT 29,17,31:PRINT "YOU HANG"
2505 HA= HA+ 1
2513 PLOT 15,14
2515 PRINT "THE WORD WAS ";A$;" STUPID"
2520 GOTO 3100
3000 PLOT 29,18,31:PRINT :PRINT "YOU LIVE"
3003 PLOT 15,14
3005 LI= LI+ 1
3010 PRINT
3100 PLOT 29,21:PRINT "WON-";LI;"  LOST-"HA
3105 PLOT 29,22:INPUT "DO YOU WANT TO PLAY AGAIN ";P$
3120 IF P$= "Y"THEN GOTO 5
3130 PLOT 29,18
3140 END