 100 '* Andre Cheramy (c) 2020 *
 110 '* MENU.BAS *
 120 'V 0315-1053
 130 LOAD"PREDEFLM":'de #9800 a #98C4 en Ram
 140 PAPER 3:INK 0:POKE#BB80,#13:POKE#BB81,#03
 150 FOR K=#BB82 TO #BBA7:POKE K,32:NEXT
 160 CLS:PRINT@10,7;"Au choix :"
 170 PRINT@10, 9;"1 - PING"
 180 PRINT@10,10;"2 - SHOOT"
 190 PRINT@10,11;"3 - EXPLODE"
 200 PRINT@10,12;"4 - ZAP"
 210 PRINT@10,13;"5 - TOUCON"
 220 PRINT@10,14;"6 - TOUNOR"
 230 PRINT@10,15;"7 - OUPS"
 240 PRINT@10,17;"8 - Tous a la suite"
 250 FOR Y=9 TO 17:PLOT 11,Y,0:NEXT
 260 PRINT@10,19;"";:INPUT C:PRINT@10,19;"  "CHR$(8)CHR$(8)C;
 270 IF C=1 THEN PLOT 1,C+8,1:CALL#9800:WAIT 100:PLOT 1,C+8,0:'PING
 280 IF C=2 THEN PLOT 1,C+8,1:CALL#9815:WAIT  50:PLOT 1,C+8,0:'SHOOT
 290 IF C=3 THEN PLOT 1,C+8,1:CALL#982A:WAIT 150:PLOT 1,C+8,0:'EXPLODE
 300 IF C=4 THEN PLOT 1,C+8,1:CALL#9869:WAIT  50:PLOT 1,C+8,0:'ZAP
 310 IF C=5 THEN PLOT 1,C+8,1:CALL#983F:WAIT  50:PLOT 1,C+8,0:'TOUCON
 320 IF C=6 THEN PLOT 1,C+8,1:CALL#9854:WAIT  50:PLOT 1,C+8,0:'TOUNOR
 330 IF C=7 THEN PLOT 1,C+8,1:CALL#989D:WAIT  50:PLOT 1,C+8,0:'OUPS
 340 IF C<>8 THEN 260:'Une reponse valable VSP
 350 FOR C=1 TO 7
 360 PLOT 1,C+8,1:N=400+(10*C):GOSUB N:PLOT 1,C+8,0
 370 NEXT
 380 GOTO 260
 390 '
 410 CALL#9800:WAIT 100:RETURN:'PING
 420 CALL#9815:WAIT  50:RETURN:'SHOOT
 430 CALL#982A:WAIT 150:RETURN:'EXPLODE
 440 CALL#9869:WAIT  50:RETURN:'ZAP
 450 CALL#983F:WAIT  50:RETURN:'TOUCON
 460 CALL#9854:WAIT  50:RETURN:'TOUNOR
 470 CALL#989D:WAIT  50:RETURN:'OUPS
 480 END
