Listing of file='TIME2.BAS;01' on disk='vmedia/ncc_9-sector.ccvf'
0 REM WRITTEN BY JAMES JOHNSON
1 CLEAR 200
2 DIM A$(58)
3 POKE 33289,126
11 U$= CHR$ (28):D$= CHR$ (10)+ CHR$ (26)+ CHR$ (26)+ CHR$ (26)
12 U$= CHR$ (16)+ U$
32 A$(32)= U$+ " tu"+ D$+ " vw "
48 A$(48)= U$+ " tu"+ D$+ " vw "
49 A$(49)= U$+ " 'a"+ D$+ " a "
50 A$(50)= U$+ " hd"+ D$+ " y "
51 A$(51)= U$+ " ez"+ D$+ " gd "
52 A$(52)= U$+ " ~a"+ D$+ " en "
53 A$(53)= U$+ " {e"+ D$+ " gd "
54 A$(54)= U$+ " tf"+ D$+ " { d "
55 A$(55)= U$+ " ez"+ D$+ " ~ "
56 A$(56)= U$+ " cd"+ D$+ " cd "
57 A$(57)= U$+ " c }"+ D$+ " gw "
58 A$(58)= U$+ " d "+ D$+ " d"
60 C(1)= 7:C(2)= 4:C(3)= 1:C(4)= 5:C(5)= 1:C(6)= 4
100 REM --- TIME ---
110 PLOT 18,12,14
120 REM --- SET TIME ---
130 INPUT "DO YOU WANT TO SET THE TIME (Y OR N) ? ";I$
140 IF I$= "N"GOTO 210
150 INPUT "ENTER TIME (HR, MIN, SEC) = ";H,M,S
160 REM --- PUT CORRECT TIME INTO MEMORY ---
170 POKE 33211,H
180 POKE 33210,M
190 POKE 33209,S
200 REM --- PRINT TIME; GET TIME ---
210 INPUT "DISPLAY TIME (Y OR N) ? ";I$
220 IF I$= "Y"GOTO 240
230 PLOT 1
240 PLOT 6,60,12,3,64,0
244 A= 0:B= 127
250 FOR I= 4TO 20STEP 4
252 PLOT 6,C(1+ I/ 4)
254 FOR J= 0TO 3
256 C= A+ I+ J:D= B- I- J
258 PLOT 2,C,C
260 PLOT 242,C,D,D,D,D,C,C,C,255
290 NEXT J,I
292 PLOT 6,60
300 S= PEEK (33209)
310 PLOT 3,20,17
320 PRINT A$(ASC (RIGHT$ (STR$ (PEEK (33211)),2)));
322 PRINT A$(ASC (RIGHT$ (STR$ (PEEK (33211)),1)));
324 PRINT A$(58);
330 PRINT A$(ASC (RIGHT$ (STR$ (PEEK (33210)),2)));
332 PRINT A$(ASC (RIGHT$ (STR$ (PEEK (33210)),1)));
334 PRINT A$(58);
340 PRINT A$(ASC (RIGHT$ (STR$ (PEEK (33209)),2)));
342 PRINT A$(ASC (RIGHT$ (STR$ (PEEK (33209)),1)))
350 PLOT 3,64,17
400 REM --- WAIT UNTIL SECONDS HAVE CHANGED ---
410 IF PEEK (33209)= SGOTO 410
420 GOTO 300