Compucolor.org – Virtual Media

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