!*************************** AMUS Program Label ******************************
! Filename: FRUIT2.BAS                                      Date: 04/21/89
! Category: GAME         Hash Code: 562-067-233-674      Version: 0.0
! Initials: WYCH/AM      Name: W. HARTGERS
! Company: OMEGON COMPUTER SYSTEMS HOLLAND         Telephone #:
! Related Files: VERIFY.SBR, PACMAN.SBR (BOTH OF WHICH ARE IN [100,100]
! Min. Op. Sys.: 1.3B AMOSL                    Expertise Level: BEG
! Special:
! Description: Game which simulates a slot machine. Note that PACMAN.SBR must
! be loaded into user memory partition for game to run. (.LOAD PACMAN.SBR)
!
!*****************************************************************************
!*************************************************************************
!**   BELLFRUIT SIMULATOR     BY :   W HARTGERS / OMEGON COMPUTERSYSTEMS *
!**                                  HOLLAND                             *
!**                                                                      *
!**   CONVERTED VERSION (TO ENGLISH)                                     *
!**   AND : MADE TERMINAL-INDEPENDENT                                    *
!**                                                                      *
!**   If you like this game, or have some suggestions, please send       *
!**   mail to W Hartgers - WYCH/AM                                       *
!**                                                                      *
!**                                                                      *
!*************************************************************************

       RANDOMIZE
       STRSIZ  80
       PRINT   "FRUIT  By   W Hartgers / Arnhem (HOLLAND)"
       FOR     I=1 TO 500 : NEXT I
       DIM     BAR$(15)
       DIM     TXT1$(30)
       DIM     RX$(20)
       MAP1    T$,S,45
       PRINT   TAB(-1,29);
       XCALL   VERIFY,"PACMAN.SBR"
       XCALL   PACMAN
       BAR$(01)        ="CHERRY*1"
       BAR$(02)        ="PEAR   2"
       BAR$(03)        ="BELL  *3"
       BAR$(04)        ="B A R  4"
       BAR$(05)        ="OMEGON*5"
       BAR$(06)        ="APPLE  6"
       BAR$(07)        ="CHERRY*1"
       BAR$(08)        ="BELL   3"
       BAR$(09)        ="APPLE *6"
       BAR$(10)        ="PEAR   2"
       BAR$(15)        ="CHERRY*1"
       BAR$(11)        ="OMEGON*5"
       BAR$(12)        ="APPLE  6"
       BAR$(13)        ="CHERRY*1"
       BAR$(14)        ="B A R  4"
A1:
       READ    TXT1$
       IF      TXT1$="END" GOTO A2
       MES1=MES1+1
       TXT1$(MES1)=TXT1$
       GOTO A1
A2:
       INPUT "Instructions y/n : ",I$
       I$=UCS(I$)
       IF I$="Y" GOSUB HELP
BEG:
       PRINT   TAB(-1,36);
       PRINT   TAB(-1,0);
       PRINT   TAB(-1,23)

       PRINT   TAB(01,01);TAB(-1,38)
       FOR     I=1 TO 78
       PRINT   TAB(1,I+1);TAB(-1,52);
       NEXT    I
       PRINT   TAB(01,80);TAB(-1,39);

       FOR     I=2 TO 09
       PRINT   TAB(I,1);TAB(-1,53);
       PRINT   TAB(I,80);TAB(-1,53);
       NEXT    I

       PRINT   TAB(10,01);TAB(-1,44);
       FOR     I=2 TO 44
       PRINT   TAB(10,I);TAB(-1,52);
       NEXT    I
       PRINT   TAB(10,45);TAB(-1,42);
       FOR     I=46 TO 79
       PRINT   TAB(10,I);TAB(-1,52);
       NEXT    I
       PRINT   TAB(10,80);TAB(-1,43);

       RX$(1)="77777   777777  7      7          777777  77777   7    7 77777 7777777"
       RX$(2)="7    7  7       7      7          7       7    7  7    7   7      7    "
       RX$(3)="7    7  7       7      7          7       7    7  7    7   7      7   "
       RX$(4)="77777   777777  7      7     77   777777  77777   7    7   7      7   "
       RX$(5)="7    7  7       7      7          7       7   7   7    7   7      7   "
       RX$(6)="7    7  7       7      7          7       7    7  7    7   7      7   "
       RX$(7)="77777   777777  777777 777777     7       7     7 777777 77777    7   "

       FOR    I=1 TO 7
       FOR    II=1 TO LEN(RX$(I))
       IF     RX$(I)[II;1] <> " " THEN PRINT TAB(I+1,4+II);TAB(-1,49);
       NEXT   II
       NEXT   I

       FOR     I=11 TO 23
       PRINT   TAB(I,1);TAB(-1,53);
       PRINT   TAB(I,45);TAB(-1,47);
       PRINT   TAB(I,80);TAB(-1,53);
       NEXT    I

       PRINT   TAB(23,01);TAB(-1,40);
       FOR     I=2 TO 44
       PRINT   TAB(23,I);TAB(-1,52);
       NEXT    I

       PRINT   TAB(23,45);TAB(-1,45);

       FOR     I=46 TO 79
       PRINT   TAB(23,I);TAB(-1,52);
       NEXT    I
       PRINT   TAB(23,80);TAB(-1,41);

       PRINT   TAB(-1,24);
       PRINT   TAB(11,3);"   ROLL 1       ROLL 2       ROLL 3     ";
       PRINT   TAB(-1,23);

       FOR     I=1 TO 3
       IF      I=1 THEN S=3
       IF      I=2 THEN S=16
       IF      I=3 THEN S=29
       PRINT   TAB(12,S);TAB(-1,38);
       FOR     II=1 TO 10 : PRINT TAB(12,S+II);TAB(-1,52); : NEXT II
       PRINT   TAB(12,S+11);TAB(-1,39);
       NEXT    I

       FOR     I=1 TO 3
       IF      I=1 THEN S=3
       IF      I=2 THEN S=16
       IF      I=3 THEN S=29
       PRINT   TAB(13,S);TAB(-1,47);TAB(13,S+1);TAB(-1,38);
       FOR     II=1 TO 08 : PRINT TAB(13,S+II+1);TAB(-1,52); : NEXT II
       PRINT   TAB(13,S+10);TAB(-1,39);TAB(13,S+11);TAB(-1,47);
       NEXT    I

       FOR     I=1 TO 3
       IF      I=1 THEN S=3
       IF      I=2 THEN S=16
       IF      I=3 THEN S=29
       PRINT   TAB(14,S);TAB(-1,44);TAB(14,S+1);TAB(-1,43);
       PRINT   TAB(14,S+10);TAB(-1,44);TAB(14,S+11);TAB(-1,43);
       NEXT    I

       FOR     I=1 TO 3
       IF      I=1 THEN S=3
       IF      I=2 THEN S=16
       IF      I=3 THEN S=29
       PRINT   TAB(15,S);TAB(-1,47);TAB(15,S+1);TAB(-1,40);
       FOR     II=1 TO 08 : PRINT TAB(15,S+II+1);TAB(-1,52); : NEXT II
       PRINT   TAB(15,S+10);TAB(-1,41);TAB(15,S+11);TAB(-1,47);
       NEXT    I

       FOR     I=1 TO 3
       IF      I=1 THEN S=3
       IF      I=2 THEN S=16
       IF      I=3 THEN S=29
       PRINT   TAB(16,S);TAB(-1,40);
       FOR     II=1 TO 10 : PRINT TAB(16,S+II);TAB(-1,52); : NEXT II
       PRINT   TAB(16,S+11);TAB(-1,41);
       NEXT    I

       PRINT   TAB(18,3);TAB(-1,38);
       FOR     I=1 TO 37: PRINT TAB(18,I+3);TAB(-1,46); : NEXT I
       PRINT   TAB(18,40);TAB(-1,39);
       PRINT   TAB(19,3);TAB(-1,47);TAB(19,40);TAB(-1,47);
       PRINT   TAB(20,3);TAB(-1,47);TAB(20,40);TAB(-1,47);

       PRINT   TAB(21,3);TAB(-1,44);
       FOR     I=1 TO 37: PRINT TAB(21,I+3);TAB(-1,46); : NEXT I
       PRINT   TAB(21,40);TAB(-1,43);

       PRINT   TAB(21,18);TAB(-1,42);TAB(21,31);TAB(-1,42);
       PRINT   TAB(22,3);TAB(-1,47);
       PRINT   TAB(22,18);TAB(-1,47);
       PRINT   TAB(22,31);TAB(-1,47);
       PRINT   TAB(22,40);TAB(-1,47);

       PRINT   TAB(23,3);TAB(-1,40);
       FOR     I=1 TO 37: PRINT TAB(23,I+3);TAB(-1,52); : NEXT I
       PRINT   TAB(23,3);TAB(-1,40);TAB(23,40);TAB(-1,41);
       PRINT   TAB(23,18);TAB(-1,45);TAB(23,31);TAB(-1,45);


       PRINT   TAB(-1,24);TAB(22,4);"GAMES :";TAB(22,20);"BONUS: ";
       PRINT   TAB(22,32);"WIN:";
       IF SWHELP=0 THEN SPEL   =15
       IF SWHELP=0 THEN BONUS  =00
       GOSUB   NUMBERS
       IF SWHELP=0 THEN SWVAST =0
       IF SWHELP=0 THEN GOSUB  INIT : SWVAST=1
       GOSUB   DISPL
       PRINT TAB(22,37);" ";
       PRINT TAB(11,48);"OMEGON OMEGON OMEGON   10 BONUS"
       PRINT TAB(12,48);"B A R  B A R  B A R     5 BONUS"
       PRINT TAB(13,48);"BELL   BELL   BELL      5 BONUS"
       PRINT TAB(14,48);"PEAR   PEAR   PEAR     20";
       PRINT TAB(15,48);"APPLE  APPLE  APPLE    20";
       PRINT TAB(16,48);"CHERRY CHERRY CHERRY   10";
       PRINT TAB(17,48);"OMEGON OMEGON  -       10";
       PRINT TAB(18,48);"B A R  B A R   -       10";
       PRINT TAB(19,48);"CHERRY CHERRY  -        4";
       PRINT TAB(21,48);"Every '*' at bonus time gives ";
       PRINT TAB(22,48);"20 points                     ";
       IF SWVALS=1 THEN PRINT TAB(22,70);"CHEAT";
       IF SWHELP=0 THEN SWSIL=1
       T$="  2  3    4 "
       PRINT TAB(22,36);:PRINT "    ";
       PRINT TAB(19,5);"GAMBLE: x ";T$;" or T(ake)";TAB(-1,37);
BEGIN:
BEGX:
       GOSUB   ACCEPT
       PRINT   TAB(-1,29);
       IF SWAUT=0 THEN SPEL=SPEL-1
       SWX=0 : IF BONUS=1 THEN SWX=1
       SWF=0
       GOSUB   NUMBERS
       GOSUB   ROLL
       IF SWAUT=1 THEN FOR DEL=1 TO 10000 : NEXT DEL
       GOSUB   WINNING
       GOSUB   NUMBERS
       IF BONUS <>0 THEN BONUS=BONUS-1
       PRINT TAB(22,36);:PRINT "    ";
       SWVAST  =0
       IF      VAST1=1 OR VAST2=1 OR VAST3=1 THEN SWVAST=1
       IF      WIN<>0 THEN SWVAST=1
       IF      SPEL=0 GOTO EIND
       GOTO    BEGIN

ROLL:
       PRINT TAB(24,01);SPACE(60);
       F=RND : F1=INT(F*15)
       IF F1>3 GOTO ROLLA
       XTXT=RND : YTXT=INT(XTXT*MES1)
       IF YTXT < 1 GOTO ROLLA
       IF YTXT > MES1 GOTO ROLLA

!       T$=TXT1$(YTXT)
!       PRINT TAB(24,01);TAB(-1,21);
!       FOR XT=1 TO LEN(T$)
!       PRINT T$[XT;1];" ";
!       FOR XTT=1 TO 600 : NEXT XTT
!       NEXT XT
!       PRINT TAB(24,65);TAB(-1,22);" ";
!       FOR XTT=1 TO 2000 : NEXT XTT
ROLLA:
       DD=10
       A=RND:AA=INT(A*40) : IF AA<4 GOTO ROLL
       IF VAST2 = 1 AND VAST3 = 1 THEN AA=AA*3
       IF VAST2 = 1 AND VAST3 <> 1 THEN AA=AA*2
       IF VAST2 <> 1 AND VAST3 = 1 THEN AA=AA*2
       IF VAST1=1 AND VAST2=1 AND VAST3=1 THEN RETURN
       FOR I=1 TO AA
       IF TIME<>OT GOSUB TIM
       DD=DD+15
       IF VAST1<>1 THEN ROL1=ROL1+1 : IF ROL1>15 THEN ROL1=1
       PRINT   TAB(14,6);BAR$(ROL1)[1;6];
       IF VAST2<>1 THEN ROL2=ROL2+1 : IF ROL2>15 THEN ROL2=1
       PRINT   TAB(14,19);BAR$(ROL2)[1;6];
       IF VAST3<>1 THEN ROL3=ROL3+1 : IF ROL3>15 THEN ROL3=1
       PRINT   TAB(14,32);BAR$(ROL3)[1;7];
       NEXT I

       IF SWSIL=0 THEN PRINT CHR$(7);

       IF VAST2=1 AND VAST3=1 THEN RETURN

ROLL2:
       A=RND:AA=INT(A*10) : IF AA<3 GOTO ROLL2
       FOR I=1 TO AA
       IF TIME<>OT GOSUB TIM
       DD=DD+30
       IF VAST2<>1 THEN ROL2=ROL2+1 : IF ROL2>15 THEN ROL2=1
       PRINT   TAB(14,19);BAR$(ROL2)[1;6];
       B=RND : BB=INT(B*10) : IF INT(BB/2)=BB/2 THEN GOTO ROLL2A
!       IF SPEL<25 GOTO ROLL2A
       IF BAR$(ROL1)[1;8]<>BAR$(ROL2)[1;8] GOTO ROLL2A
       IF ROL2=15 THEN ROL2=1 ELSE ROL2=ROL2+1
       PRINT   TAB(14,19);BAR$(ROL2)[1;6];
ROLL2A:
       IF VAST3<>1 THEN ROL3=ROL3+1 : IF ROL3>15 THEN ROL3=1
       PRINT   TAB(14,32);BAR$(ROL3)[1;7];
       FOR Y=1 TO DD : NEXT Y
       IF TIME<>OT GOSUB TIM
       NEXT I
       IF SWSIL=0 THEN PRINT CHR$(7);

       IF VAST3=1 THEN RETURN
ROLL3:
       A=RND:AA=INT(A*5) : IF AA<3 GOTO ROLL3
       FOR I=1 TO AA
       IF TIME<>OT GOSUB TIM
       DD=DD+30
       IF VAST3<>1 THEN ROL3=ROL3+1 : IF ROL3>15 THEN ROL3=1
       PRINT   TAB(14,32);BAR$(ROL3)[1;7];
       FOR Y=1 TO DD : NEXT Y
       IF TIME<>OT GOSUB TIM
       NEXT I
       IF SWSIL=0 THEN PRINT CHR$(7);
       RETURN


INIT:
       A=RND : AA=INT(A*16) : IF AA<1 GOTO INIT
       IF AA>15 GOTO INIT
       ROL1=AA
INIT2:
       A=RND : AA=INT(A*16) : IF AA<1 GOTO INIT2
       IF AA>15 GOTO INIT2
       ROL2=AA
INIT3:
       A=RND : AA=INT(A*16) : IF AA<1 GOTO INIT3
       IF AA>15 GOTO INIT3
       ROL3=AA
       RETURN


ACCEPT:
       PRINT   TAB(17,40);TAB(-1,35);
       VAST1=0 : VAST2=0 : VAST3=0
       IF      SWVAST=1 THEN PRINT TAB(17,03);&
               "                                        ";:&
               PRINT TAB(24,65);:GOTO ACC2
       PRINT   TAB(-1,23);
       PRINT   TAB(17,05);TAB(-1,21);TAB(-1,49);TAB(-1,49);&
               TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,22);
       PRINT   TAB(17,18);TAB(-1,21);TAB(-1,49);TAB(-1,49);&
               TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,22);
       PRINT   TAB(17,31);TAB(-1,21);TAB(-1,49);TAB(-1,49);&
               TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,49);TAB(-1,22);
       PRINT   TAB(-1,24);TAB(24,65);
