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