home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8612.d64
/
3.beispiel
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
427b
|
23 lines
100 REM SA=2.. ASCII-MODE FUER TYPENRAD
110 OPEN4,4,2
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