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