home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 December
/
64er_Magazin_86-12_1986_Markt__Technik_de.d64
/
8.beispiel
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
416b
|
23 lines
100 rem sa=1..
110 open4,4,1:rem linearkanal
130 a$="0123456789abcdef"
140 print#4," ";
150 fori=0to15
160 print#4,mid$(a$,i+1,1)" ";
170 nexti
180 print#4
190 :
200 forj=0to15
210 print#4,mid$(a$,j+1,1)" ";
220 print#4,sp$;" ";
230 print#4,chr$(j+32)" "chr$(j+48)" ";
240 print#4,chr$(j+64)" "chr$(j+80)" ";
250 print#4,chr$(j+96)" "chr$(j+112)" ";
260 print#4," ";
270 print#4,chr$(j+160)" "chr$(j+176)" ";
280 print#4,chr$(j+192)" "chr$(j+208)" ";
290 print#4,chr$(j+224)" "chr$(j+240)" "
300 nextj
310 fork=1to8:print#4:nextk
320 close4