ACC2:
       IF TIME<>OT GOSUB TIM
       XCALL   PACMAN,P$: IF LEN(P$)=0 AND SWAUT=0 GOTO ACC2
       IF      P$=CHR$(2) THEN GOSUB BOSS : SWHELP=1 : GOTO BEG

       IF      P$=CHR$(27) THEN PRINT TAB(-1,28);TAB(-1,0);:GOTO EINDE
       IF      P$=CHR$(13) THEN PRINT TAB(-1,29);TAB(24,65);:RETURN
       IF      P$=CHR$(185) GOSUB HELP : SWHELP=1 : GOTO BEG
       P$      =UCS(P$)
       IF      P$="S" AND SWSIL=0 THEN SWSIL=1 : PRINT TAB(22,78);" "; ELSE&
             IF        P$="S" AND SWSIL=1 THEN SWSIL=0 : PRINT TAB(22,78);"S";
       IF      P$="A" AND SWAUT=0 THEN SWAUT=1 : PRINT TAB(22,77);"A"; ELSE&
             IF        P$="A" AND SWAUT=1 THEN SWAUT=0 : PRINT TAB(22,77);" ";
       IF      SWAUT=1 THEN RETURN
       IF      P$="@" THEN SPEL=SPEL+100 : SWVALS=1 :&
               PRINT TAB(22,70);"Cheat!";
       IF      SWVAST=1 GOTO ACC2
       IF      P$="C" THEN GOTO ACCEPT
       IF      P$<"1" OR P$>"3" GOTO ACC2
       IF      P$="1" THEN VAST1=1: PRINT TAB(17,05);" "; : GOTO ACC2
       IF      P$="2" THEN VAST2=1: PRINT TAB(17,18);" "; : GOTO ACC2
       IF      P$="3" THEN VAST3=1: PRINT TAB(17,31);" "; : GOTO ACC2
       GOTO    ACC2

