home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #5
/
Commodore_Disk_User_Vol.4_5_1991_-.d64
/
prob1a
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
43 lines
10 open2,8,0,"$"
15 get#2,a$,a$,a$,a$
20 get#2,a$,b$
25 a=asc(a$+chr$(0)):b=asc(b$+chr$(0))
30 printmid$(str$(a+b*256),2)" ";
35 get#2,a$:a=asc(a$+chr$(0))
40 ifa<>0thenprinta$;:goto35
45 print:get#2,a$,a$
50 ifasc(a$+chr$(0))<>0then20
55 close2
60 :
65 :
70 :
100 rem *******************************
101 rem * explanation of program *
102 rem * ====================== *
103 rem * *
104 rem * line10: open file with name *
105 rem * '$' (directory) *
106 rem * 15: read in four non- *
107 rem * significant bytes *
108 rem * 20: read in a number *
109 rem * in lo/hi byte form *
110 rem * 25: convert ascii codes *
111 rem * to numeric values *
112 rem * 30: print number on *
113 rem * left of screen *
114 rem * 35: read in next byte *
115 rem * and get ascii value *
116 rem * 40: if end of entry not *
117 rem * reached, then print *
118 rem * character and go *
119 rem * back for another *
120 rem * 45: carriage return + *
121 rem * get two more bytes *
122 rem * 50: if last one is non- *
123 rem * zero then end of *
124 rem * directory has not *
125 rem * been reached. *
126 rem * 55: end of file - close *
127 rem * *
128 rem *******************************