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