FRUIT MACHINE
53281,6:
53280,0:
64NET EXAMPLE PROGRAMMES"
NAME:
    FRUIT MACHINE"
PURPOSE:
 DEMONSTRATE COMMAND CHANNEL             USE"
PRESS 
SPACE
 TO CONTINUE"
 OPEN COMMAND CHANNEL TO 64NET AND       CLOSE ANY OPEN FILES
(167),15,"UJ"
CREDITS
 MAIN LOOP
CREDITS REMAINING:
";CREDITS
 TOTAL GAMES PLAYED:
";GAMES
CREDITS
CREDITS
1:GAMES
GAMES
1,"FRUIT"
1,EN,ME$,WINNINGS,TRASH
RESULT: 
 WINNINGS
SORRY - YOU DIDN'T WIN ANYTHING"
 WINNINGS
CONGRATULATIONS! - YOU WON";WINNINGS;" COINS"
CREDITS
CREDITS
WINNINGS
CREDITS
 2000
PRESS SPACE TO SPIN REELS OR S TO STOP"
 QUITTING
 CREDITS
"GOOD IDEA - QUIT WHILE YOUR AHEAD!"
 CREDITS
"SMART MOVE TO QUIT NOW AND CUT YOUR     LOSSES"
 CREDITS
"WELL HOW BOUT THAT! - YOU BROKE EVEN!"