NUMBERS:
       PRINT   TAB(22,11);:PRINT USING "####";SPEL;
       PRINT   TAB(22,26);:PRINT USING "####";BONUS;
       RETURN


DISPL:
       PRINT   TAB(14,6);BAR$(ROL1)[1;6];
       PRINT   TAB(14,19);BAR$(ROL2)[1;6];
       PRINT   TAB(14,32);BAR$(ROL3)[1;7];
       RETURN

WINNING:
       PRINT TAB(22,36);"    ";
       XX$=""
       XX$=BAR$(ROL1)[8;1]+BAR$(ROL2)[8;1]+BAR$(ROL3)[8;1]
       BON=0:PNT=0:WIN=0
       IF XX$="555" THEN BON=10:GOSUB FLASH:  GOTO WIN5
       IF XX$="444" THEN BON=5 :GOSUB FLASH:  GOTO WIN5
       IF XX$="333" THEN BON=5 :GOSUB FLASH:  GOTO WIN5
       IF (BONUS <> 0 OR SWX=1) AND BAR$(ROL3)[7;1]="*" THEN PNT=20 : GOTO WIN5
       IF XX$="666" THEN PNT=20: GOTO WIN5
       IF XX$="222" THEN PNT=20: GOTO WIN5
       IF XX$="111" THEN PNT=10: GOTO WIN5
       IF XX$[1;2]="55" THEN PNT=10 : GOTO WIN5
       IF XX$[1;2]="44" THEN PNT=10: GOTO WIN5
       IF XX$[1;2]="11" THEN PNT=4 : GOTO WIN5
       GOTO WIN90
