-
Notifications
You must be signed in to change notification settings - Fork 11
/
Copy path08R_Poster_grafica.bc2
176 lines (175 loc) · 8.16 KB
/
08R_Poster_grafica.bc2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
1000 A=500:GOTO20:REM POSTER-GRAFICA
1010 GOSUB100
1020 PRINTTAB(9);"P O S T E R - grafica"
1030 PRINTTAB(9);"---------------------"
1040 PRINT:PRINT:PRINT"Hoeveel tekens kunnen er op 1 "
1050 PRINT:PRINT"printerregel ";:INPUTTE
1060 IFTE<65 THENTH=1:GOTO1120
1070 GOSUB100:PRINT"Welke tekenhoogte ?"
1080 PRINT:PRINT"1) Enkele"
1090 PRINT:PRINT"2) Dubbele"
1100 PRINT:PRINT"Uw keuze ( 1 of 2 ) ";:INPUTTH
1110 IF(TH<>1) AND(TH<>2) THEN1100
1120 GOSUB100:PRINT"Met welk karakter wil je "
1130 PRINT:PRINT"de poster afdrukken ?"
1140 GOSUB210:KA$=IN$:KB$=" "
1150 IFTH=2 THENKA$=KA$+KA$:KB$=" "
1160 A1$=""
1170 FORI=0 TO((TE-32*TH)/2):A1$=A1$+" ":NEXTI
1180 GOSUB100
1190 PRINT"TEKST (Letters A-Z) ";:INPUTTE$
1200 PRINT:PRINT"Een ogenblikje...ik werk"
1210 X=ASC("A")
1220 FORI=1 TOLEN(TE$)
1230 RESTORE
1240 A$=MID$(TE$,I,1)
1250 IFA$=" " THENFORJ=0 TO9*TH:GOSUB360:NEXT:GOTO1430
1260 IF(ASC(A$)-X<26) AND(ASC(A$)-X>=0) THEN1280
1270 PRINT:PRINT"Ongeldig karakter : ";A$:END
1280 FORJ=0 TOASC(A$)-X
1290 READA,B,C,D
1300 IFA+B+C+D<>0 THEN1290
1310 NEXTJ
1320 READA,B,C,D
1330 IFA+B+C+D=0 THEN1420
1340 AA$=""
1350 Z=D:GOSUB1450:AA$=BB$
1360 Z=C:GOSUB1450:AA$=AA$+BB$
1370 Z=B:GOSUB1450:AA$=AA$+BB$
1380 Z=A:GOSUB1450:AA$=AA$+BB$
1390 SR$=A1$+AA$:GOSUB350:GOSUB360
1400 IFTH=2 THENGOSUB350:GOSUB360
1410 GOTO1320
1420 FORJ=0 TO2:GOSUB360:NEXTJ
1430 NEXTI
1440 END
1450 BB$="":FORJ=7 TO0 STEP-1
1460 IFZ-2^J>=0 THENBB$=BB$+KA$:Z=Z-2^J:GOTO1480
1470 BB$=BB$+KB$
1480 NEXTJ:RETURN
25000 DATA0,0,0,0
25010 DATA0,0,0,4,0,0,0,8,0,0,0,8,0,0,0,7,0,0,224,8,0,0
25020 DATA28,8,24,128,3,0,12,112,0,0,60,143,0,0,248,163
25030 DATA63,0,252,239,0,0,204,31,1,0,24,252,7,0,0,240
25040 DATA255,0,0,0,254,7,0,0,224,15,0,0,0,12,0,0,0,6,0
25050 DATA0,0,0,4,0,0,8,248,127,255,7,248,255,255,7,240
25060 DATA255,255,3,8,192,0,6,8,0,0,4,4,0,0,8,4,64,0,8
25070 DATA4,64,0,8,4,64,0,8,4,64,0,8,4,160,0,12,12,144
25080 DATA1,14,248,159,255,7,240,7,255,3,0,0,255,1,0,0
25090 DATA254,0,0,0,0,0,128,191,15,0,192,255,127,0,224
25100 DATA191,255,0,240,0,192,1,8,0,128,3,4,0,0,7,4,0,0
25110 DATA6,4,0,0,12,4,0,0,8,4,0,0,8,4,0,0,8,4,0,0,8,8
25120 DATA0,0,4,176,3,112,3,64,4,136,0,160,3,112,1,32,0
25130 DATA0,1,0,0,0,0,4,0,0,8,248,191,255,7,248,255,255
25140 DATA7,240,255,255,3,248,191,255,7,4,0,0,8,4,0,0,8
25150 DATA4,0,0,8,4,0,0,8,4,0,0,12,12,0,0,14,56,0,0,7,112
25160 DATA0,192,3,240,127,255,1,224,255,255,0,192,255,127
25170 DATA0,0,127,31,0,0,0,0,0,4,0,0,8,248,255,254,7,248
25180 DATA255,255,7,240,255,255,3,248,127,253,7,8,0,1,4
25190 DATA4,0,1,8,4,64,5,8,4,32,9,8,4,192,6,8,4,0,0,8,4
25200 DATA0,0,8,4,0,0,4,8,0,0,2,48,7,56,1,192,8,196,0,32
25210 DATA7,56,1,32,0,0,1,0,0,0,0,4,0,0,8,248,191,255,7
25220 DATA248,255,255,7,240,255,255,3,248,223,255,7,4,192
25230 DATA192,7,4,192,0,4,4,192,0,8,4,208,2,0,4,200,4,0
25240 DATA4,48,3,0,4,0,0,0,8,0,0,0,16,0,0,0,160,3,0,0,96
25250 DATA4,0,0,144,3,0,0,16,0,0,0,0,0,0,0,0,191,31,0,192
25260 DATA255,127,0,224,255,255,1,240,191,255,3,56,64,0
25270 DATA7,28,64,0,14,4,64,0,14,4,0,0,12,4,0,0,12,4,0
25280 DATA0,12,4,0,0,12,8,0,16,14,176,3,224,7,64,4,192
25290 DATA3,160,3,240,1,32,0,56,8,0,0,248,7,0,0,0,0,4,0
25300 DATA0,8,248,127,255,7,248,127,255,7,248,127,255,7
25310 DATA4,128,0,8,8,128,0,4,0,142,56,0,0,191,126,0,128
25320 DATA64,129,0,0,191,126,0,0,142,56,0,8,128,0,4,4,128
25330 DATA0,8,248,127,255,7,248,127,255,7,248,127,255,7
25340 DATA4,0,0,8,0,0,0,0,8,0,0,4,4,0,0,8,4,0,0,8,248,191
25350 DATA255,7,248,255,255,7,248,255,255,7,248,191,255
25360 DATA7,4,0,0,8,4,0,0,8,8,0,0,4,0,0,0,0,0,0,0,1,0,0
25370 DATA112,1,0,0,136,0,0,0,112,3,0,0,0,4,0,0,0,8,8,0
25380 DATA0,8,4,0,0,8,4,0,0,8,248,191,255,7,248,255,255
25390 DATA3,248,255,255,1,248,191,255,0,4,0,0,0,4,0,0,0
25400 DATA8,0,0,0,0,0,0,0,4,0,0,8,248,127,255,7,248,255
25410 DATA255,7,240,255,255,3,248,255,255,7,8,128,0,4,4
25420 DATA64,0,8,0,32,0,0,0,16,0,0,0,248,0,0,0,252,3,0
25430 DATA0,250,15,0,0,241,63,4,128,224,255,8,72,192,255
25440 DATA11,36,0,254,15,20,0,248,3,8,0,224,3,4,0,224,3
25450 DATA36,0,0,2,24,0,192,1,0,0,0,0,4,0,0,8,248,127,255
25460 DATA7,248,255,255,7,240,255,255,7,248,127,255,7,8
25470 DATA0,0,8,4,0,0,8,0,0,0,8,0,0,0,8,0,0,0,8,0,0,0,8
25480 DATA0,0,0,8,0,0,0,8,0,0,0,8,0,0,0,8,0,0,0,4,0,0,112
25490 DATA3,0,0,136,0,0,0,112,1,0,0,0,1,0,0,0,0,4,0,0,8
25500 DATA248,255,255,7,4,0,0,0,248,0,0,0,240,15,0,0,192
25510 DATA127,7,0,0,255,15,0,0,252,31,0,0,64,31,0,0,32
25520 DATA56,0,0,16,112,0,0,8,192,0,0,4,128,0,0,2,96,0
25530 DATA0,1,0,0,128,0,0,8,192,127,255,7,224,255,255,3
25540 DATA240,255,255,7,248,127,255,7,4,0,0,8,0,0,0,0,4
25550 DATA0,0,8,248,255,255,7,4,0,0,8,252,0,0,8,240,3,0
25560 DATA6,192,15,0,0,128,63,0,0,0,126,0,0,0,124,1,0,0
25570 DATA240,3,0,0,192,7,0,0,64,31,0,0,0,63,0,0,0,252
25580 DATA0,4,0,240,1,4,0,128,7,248,255,255,7,4,0,0,8,0
25590 DATA0,0,0,0,127,63,0,192,255,255,0,224,255,255,1
25600 DATA240,127,255,3,24,0,0,6,8,0,0,4,4,0,0,8,4,0,0
25610 DATA8,4,0,0,8,4,0,0,8,4,0,0,8,4,0,0,8,4,0,0,8,4,0
25620 DATA0,8,8,0,0,4,24,0,0,6,240,127,255,3,224,255,255
25630 DATA1,192,255,255,0,0,127,63,0,0,0,0,0,4,0,0,8,248
25640 DATA127,255,7,248,255,255,7,240,255,255,15,232,127
25650 DATA255,15,8,0,0,8,4,0,0,4,4,224,0,0,4,16,1,0,4,16
25660 DATA1,0,4,0,1,0,4,0,1,0,4,0,1,0,4,0,1,0,12,128,1
25670 DATA0,28,192,1,0,248,255,0,0,240,127,0,0,224,63,0
25680 DATA0,192,31,0,0,0,0,0,0,128,127,63,0,192,255,63
25690 DATA0,224,127,95,0,48,0,128,0,24,0,0,1,8,0,128,1
25700 DATA4,0,64,2,4,0,32,2,4,0,32,2,4,0,32,2,4,0,32,2
25710 DATA8,0,64,1,24,0,128,1,48,0,128,1,224,127,127,3
25720 DATA192,255,63,14,128,127,31,12,0,0,0,12,0,0,0,14
25730 DATA0,0,128,7,0,0,0,0,4,0,0,8,248,127,255,7,248,127
25740 DATA255,7,240,127,0,0,8,0,0,0,4,0,0,0,4,192,1,0,4
25750 DATA32,2,0,4,32,2,0,4,64,1,0,4,128,126,0,4,128,248
25760 DATA3,4,128,192,7,12,192,128,15,28,112,0,15,248,127
25770 DATA0,14,240,31,0,14,224,15,0,14,0,0,0,6,0,0,0,2
25780 DATA0,0,0,0,0,0,0,8,224,3,128,11,224,15,64,4,240
25790 DATA31,128,11,24,62,0,8,12,60,0,8,4,56,0,8,4,56,0
25800 DATA8,4,240,0,8,4,160,1,8,4,128,3,8,4,128,3,8,4,128
25810 DATA7,8,4,128,15,8,4,0,31,8,116,0,254,7,136,0,252
25820 DATA3,116,0,240,1,4,0,0,0,0,0,0,0,232,0,0,0,16,1
25830 DATA0,0,232,0,0,0,4,0,0,0,4,0,0,0,4,0,0,4,4,0,0,8
25840 DATA4,0,0,8,248,127,255,7,248,255,255,7,248,255,255
25850 DATA7,248,127,255,7,4,0,0,8,4,0,0,8,4,0,0,4,4,0,0
25860 DATA0,4,0,0,0,232,0,0,0,16,1,0,0,232,0,0,0,0,0,0
25870 DATA0,24,0,0,0,8,0,0,0,248,127,255,0,252,255,255
25880 DATA1,248,127,255,3,0,0,0,6,0,0,0,6,0,0,0,12,0,0
25890 DATA0,12,0,0,0,12,0,0,0,12,0,0,0,12,16,0,0,12,8,0
25900 DATA0,4,4,0,0,6,252,255,255,3,252,255,255,1,4,0,0
25910 DATA0,36,0,0,0,24,0,0,0,0,0,0,0,8,0,0,0,4,0,0,0,4
25920 DATA0,0,0,24,0,0,0,248,1,0,0,248,7,0,0,248,63,0,0
25930 DATA0,254,1,4,0,252,15,8,0,224,127,8,0,0,254,7,0
25940 DATA0,248,7,0,0,128,7,0,0,224,5,0,0,30,8,8,224,1
25950 DATA8,4,30,0,4,228,1,0,0,24,0,0,0,4,0,0,0,36,0,0
25960 DATA0,24,0,0,0,0,0,0,0,4,0,0,0,120,0,0,0,248,7,0
25970 DATA0,244,255,1,4,128,255,127,8,0,240,255,15,0,0
25980 DATA252,15,12,0,126,8,4,248,1,4,248,7,0,0,252,7,0
25990 DATA0,244,255,1,4,128,255,127,8,0,248,255,15,0,0
26000 DATA252,15,0,0,126,8,8,248,1,4,196,7,0,0,56,0,0,0
26010 DATA4,0,0,0,0,0,0,0,24,0,0,6,4,0,0,9,12,0,0,8,28
26020 DATA0,0,6,124,0,0,9,244,0,128,8,224,1,64,4,192,3
26030 DATA32,0,128,143,19,0,0,255,15,0,0,254,31,0,0,188
26040 DATA63,0,0,50,124,0,0,1,240,0,136,0,240,1,68,0,192
26050 DATA11,60,0,128,15,4,0,0,14,36,0,0,12,24,0,0,8,0
26060 DATA0,0,6,0,0,0,0,8,0,0,0,4,0,0,0,4,0,0,0,24,0,0
26070 DATA0,120,0,0,0,248,0,0,0,228,1,0,4,196,3,0,8,136
26080 DATA7,0,8,0,191,255,7,0,254,255,7,0,188,255,7,0,2
26090 DATA0,8,0,1,0,8,136,0,0,4,68,0,0,0,36,0,0,0,24,0
26100 DATA0,0,4,0,0,0,36,0,0,0,24,0,0,0,0,0,0,0,0,0,0,6
26110 DATA8,0,0,8,4,0,0,14,4,0,128,15,116,0,192,11,136
26120 DATA0,224,8,116,0,112,0,4,0,120,0,4,0,190,0,4,152
26130 DATA31,1,8,254,15,2,16,255,7,4,32,191,1,8,192,15
26140 DATA0,8,192,3,0,8,224,1,128,11,244,0,64,4,124,0,128
26150 DATA11,28,0,0,8,12,0,0,8,4,0,0,4,24,0,0,0,0,0,0,0
30000 REM POSTER - GRAFICA
30010 REM
30020 REM JOS LEPPENS
30030 REM KORTE HEERSTRAAT 6
30040 REM B-3580 NEERPELT BELGIE
30050 REM
30060 REM 31 JULI 1983
30070 REM OP CBM 3032
30080 REM
30090 REM NOS HOBBYSCOOP HILVERSUM