Listing of file='TIMSET.BAS;01' on disk='vmedia/printer_pkg-sector.ccvf'
0 REM *** TIME SETTER FOR PRINTER PACKAGE *** 5 REM 10 PLOT 6,3,14,12,29 15 PRINT "TIME SETTER":PLOT 15:PRINT 25 PRINT :PLOT 6,2 200 GOSUB 40000 250 END 40000 REM *** SET THE TIME AND DATE *** 40010 REM 40020 REM SV IS SET TO REFLECT THE SYSTEM VERSION (6.78 OR 8.79) 40030 REM BECAUSE THE 6.78 CLOCK RUNS FROM 1-24 HOURS. TO FIX 40040 REM THIS, ADD 1 WHEN POKEING AND SUBTRACT 1 WHEN PEEKING. 40050 REM 40060 SV = 1:TS = PEEK (1):IF TS< > 108 THEN SV = 0 40070 INPUT "ENTER TIME (HH,MM,SS) ";H,M,S 40080 POKE 33209,S:POKE 33210,M:POKE 33211,H+ SV 40090 INPUT "ENTER DATE (MM,DD,YY) ";MO,DA,YR 40100 IF YR> 1900 THEN YR = YR- 1900 40110 POKE 33212,MO:POKE 33213,DA:POKE 33214,YR 40120 RETURN