WIN5:
       IF PNT=0 GOTO WIN10
       IF BONUS<1 AND SWAUT=0 GOSUB GAMBLE
       IF PNT=0 GOTO WIN10
       WIN=1

       FOR XXXX=SPEL TO SPEL+PNT-1
       IF TIME<>OT GOSUB TIM
       PRINT   TAB(22,11);:PRINT USING "####";XXXX;
       FOR     Y=1 TO 800 : NEXT Y
       NEXT    XXXX
       SPEL    =XXXX
       GOTO    WIN90
WIN10:
       IF BON=0  GOTO WIN90
       WIN=1
       FOR XXXX=BONUS TO  BONUS+BON-1
       IF TIME<>OT GOSUB TIM
       PRINT   TAB(22,26);:PRINT USING "####";XXXX;
       FOR     Y=1 TO 800 : NEXT Y
       NEXT    XXXX
       BONUS   =XXXX
WIN90:
       RETURN

FLASH:
       FOR II=1 TO BON*2
       IF TIME<>OT GOSUB TIM
       PRINT TAB(24,70);TAB(-1,36);
       FOR Y=1 TO 380 : NEXT Y
       PRINT TAB(24,70);TAB(-1,37);
       FOR Y=1 TO 480 : NEXT Y
       NEXT II
       RETURN

