home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
geos
/
geos120.d64
/
swread.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-08-07
|
3KB
|
86 lines
1 REM - THIS BASIC PROGRAM LOADS AND
2 REM RUNS AN M/L LOADER WHICH READS
3 REM AN INSTALLED SMARTWATCH E
4 REM SERIES CHIP. IT ALSO PRINTS
5 REM THE DATE AND TIME TO THE SCREEN.
6 REM * NOTE - ALL DATE AND TIME INFO
7 REM IS IN BINARY CODED DECIMAL
8 REM (BCD) FORMAT.
10 GOSUB1000:SYS ZZ
20 ONPEEK(820)GOSUB1300,1310,1320,1330,1340,1350,1360
30 M=PEEK(822):M1=(M AND 240)/16:M2=(M AND 15)
35 PRINTRIGHT$(STR$(M1),1);RIGHT$(STR$(M2),1);"/";
40 D=PEEK(821):D1=(D AND 240)/16:D2=(D AND 15)
45 PRINTRIGHT$(STR$(D1),1);RIGHT$(STR$(D2),1);"/";
50 Y=PEEK(823):Y1=(Y AND 240)/16:Y2=(Y AND 15)
55 PRINTRIGHT$(STR$(Y1),1);RIGHT$(STR$(Y2),1)
60 H=PEEK(56331):H1=(H AND 16)/16:H2=H AND 15
65 PRINTRIGHT$(STR$(H1),1);RIGHT$(STR$(H2),1);":";
70 MI=PEEK(56330):M3=(MI AND 240)/16:M4=MI AND 15
75 PRINTRIGHT$(STR$(M3),1);RIGHT$(STR$(M4),1);":";
80 S=PEEK(56329):S1=(S AND 240)/16:S2=S AND 15
85 PRINTRIGHT$(STR$(S1),1);RIGHT$(STR$(S2),1);
86 AP=H AND 128:IFAP=128THENPRINT" PM":GOTO90
87 PRINT" AM"
90 TE=PEEK(56328):END
1000 ZZ=49152
1005 FORI=0TO249:READA
1010 POKEZZ+I,A:NEXT
1015 IFZZ=49152THENRETURN
1020 KH=INT((ZZ+175)/256):KL=(ZZ+175)-(KH*256)
1025 POKEZZ+25,KL:POKEZZ+26,KH
1030 KH=INT((ZZ+135)/256):KL=(ZZ+135)-(KH*256)
1035 POKEZZ+28,KL:POKEZZ+29,KH
1040 POKEZZ+31,KL:POKEZZ+32,KH
1045 POKEZZ+37,KL:POKEZZ+38,KH
1050 POKEZZ+43,KL:POKEZZ+44,KH
1055 POKEZZ+91,KL:POKEZZ+92,KH
1060 POKEZZ+97,KL:POKEZZ+98,KH
1065 POKEZZ+103,KL:POKEZZ+104,KH
1070 POKEZZ+109,KL:POKEZZ+110,KH
1075 KH=INT((ZZ+221)/256):KL=(ZZ+221)-(KH*256)
1080 POKEZZ+198,KL:POKEZZ+199,KH
1085 POKEZZ+203,KL:POKEZZ+204,KH
1090 POKEZZ+208,KL:POKEZZ+209,KH
1095 POKEZZ+213,KL:POKEZZ+214,KH
1100 DATA 165,1,72,169,53,133,1,120
1105 DATA 169,15,141,2,220,141,0,220
1110 DATA 173,15,220,41,127,141,15,220
1115 DATA 32,175,192,32,135,192,32,135
1120 DATA 192,141,57,3,32,135,192,141
1125 DATA 56,3,32,135,192,170,41,31
1130 DATA 201,18,208,4,138,73,32,170
1135 DATA 138,41,31,141,55,3,138,41
1140 DATA 32,10,10,13,55,3,141,11
1145 DATA 220,173,56,3,141,10,220,173
1150 DATA 57,3,141,9,220,169,0,141
1155 DATA 8,220,32,135,192,141,52,3
1160 DATA 32,135,192,141,53,3,32,135
1165 DATA 192,141,54,3,32,135,192,141
1170 DATA 55,3,169,255,141,0,220,141
1175 DATA 1,220,141,2,220,169,0,141
1180 DATA 3,220,104,133,1,88,96,169
1185 DATA 14,141,2,220,169,0,141,253
1190 DATA 192,162,8,169,14,141,0,220
1195 DATA 169,2,141,0,220,173,0,220
1200 DATA 106,173,58,3,106,141,58,3
1205 DATA 202,208,232,173,58,3,96,169
1210 DATA 14,141,0,220,169,2,141,0
1215 DATA 220,169,14,141,0,220,169,2
1220 DATA 141,58,3,169,197,32,221,192
1225 DATA 169,58,32,221,192,169,163,32
1230 DATA 221,192,169,92,32,221,192,206
1235 DATA 58,3,208,231,96,170,160,8
1240 DATA 169,12,141,0,220,138,41,1
1245 DATA 141,0,220,9,12,141,0,220
1250 DATA 136,240,6,138,74,170,184,80
1255 DATA 237,96
1260 RETURN
1300 PRINT"SUNDAY,";:RETURN
1310 PRINT"MONDAY,";:RETURN
1320 PRINT"TUESDAY,";:RETURN
1330 PRINT"WEDNESDAY,";:RETURN
1340 PRINT"THURSDAY,";:RETURN
1350 PRINT"FRIDAY,";:RETURN
1360 PRINT"SATURDAY,";:RETURN