home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8410.d64
/
hc-epson
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
45 lines
0 OPEN1,4,1:PRINT#1,CHR$(27);"L";CHR$(64);CHR$(1);
2 DIM S(7,7):L=0:Q=8192
3 A=128:B=64:C=32:D=16:E=8:F=4:G=2:H=1
4 FORL=1TO25
6 FORR=QTOQ+320STEP8
8 FORN=0TO7
10 M=R+N
11 PRINTM:PRINT"[145][145]"
12 X=PEEK(M)
28 IF X>=A THEN X=X-A:GOSUB 1000:S(N,0)=1:GOTO 30
29 GOSUB 2000:S(N,0)=0
30 IF X>=B THEN X=X-B:GOSUB 1000:S(N,1)=1:GOTO 50
40 GOSUB 2000:S(N,1)=0
50 IF X>=C THEN X=X-C:GOSUB 1000:S(N,2)=1:GOTO 70
60 GOSUB 2000:S(N,2)=0
70 IF X>=D THEN X=X-D:GOSUB 1000:S(N,3)=1:GOTO 90
80 GOSUB 2000:S(N,3)=0
90 IF X>=E THEN X=X-E:GOSUB 1000:S(N,4)=1:GOTO110
100 GOSUB 2000:S(N,4)=0
110 IF X>=F THEN X=X-F:GOSUB 1000:S(N,5)=1:GOTO130
120 GOSUB 2000:S(N,5)=0
130 IF X>=G THEN X=X-G:GOSUB 1000:S(N,6)=1:GOTO150
140 GOSUB 2000:S(N,6)=0
150 IF X=HTHEN GOSUB 1000:S(N,7)=1:GOTO3000
160 GOSUB 2000:S(N,7)=0
180 NEXTN:GOTO3000:REM*** WENN MEHR DATAS DANN GOTO4! ***
1000 REM PRINT"*";
1010 RETURN
2000 REMPRINT".";
2010 RETURN
3000 A=0 :REM *** UMWANDLUNG DER WERTIKALEN DATAS IN HORIZONTALDATAS ***
4001 REM *** UMWANDLUNG DER HORIZONALEN DATAS IN EPSON DATAS ***
4010 FORN=OTO7
4011 J=S(0,N)*128+(S(1,N)*64)+(S(2,N)*32)+(S(3,N)*16+S(4,N)*8)
4015 K(N)=J+(S(5,N)*4)+(S(6,N)*2)+S(7,N)
4020 PRINT#1,CHR$(K(N));
4030 NEXTN:NEXTR:
4040 Q=Q+320:PRINT#1,CHR$(13);CHR$(27);"L";CHR$(64);CHR$(1);:NEXTL
4050 REM *** BASIC HARDCOPY ***
4060 REM *** BY MARK ZIMMERMANN ***
4070 REM *** POSTFACH 22 00 44 ***
4080 REM *** STADTWALDWENDE 20 ***
4090 REM *** D - 4300 ESSEN 01 ***
5000 REM *** FOR C=64 & EPSON ***