GAMBLE:
       T$="  2  3    4 " : TX$=T$:P=0
       PRINT TAB(22,36);:PRINT USING  "####";PNT;
       PRINT TAB(19,5);"GAMBLE: x ";T$;" or T(ake)";
GAM1:
       P=P+1 : IF P=13 THEN P=1
       PRINT TAB(20,14);
       XCALL PACMAN,POS$
       IF LEN(POS$)<>0 GOTO GAM5
       PRINT SPACE(P);TAB(-1,23);TAB(-1,64);;TAB(-1,24);SPACE(12);
       GOTO GAM1
GAM5:
       IF POS$=CHR$(27) THEN PRINT TAB(-1,28);TAB(-1,0);:GOTO EINDE
       IF POS$=CHR$(13) GOTO GAM8
       IF POS$="T" OR POS$="t" GOTO GAM9
       GOTO GAM1
GAM8:
       LX=RND : LY=INT(LX*50)
       FOR LX=1 TO LY
       IF TIME<>OT GOSUB TIM
       P=P+1 : IF P=13 THEN P=1
       PRINT TAB(20,14);
       PRINT SPACE(P);TAB(-1,23);TAB(-1,64);;TAB(-1,24);SPACE(12);
       FOR DEL=1 TO LX*10
       NEXT DEL
       NEXT LX
       IF T$[P;1]=" " THEN PNT=0 : GOTO GAM85
       WW=VAL(T$[P;1])
       PNT=PNT*WW
       FOR L=1 TO 5000
       NEXT L
       GOTO GAMBLE
