DataMuseum.dk

top - download

    Length: 3968 (0xf80)
    Types: TextFile
    Names: »RESULT«

└─⟦9f1fc2afd⟧ Bits:30005939 Spil: Pacman, Invaders, Kong til RC700
    └─ ⟦this⟧ »RESULT« 

TextFile

5010 // = = = resultatet = = =  
5020 PROC result
5030   PRINT CHR$(12)
5040   PRINT "        DIN SCORE             ";CHR$(132);"5";CHR$(128);
5050   PRINT TAB(43);"RC702'S SCORE"
5060   PRINT "     ===============          ";CHR$(132);"5";CHR$(128);
5070   PRINT TAB(40);"==================="
5080   PRINT "                              ";CHR$(132);"5";CHR$(128)
5090   PRINT "  ";CHR$(132);CHR$(223);CHR$(128);manclub;"stk.:";
5100   PRINT TAB(15);
5110   PRINT USING tal$: manclub*50;
5120   PRINT " pts.  ";CHR$(132);"5";CHR$(128);
5130   PRINT "     ";CHR$(132);CHR$(223);CHR$(128);edbclub;"stk.:";
5140   PRINT TAB(49);
5150   PRINT USING tal$: edbclub*50;
5160   PRINT " pts."
5170   PRINT "  ";CHR$(132);CHR$(222);CHR$(128);
5180   PRINT TAB(15);
5190   PRINT USING tal$: hearts;
5200   PRINT " pts.  ";CHR$(132);"5";CHR$(128);
5210   PRINT "     ";CHR$(132);CHR$(221);CHR$(128);
5220   PRINT TAB(49);
5230   PRINT USING tal$: spades;
5240   PRINT " pts."
5250   manpt:=50*manclub+hearts
5260   edbpt:=50*edbclub+spades
5270   PRINT "                              ";CHR$(132);"5";CHR$(128)
5280   PRINT "  I ALT:";TAB(15);
5290   PRINT USING tal$: manpt;
5300   PRINT " pts.  ";CHR$(132);"5";CHR$(128);"      I ALT:";TAB(49);
5310   PRINT USING tal$: edbpt;
5320   PRINT " pts."
5330   PRINT "                              ";CHR$(132);"5";CHR$(128)
5340   IF tty=1 THEN
5350     PRINT "                              ";CHR$(132);"5";CHR$(128);
5360     PRINT "      BONUS:";TAB(49);
5370     PRINT USING tal$: edbpt;
5380     PRINT " pts."
5390     PRINT "                              ";CHR$(132);"5";CHR$(128)
5400     edbpt:=2*edbpt
5410     PRINT "                              ";CHR$(132);"5";CHR$(128);
5420     PRINT "      I ALT:";TAB(49);
5430     PRINT USING tal$: edbpt;
5440     PRINT " pts."
5450   ELSE 
5460     PRINT "  BONUS:";TAB(15);
5470     PRINT USING tal$: manpt;
5480     PRINT " pts.  ";CHR$(132);"5";CHR$(128)
5490     PRINT "                              ";CHR$(132);"5";CHR$(128)
5500     PRINT "  I ALT:";TAB(15);
5510     manpt:=2*manpt
5520     PRINT USING tal$: manpt;
5530     PRINT " pts.  ";CHR$(132);"5";CHR$(128)
5542   ENDIF 
5550   PRINT "                              ";CHR$(132);"5";CHR$(128)
5560   PRINT CHR$(132);
5570   PRINT "øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøå";
5580   PRINT "øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøø";CHR$(128)
5590   PRINT 
5600   PRINT 
5610   IF edbpt>manpt THEN
5620     differens:=edbpt-manpt
5630     PRINT "Dermed vandt RC702 med";differens;
5640     IF differens=1 THEN PRINT "point. ";
5650     IF differens>1 THEN PRINT "points. ";
5660     a$:="RC702 over "+a$; ekstra$:="RC702"
5670   ENDIF 
5680   IF manpt>edbpt THEN
5690     differens:=manpt-edbpt
5700     PRINT "Dermed vandt du med";differens;
5710     IF differens=1 THEN PRINT "point. ";
5720     IF differens>1 THEN PRINT "points. ";
5725     ekstra$:="du"
5730   ENDIF 
5740   IF manpt=edbpt THEN PRINT "Dermed blev det dødt løb.";
5750   IF manpt=edbpt THEN differens:=0
5760   IF differens>=fine THEN
5762     PRINT 
5764     ekstrabonus:=INT(100+(differens-fine)/2)
5765     differens:=differens+ekstrabonus
5766     PRINT "Da ";ekstra$;" hermed har opnået idealscoren på";fine;"pts.,"
5767     PRINT "tillægges en EKSTRABONUS på";ekstrabonus;"pts.,";
5768     PRINT " altså i alt:";CHR$(144);differens;"pts.";CHR$(128)
5769   ELSE 
5770     PRINT "(Idealscoren var";fine;"points.)"
5771   ENDIF 
5774   EXEC getfile
5775   EXEC putfile
5777   EXEC spot(1,22)
5780   PRINT "Tryk på en tast - så får du SPILLETS MESTRE..."
5790   å:=keyq(0)
5800 ENDPROC result
▶19◀«eof»