1: DECLARE SUB SLEEPA (T!) 2: SCREEN 0, , 1, 1 3: CLS 4: ON ERROR GOTO www 5: INPUT "NUMBER MODIFIED"; A 6: INPUT "TOTAL "; B 7: IF A = B THEN C = 100: GOTO 1 8: C = 100 / B * A 9: 1 COLOR 15, 9 10: CLS 11: x% = 1 12: y% = 0 13: LOCATE 0 + x%, 1 + y%: PRINT "ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄÄÄ¿ " 14: LOCATE 1 + x%, 1 + y%: PRINT "³ 0 ³ ³2 5³ ³5 0³ ³7 5³ ³1 0 0³" 15: LOCATE 2 + x%, 1 + y%: PRINT "ÃÄÄÄÙ ÀÄÂÄÙ ÀÄÂÄÙ ÀÄÂÄÙ ÀÄÄÄÄÄ´" 16: LOCATE 3 + x%, 1 + y%: PRINT "³ ³ ³ ³ ³" 17: LOCATE 4 + x%, 1 + y%: PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄ´" 18: LOCATE 5 + x%, 1 + y%: PRINT "³ Ý Ý Ý ³" 19: LOCATE 6 + x%, 1 + y%: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ" 20: G = C 21: IF C > 100 THEN C = 102: FGF = 1 22: D = C / 2 23: E = CINT(D) 24: COLOR 14, 9 25: LOCATE 8 + x%, 1 + y%: PRINT "Calculating" 26: IF D < 2 THEN LOCATE 5 + x%, 2 + y%: PRINT "±": LOCATE 7 + x%, 1 + y%: PRINT "Less than 1 %": GOTO 6 27: 2 FOR F = 2 TO E 28: LOCATE 5 + x%, F + y%: PRINT "Û" 29: SLEEPA .01 30: 3 LOCATE 7 + x%, 1 + y%: PRINT "About"; F * 2; "%" 31: NEXT 32: IF FGF = 1 THEN LOCATE 5 + x%, 52 + y%: PRINT "¯" 33: LOCATE 7 + x%, 1 + y%: PRINT "About"; CINT(G) 34: 6 LOCATE 8 + x%, 13 + y%: PRINT ", Done!!" 35: IF FGF = 1 THEN FGF = FGF - 1 36: SLEEP 37: SCREEN 0, , 0, 0 38: SYSTEM 39: www: 40: LOCATE 1, 1: PRINT "Error, re-enter data" 41: RUN 42: RESUME NEXT 43: 44: SUB SLEEPA (T) 45: A = TIMER + T 46: 9 B = TIMER 47: IF B > A THEN GOTO 10 ELSE GOTO 9 48: 10 END SUB 49: |