Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/printer_pkg-sector.ccvf'

0 REM  *** MENU FOR PRINTER PACKAGE ***
5 REM
10 PLOT  6,3,14,12,29
15 PRINT  "PRINTER PACKAGE":PLOT  15:PRINT
20 PLOT  6,6:PRINT  "COPYRIGHT 1980 BY TREVOR TAYLOR"
25 PRINT :PLOT  6,2
100 PRINT  "THIS PACKAGE CONTAINS TWO PROGRAMS:"
110 PRINT  "PRINT  - PRINTS ASCII (SOURCE) TEXT FILES"
120 PRINT  "LISTER - PRINTS BASIC FILES"
130 PRINT :PRINT  "THE USER CAN CONFIGURE THEM FOR A WIDE VARIETY OF"
140 PRINT  "PRINTERS, AND SAVE THE CONFIGURATION FOR LATER USE."
150 PRINT :PRINT  "SEE THE MANUAL FOR FURTHER INFORMATION."
160 PRINT : INPUT  "SET THE TIME (Y OR N) ? ";AN$
170 IF  AN$= "Y" THEN  GOSUB  40000
200 PRINT
210 INPUT  "PROGRAM (P=PRINT, L=LISTER, <RETURN>=EXIT) ? ";P$
220 IF  P$= "P" THEN  LOAD  "PRINT":RUN
230 IF  P$= "L" THEN  LOAD  "LISTER":RUN
240 PLOT  12
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