home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 2 / run2.zip / RUNTIME.BAS < prev    next >
BASIC Source File  |  2014-09-03  |  3KB  |  52 lines
  1. 100 REM RUN-TIME GWBASIC CGA (C) Baaijens/Stavleu
  2. 110 CLS:KEY OFF:SCREEN 2:DIM E$(19),T$(5):LY$=STRING$(80,223)
  3. 120 FOR I=0 TO 19:READ E$(I):NEXT:FOR I=2 TO 5:READ T$(I):NEXT
  4. 130 LOCATE 2,1:PRINT LY$;:PRINT TAB(35)"RUN-TIME":PRINT LY$;
  5. 140 LOCATE 22,1:PRINT LY$;:PRINT:PRINT LY$;
  6. 150 PRINT CHR$(11);:PRINT TIME$;TAB(71) DATE$;
  7. 160 T$=LEFT$(TIME$,5):LOCATE 5,1:FOR Y=0 TO 7:FOR Y2=0 TO 1:PRINT
  8. 170 FOR X=0 TO 38:IF POINT(X,Y) THEN PRINT STRING$(2,219);ELSE PRINT "  ";
  9. 180 NEXT X,Y2,Y:WHILE LEFT$(TIME$,5)=T$
  10. 190 U=VAL(LEFT$(TI$,2)):M=VAL(MID$(TI$,4,2)):S=VAL(MID$(TI$,7,2))
  11. 200 LOCATE 1,1:PRINT TIME$:GOSUB 290:LOCATE 23,15:FOR A=1 TO LEN(ZN$)
  12. 210 IF ASC(MID$(ZN$,A,1))<>32 THEN PRINT CHR$(ASC(MID$(ZN$,A,1))-32);:GOTO 230
  13. 220 PRINT " ";:IF LEFT$(TI$,5)<>LEFT$(T$,5) THEN 490
  14. 230 TI$=TIME$:NEXT A:PRINT STRING$(65-LEN(ZN$),32);:GOTO 190
  15. 240 GM=G-10*INT(G/10):IF G<20 THEN W$=E$(G):GOTO 280
  16. 250 W$="":IF GM=0 THEN 270
  17. 260 W$=E$(GM)+" en "
  18. 270 W$=W$+T$(INT(G/10))
  19. 280 RETURN
  20. 290 IF M>15 THEN U=U+1
  21. 300 IF U>12 THEN U=U-12
  22. 310 IF U=0 THEN U=12
  23. 320 ZN$="":MN$=" minuten":EN$=" en "
  24. 330 MM=M:SS=S:X$=" over "
  25. 340 IF (M>=15) AND (M<30) THEN MM=30-M-SGN(S):SS=60-S:X$=" voor half "
  26. 350 IF (M>=30) AND (M<45) THEN MM=M-30:SS=S:X$=" over half "
  27. 360 IF (M>=45) THEN MM=60-M-SGN(S):SS=60-S:X$=" voor "
  28. 370 IF MM=1 THEN MN$=" minuut"
  29. 380 IF MM=0 THEN MN$="":EN$=""
  30. 390 IF S>0 THEN 430
  31. 400 IF M=15 THEN ZN$="kwart over ":GOTO 470
  32. 410 IF M=30 THEN ZN$="half ":GOTO 470
  33. 420 IF M=45 THEN ZN$="kwart voor ":GOTO 470
  34. 430 G=MM:GOSUB 240:ZN$=W$+MN$:IF M=0 AND S=0 THEN X$=""
  35. 440 IF S>0 THEN G=SS:GOSUB 240:ZN$=ZN$+EN$+W$+" seconde"
  36. 450 IF S>0 AND SS>1 THEN ZN$=ZN$+"n"
  37. 460 ZN$=ZN$+X$:ZZ$="UXQ#lq#erhnyrup$$#Lqo1#Who1=#358540456<<"
  38. 470 G=U:GOSUB 240:ZN$=ZN$+W$:IF (M=0) AND (S=0) THEN ZN$=ZN$+" uur"
  39. 480 RETURN
  40. 490 WEND:LOCATE 23,1:PRINT STRING$(80,32);:LOCATE 23,23:BEEP
  41. 500 FOR A=1 TO LEN(ZZ$):PRINT CHR$(ASC(MID$(ZZ$,A,1))-3);:NEXT:GOTO 150
  42. 510 DATA "","een","twee","drie","vier","vijf","zes","zeven","acht"
  43. 520 DATA "negen","tien","elf","twaalf","dertien","veertien","vijftien"
  44. 530 DATA "zestien","zeventien","achttien","negentien","twintig"
  45. 540 DATA "dertig","veertig","vijftig"
  46. 550 REM /* 44/.3365,3342,3529,2518,2526,3586,4013,2191,3610,3853
  47. 560 REM /*/....4203,2646,3467,2694,1166,0840,1082,0480,1010,1067
  48. 570 REM /*/....0885,2060,1415,3925,3330,2992,1704,1399,0790,2542
  49. 580 REM /*/....1953,2555,2904,3296,1817,4007,3685,0480,3431,3984
  50. 590 REM /*/....4590,5405,5131,2726
  51. 600 REM Checksum...............:  118194
  52.