home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8605.d64
/
hc1520
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
5KB
|
235 lines
10 REM ********************************
15 REM * *
20 REM * MULTICOLOR HIRESHARDCOPY *
25 REM * *
30 REM * FUER C= 1520 PLOTTER *
35 REM * *
40 REM * ASCOMPILER QUELLCODE *
45 REM * *
50 REM * EMPFOHLENER SPEICHERBEREICH *
55 REM * AB $ 8000 *
60 REM * *
65 REM * (C) KARL-HEINZ TIMMERBEIL *
70 REM * *
75 REM * 21.01.1986 *
80 REM * *
85 REM ********************************
90 REM
100 GOSUB 4000
105 GOSUB 2000
110 GOSUB 3000
120 SYS 36864
130 SYS 36881
140 LET A = 8192
150 LET B = 0
160 LET C = 0
170 LET F = 0
180 LET D = 48 + F
190 POKE 37031,D
200 LET N = PEEK(37077)
210 POKE 37066,N
220 LET N = PEEK(37078)
230 POKE 37067,N
240 LET N = PEEK(37079)
250 POKE 37068,N
260 SYS 37039
270 SYS 37025
280 LET D = B * 8
290 LET S = D + C
300 LET L = 0
310 LET Y = A
320 LET D = B * 320
330 LET Y = Y + D
340 LET D = 8 * L
350 LET Y = Y + D
360 LET Y = Y + C
370 LET X = PEEK(Y)
380 LET R = 0
390 LET I = 0
400 LET V = X AND 128
410 LET W = X AND 64
420 IF V = 0 THEN 440
430 LET R = 2
440 IF W = 0 THEN 460
450 LET R = R + 1
460 GOSUB 1000
470 LET X = PEEK(Y)
480 LET R = 0
490 LET I = 1
500 LET V = X AND 32
510 LET W = X AND 16
520 IF V = 0 THEN 540
530 LET R = 2
540 IF W = 0 THEN 560
550 LET R = R + 1
560 GOSUB 1000
570 LET X = PEEK(Y)
580 LET R = 0
590 LET I = 2
600 LET V = X AND 8
610 LET W = X AND 4
620 IF V = 0 THEN 640
630 LET R = 2
640 IF W = 0 THEN 660
650 LET R = R + 1
660 GOSUB 1000
670 LET X = PEEK(Y)
680 LET R = 0
690 LET I = 3
700 LET V = X AND 2
710 LET W = X AND 1
720 IF V = 0 THEN 740
730 LET R = 2
740 IF W = 0 THEN 760
750 LET R = R + 1
760 GOSUB 1000
770 LET L = L + 1
780 IF L < 40 THEN 310
790 LET F = F + 1
800 IF F < 4 THEN 180
810 LET C = C + 1
820 IF C < 8 THEN 170
830 LET B = B + 1
840 IF B < 25 THEN 160
850 SYS 36894
860 SYS 36900
870 POKE 53265,27
880 POKE 53270,200
890 POKE 53272,21
900 POKE 53280,245
910 POKE 53281,247
920 PRINT"[147] FERTIG"
930 END
1000 IF F = R THEN 1020
1010 RETURN
1020 LET O = S * 2
1030 LET Q = L * 4
1040 LET Q = Q + I
1050 LET Q = Q * 3
1060 IF Q = 0 THEN 1080
1070 LET Q = Q - 2
1080 LET M = Q
1090 GOSUB 1200
1100 POKE 37072,T
1110 POKE 37073,U
1120 POKE 37074,P
1130 LET M = O
1140 GOSUB 1200
1150 POKE 37077,T
1160 POKE 37078,U
1170 POKE 37079,P
1180 SYS 36913
1190 RETURN
1200 LET H = 100
1210 GOSUB 1300
1220 LET T = N
1230 LET H = 10
1240 GOSUB 1300
1250 LET U = N
1260 LET H = 1
1270 GOSUB1300
1280 LET P = N
1290 RETURN
1300 LET N = 48
1310 IF M < H THEN 1350
1320 LET M = M - H
1330 LET N = N + 1
1340 GOTO 1310
1350 RETURN
2000 PRINT"[147]"
2010 PRINT",KJ,AA,IF,LH,KJ,AB,KC,AG,KA,AB,CA,LK,PP,CA,MA,PP,GA,KJ,AA,IF,LH,KJ"
2020 PRINT",AC,KC,AG,KA,AC,EM,AK,JA,KJ,AB,CA,MD,PP,GA,KJ,AC,EM,CA,JA,KC,AB,CA"
2030 PRINT",MJ,PP,KC,AA,GA,CA,CJ,JA,LN,MO,JA,CA,NC,PP,OI,OA,AK,NA,PF,KC,AB,CA"
2040 PRINT",MJ,PP,KJ,EJ,CA,NC,PP,CA,CJ,JA,LN,OC,JA,CA,NC,PP,OI,OA,AF,NA,PF,CA"
2050 PRINT",CJ,JA,LN,NN,JA,CA,NC,PP,OI,OA,AF,NA,PF,CA,CJ,JA,LN,NI,JA,CA,NC,PP"
2060 PRINT",OI,OA,AF,NA,PF,CA,CJ,JA,LN,OH,JA,CA,NC,PP,OI,OA,AF,NA,PF,CA,CJ,JA"
2070 PRINT",LN,MA,JA,CA,NC,PP,OI,OA,AF,NA,PF,CA,CJ,JA,LN,OC,JA,CA,NC,PP,OI,OA"
2080 PRINT",AF,NA,PF,CA,MM,PP,GA,KC,AC,CA,MJ,PP,KJ,DA,CA,NC,PP,CA,MM,PP,GA,CA"
2090 PRINT",CJ,JA,LN,MF,JA,CA,NC,PP,OI,OA,AI,NA,PF,EM,JN,JA,EK,CM,DC,CM,DC,EN"
2100 PRINT",CM,DA,CM,CN,DA,DA,DA,PP,EN,CM,DA,DA,DA,CM,CN,DA,DA,DA,EK,CM,DA,CM"
2110 PRINT",DC,EK,CM,DD,CM,DC,EK,CM,DD,CM,DA,EK,CM,DB,CM,DA,AA"
2120 LET M = 36864
2130 LET N = 1064
2140 LET R = 0
2150 LET Q = 0
2160 LET O = PEEK(N)
2170 LET R = R + 1
2180 IF O = 44 THEN 2210
2190 LET N = N + 1
2200 GOTO 2160
2210 LET N = N + 1
2220 LET O = PEEK(N)
2230 LET O = O - 1
2240 LET O = O * 16
2250 LET N = N + 1
2260 LET P = PEEK(N)
2270 LET P = P - 1
2280 LET O = O + P
2290 POKE M , O
2300 LET Q = Q + O
2310 LET M = M + 1
2320 IF M = 37101 THEN 2340
2330 GOTO 2160
2340 IF R = 613 THEN 2360
2350 GOTO 2370
2360 IF Q = 29506 THEN 2390
2370 PRINT"[147]EINGABEFEHLER IN PRINTZEILEN 2010 - 2110"
2380 END
2390 RETURN
3000 PRINT"[147]"
3010 LET N = 1024
3020 POKE N , 101
3030 LET N = N + 1
3040 IF N = 2024 THEN 3060
3050 GOTO 3020
3060 LET N = 55296
3070 POKE N , 2
3080 LET N = N + 1
3090 IF N = 56296 THEN 3110
3100 GOTO 3070
3110 POKE 53280 , 1
3120 POKE 53281 , 0
3130 POKE 53265 , 187
3140 POKE 53270 , 216
3150 POKE 53272 , 29
3160 RETURN
4000 PRINT"[147]"
4010 PRINT"BITTE STARTADRESSE DES"
4020 PRINT"FARBHIRESBILDES EINGEBEN"
4030 PRINT"< 2 > = $ 2000 ( # 8192 )"
4040 PRINT"< 4 > = $ 4000 ( # 16384 )"
4050 PRINT"< 6 > = $ 6000 ( # 24576 )"
4060 PRINT"< A > = $ A000 ( # 40960 )"
4070 PRINT"< E > = $ E000 ( # 57344 )"
4080 POKE 198,0
4090 LET B = PEEK (198)
4100 IF B = 0 THEN 4090
4110 LET B = PEEK (631)
4120 POKE198,0
4130 IF B = 50 THEN 4190
4140 IF B = 52 THEN 4200
4150 IF B = 54 THEN 4220
4160 IF B = 65 THEN 4240
4170 IF B = 69 THEN 4260
4180 GOTO 4080
4190 RETURN
4200 LET B = 16384
4210 GOTO 4280
4220 LET B = 24576
4230 GOTO 4280
4240 LET B = 40960
4250 GOTO 4280
4260 LET B = 57344
4270 GOTO 4280
4280 LET A = 8192
4290 POKE 56334,0
4300 POKE 1,53
4310 LET C = PEEK(B)
4320 POKE A , C
4330 LET A = A + 1
4340 LET B = B + 1
4350 IF A < 16384 THEN 4310
4360 POKE 1,55
4370 POKE56334,1
4380 RETURN