GAM85:
       PRINT TAB(22,36);:PRINT "    ";
GAM9:
       WIN=1
       RETURN

EIND:
       PRINT TAB(24,1);TAB(-1,28);
       PRINT "Sorry, out of points. It was nice to play a game with"
       PRINT "you. BYE BYE, press enter : ";TAB(-1,9);
       INPUT "",J
       GOTO EINDE


HELP:
       PRINT TAB(-1,36);
       PRINT TAB(-1,0);TAB(-1,30);
       PRINT "BELL-FRUIT  by   W Hartgers / Omegon"; TAB(-1,31)
       PRINT "This program simulates a slot-machine."
       PRINT "Decriptions of used keys : "
       PRINT "RETURN - Start the game or stop the rolling "
       PRINT "         when gambling."
       PRINT "1/2/3  - When the lights are flashing, use these keys to "
       PRINT "         'hold' the bars. (Only when prev. not hold or"
       PRINT "         a winning combination was given)."
       PRINT "C      - Release the 'holds'"
       PRINT "ESC    - Abort the game"
       PRINT "A      - Play automatic"
       PRINT " "
       PRINT "S      - Sound on/off"
       PRINT "The winning combinations are shown on the screen."
       PRINT "After swinning, it's possible to gamble for a higher"
       PRINT "winning (x 1, 2, 3 of 4)."
       PRINT "At bonus time, every '*' in last rol gives 20 points."
       PRINT "At bonus time, no gambling is allowed."
       PRINT " "
       PRINT TAB(-1,37);
       PRINT "Press  ENTER to continue : "; : INPUT I$
       PRINT TAB(-1,36);
       PRINT TAB(3,1);TAB(-1,10);
       PRINT " "
       RETURN


DATA1:
       DATA    "Let play a little game !"
       DATA    "He're we go again!"
       DATA    "Plop, Plop, Plop!"
       DATA    "Turn, turn, turn"
       DATA    "Lovely rolling..."
       DATA    "Like a rolling stone.."
       DATA    "Fun Fun Fun Fun"
       DATA    "Aaaaaarch"
       DATA    "Like to go on ...!"
       DATA    "Don't you have to continue with your work?"
       DATA    "END"
TIM:
       OT=TIME: PRINT TAB(24,70);
       UU=0 : MM=0 : SS=0
TIM1:   IF OT > 3599 THEN UU=UU+1 : OT=OT-3600 : GOTO TIM1
TIM2:   IF OT > 60   THEN MM=MM+1 : OT=OT-60 : GOTO TIM2
       SS=OT
       PRINT USING "#Z";UU; : PRINT ":";
       PRINT USING "#Z" ;MM; : PRINT ":";
       PRINT USING "#Z";SS;
       OT=TIME
       RETURN

EINDE:
       END

BOSS:
       PRINT TAB(-1,0);TAB(1,1)
       LOOKUP "BOSS.DAT",SW
       IF SW= 0 THEN PRINT TAB(23,1
);"File not found" : GOTO BOSS9
       OPEN #1,"BOSS.DAT",INPUT
BOSS1:  IF EOF(1) THEN CLOSE #1 :GOTO BOSS9
       INPUT LINE #1,REC$ : PRINT REC$ : GOTO BOSS1
BOSS9:  XCALL PACMAN,P$
       IF P$<>CHR$(2) GOTO BOSS9
       RETURN

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.