FORTRAN RUN F70SAMPL $NO MULTIPLY DIVIDE F71SAMPL $OBJECT MACHINE SIZE # 15999 C RONALD MAK, MARCH 1, 1969 ---MR. SERAPHIN C FORTY COMPUTER CRAPS GAMES WRITE %3,1) 1 FORMAT %20X,22H*** COMPUTER CRAPS ***/) WRITE %3,2) 2 FORMAT %10X,84H*** WIN IS 7 OR 11 ON FIRST ROLL OR ANY OTHER FIRST 1 ROLL REPEATED BEFORE A ROLL OF 7) WRITE %3,3) 3 FORMAT %10X,80H*** LOST IS 2, 3, OR 12 ON FIRST ROLL, OR 7 ROLLED 1BEFORE FIRST ROLL IS REPEATED) WRITE %3,4) 4 FORMAT %10X,46H*** EACH PLAYER HAS $3000, $100 BETS EACH GAME//) DIMENSION IJ%2,20), IB%2,20) MJ#3000 MB#3000 DO 19 K#1,40,1 WRITE %3,5) K 5 FORMAT %10X,4HGAME,I3,7X,7HRICHARD,4X,5HBENNY,10X,5HROLLS/) READ %1,7)%%IJ%J,I),IB%J,I),I#1,20),J#1,2) 7 FORMAT %80I1) DO 16 L#1,20,1 WRITE %3,8) %IJ%I,L),I#1,2),%IB%J,L),J#1,2),L 8 FORMAT %27X,2I2,5X,2I2,12X,I3/) NJ#IJ%1,L)&IJ%2,L) NB#IB%1,L)&IB%2,L) IF %L-1) 20,9,10 9 IF %NJ.EQ.7) GO TO 11 IF %NJ.EQ.11)GO TO 11 IF %NJ.EQ.2) GO TO 13 IF %NJ.EQ.3) GO TO 13 IF %NJ.EQ.12)GO TO 13 IF %NB.EQ.7) GO TO 13 IF %NB.EQ.11)GO TO 13 IF %NB.EQ.2) GO TO 11 IF %NB.EQ.3) GO TO 11 IF %NB.EQ.12)GO TO 11 LJ#NJ LB#NB GO TO 16 10 IF %NJ.EQ.7) GO TO 13 IF %NJ.EQ.LJ)GO TO 11 IF %NB.EQ.7) GO TO 11 IF %NB.EQ.LB)GO TO 13 GO TO 16 11 MJ#MJ&100 MB#MB-100 WRITE %3,12) 12 FORMAT %28X,3HWIN,5X,4HLOST/) WRITE %3,15) MJ,MB GO TO 19 13 MJ#MJ-100 MB#MB&100 WRITE %3,14) 14 FORMAT %27X,4HLOST,6X,3HWIN/) WRITE %3,15) MJ,MB GO TO 19 16 CONTINUE WRITE %3,17) WRITE %3,15) MJ,MB 17 FORMAT %29X,9HDRAW GAME//) 19 CONTINUE 15 FORMAT %25X,1H$,I5,3X,1H$,I5,5X,13HCASH STANDING//) 20 STOP END LOADER RUN F87SAMPL $EXECUTION 25642243245612552222222155556662154214114143543656126254214526633336546466314614 64224542465215641541246166422255116662661266214165424651122156124155145136226442 41516216211664655327416652151541654121642651164262256164453224424415515415615425 41516216211664655327416652151541654121642651164262256164453224424415515415615425 41641366464563333662541245262165634534141141245126665555122222225521654234224652 52161252544155155555151516444515622125423155416522554166245321526512662164456216 25642243245612552222222155556662154214114143543656126254214526633336546466314614 65151642412454216523615514513245421542215624545632155452261254162216251664656165 51641816516616631622656166216562316521561262212651262641245112652122661265215512 12651262245662245632266232412464516451262253552545355124256626551235515215585156 52451651451551442442235446165226246115624612145614515125661472355646611261261514 54531653165532165612655652156621642156516123352646641264156245425665156246126215 65158551251553215562665242155354525535226215461546421423266223654226654226215621 22126531664224562234432253245632155523554234562354621556122456331445324561654321 56165646615261226145216225455123654542651224512454231541551632561245421424615156 52451651451551442442235446165226246115624612145614515125661472355646611261261514 41641366464563333662541245262165634534141141245126665555122222225521654234224652 61265446126621562512354266145522561455132452122651544461515155555155144525216125 65151642412454216523615514513245421542215624545632155452261254162216251664656165 51641816516616631622656166216562316521561262212651262641245112652122661265215512 12345616542354413365422165512645326543245532555123654235223443226542246613562122 22126531664224562234432253245632155523554234562354621556122456331445324561654321 52161252544155155555151516444515622125423155416522554166245321526512662164456216 12235465512254226541226542155421554312245432511542246225624654212365424352516642 12365422165422655126654226553216552155421645212552544214143216621421424461651221 21551256216622125621154214626215621226216512561326561266165622613661661561814615 21551256216622125621154214626215621226216512561326561266165622613661661561814615 64224542465215641541246166422255116662661266214165424651122156124155145136226442 12215616442412412661234141244525521254612455125561235562245662155622456122456321 12215616442412412661234141244525521254612455125561235562245662155622456122456321 24462263154155142165122115642456141266216626661155222466164214514651256424542246 56165646615261226145216225455123654542651224512454231541551632561245421424615156 12345616542354413365422165512645326543245532555123654235223443226542246613562122 51262164265156652454265146214664625332161565124612665125655621656123556135613545 54531653165532165612655652156621642156516123352646641264156245425665156246126215 12651262245662245632266232412464516451262253552545355124256626551235515215585156 12365422165422655126654226553216552155421645212552544214143216621421424461651221 61265446126621562512354266145522561455132452122651544461515155555155144525216125 24462263154155142165122115642456141266216626661155222466164214514651256424542246 65158551251553215562665242155354525535226215461546421423266223654226654226215621