100 POKE55,8192AND255
110 POKE56,8192/256:CLR
120 PRINT"[147]EINEN MOMENT......."
130 FORT=49156TO49454:READA$
140 C1=ASC(LEFT$(A$,1))
150 C2=ASC(RIGHT$(A$,1))
160 IFC2<59THENZ=C2-48:GOTO180
170 Z=C2-55
180 IFC1<59THENZ=Z+16*(C1-48):GOTO200
190 Z=Z+16*(C1-55)
200 POKET,Z
210 NEXT
220 DIMF$(16):F$(16)=" ":OPEN4,4
230 DIMF(16):DIMY$(16)
240 Y$(0)="SCHWARZ    "
250 Y$(1)="WEISS      "
260 Y$(2)="ROT        "
270 Y$(3)="TUERKIES   "
280 Y$(4)="VIOLETT    "
290 Y$(5)="GRUEN      "
300 Y$(6)="BLAU       "
310 Y$(7)="GELB       "
320 Y$(8)="ORANGE     "
330 Y$(9)="BRAUN      "
340 Y$(10)="ROSA       "
350 Y$(11)="DUNKELBRAUN"
360 Y$(12)="MITTELGRAU "
370 Y$(13)="HELLGRUEN  "
380 Y$(14)="HELLBLAU   "
390 Y$(15)="HELLGRAU   "
400 Y$(16)="HINTERGRUND"
410 FORT=0TO79:PW$=PW$+" ":MM$=MM$+"-":NEXT
420 FORT=0TO15:F$(T)=CHR$(T+65):NEXT
430 REM HAUPTMENUE
440 PRINT"[147]    *** PINBOARDMAKER ***"
450 PRINT"EINSTELLUNGEN (F1)"
460 PRINT"PIC LOAD (F3)"
470 PRINT"PIC ZEIGEN (F5)"
480 PRINT"DRUCK (F7)"
490 GETA$:IFA$=""THEN490
500 IFA$="[133]"THENGOTO 550
510 IFA$="[134]"THENGOTO 720
520 IFA$="[135]"THENGOTO 1370
530 IFA$="[136]"THENGOTO 1510
540 GOTO 490
550 REM EINSTELLUNGEN
560 PRINT"[147]        **** PINBOARDGROESSE ****"
570 PRINT"BREITE"
580 INPUT"40CM *";BR
590 IFBR>10ORBR=7ORBR=9THENPRINT"NICHT MOEGLICH!!!!!":GOTO580
600 PRINT"LAENGE"
610 INPUT"84CM *";LA
620 PRINT"BREITE * LAENGE => ";BR*40;"CM * ";LA*84;"CM"
630 INPUT"OK (J/N)";Q$
640 IFQ$="N"THEN560
650 INPUT"FARBENEINSTELLUNG OK (J/N)";Q$
660 IFQ$="J"THENGOTO440
670 PRINT"[147]         **** CHR$ => FARBEN ****"
680 FORT=0TO16:L$=F$(T):PRINTY$(T),F$(T);:INPUT"[157][157][157][157][157]=>";F$(T)
690 IFLEN(F$(T))<>1THENPRINT"ILLEGAL !!!!":F$(T)=L$:T=T-1
700 NEXT
710 GOTO440
720 PRINT"[147] ***** PIC LOAD *****"
730 PRINT"KOALA PAINTER   (1)"
740 PRINT"BLAZING PADDLES (2)"
750 PRINT"PAINT MAGIC     (3)"
760 PRINT"$2000           (4)"
770 INPUT"IHRE WAHL ";W2
780 INPUT"PROGAMMNAME ";PN$
790 ON W2 GOTO800,1000,1200,1360
800 PN$="[129]PIC ? "+PN$+"               "
810 GOSUB 1170
820 POKE780,15
830 POKE781,0
840 POKE782,4
850 SYS 65469
860 POKE780,0
870 POKE781,8
880 POKE782,0
890 SYS 65466
900 POKE780,0
910 POKE781,0
920 POKE782,32
930 SYS65493
940 IF(PEEK(783)AND1)<>0THENPRINT"DISKETTENFEHLER !!!":GOTO780
950 S=0
960 PRINT"[147]EINEN MOMENT...."
970 FORT=1024TO0STEP-1:POKE17408+T,PEEK(17192+T):NEXT
980 FORT=1024TO0STEP-1:POKE16384+T,PEEK(16192+T):NEXT
990 GOTO440
1000 PN$="PI."+PN$
1010 GOSUB1170
1020 S=0
1030 POKE780,LEN(PN$)
1040 POKE781,0
1050 POKE782,4
1060 SYS 65469
1070 POKE780,0
1080 POKE781,8
1090 POKE782,0
1100 SYS 65466
1110 POKE780,0
1120 POKE781,0
1130 POKE782,32
1140 SYS65493
1150 IF(PEEK(783)AND1)<>0THENPRINT"DISKETTENFEHLER !!!":GOTO780
1160 GOTO440
1170 FORT=0TO(LEN(PN$)-1)
1180 POKE1024+T,ASC(MID$(PN$,T+1,1))
1190 NEXTT:RETURN
1200 GOSUB1170
1210 S=2
1220 POKE780,LEN(PN$)
1230 POKE781,0
1240 POKE782,4
1250 SYS 65469
1260 POKE780,0
1270 POKE781,8
1280 POKE782,0
1290 SYS 65466
1300 POKE780,0
1310 POKE781,142
1320 POKE782,31
1330 SYS65493
1340 IF(PEEK(783)AND1)<>0THENPRINT"DISKETTENFEHLER !!!":GOTO780
1350 GOTO440
1360 S=3:GOSUB1170:GOTO1030
1370 POKE53281,1
1380 POKE53265,59
1390 POKE53272,PEEK(53272)OR8
1400 IFS=0THENPOKE53270,216
1410 IFS=2THENPOKE53270,216:PRINT"[147]":GOTO1440
1420 IFS=3THENPOKE53270,200:PRINT"[147]":GOTO1450
1430 FORT=17408TO18427:POKE55296+P,PEEK(T):P=P+1:NEXT
1440 FORT=16384TO17403:POKE1024+Y,PEEK(T):Y=Y+1:NEXT
1450 GETQ$:IFQ$=""THEN1450
1460 POKE53281,240
1470 POKE53265,27
1480 POKE53270,200
1490 POKE53272,PEEK(53272)AND247
1500 GOTO440
1510 IFBR=0ORLA=0THEN550
1520 IFS=3THENGOTO1730
1530 FORL1=0TOBR*2-1:PRINT#4,MM$
1540 FORY=0TO199
1550 FORL2=0TO80/BR-1
1560 X=INT(L1*80/BR+L2)
1570 POKE49152,Y
1580 POKE49153,X
1590 SYS49348:R=PEEK(49155):F(R)=F(R)+1
1600 FORL3=1TOBR
1610 P$=P$+F$(R)
1620 NEXT:NEXT
1630 IFLEN(P$)<80THENP$=P$+" ":GOTO1630
1640 XA=LA+1
1650 XA=XA-1:IFXA=0THENP$="":GOTO1690
1660 IFP$=PW$THENPRINT#4:GOTO1650
1670 PRINT#4,P$
1680 GOTO1650
1690 NEXT
1700 PRINT#4,MM$:PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4
1710 NEXT
1720 GOTO1960
1730 IFBR/2<>INT(BR/2)THENPRINT"BITTE NEUE BREITE EINGEBEN !!!":GOTO 570
1740 FORL1=0TOBR*2-1:PRINT#4,MM$
1750 FORY=0TO199
1760 FORL2=0TO160/BR-1
1770 X=INT(L1*160/BR+L2)
1780 POKE49152,Y
1790 IFX>=256THENPOKE49153,X-256:POKE49154,1:GOTO1810
1800 POKE49153,X:POKE49154,0
1810 SYS49326:R=PEEK(49155)
1820 IFR<>16THENR=0
1830 F(R)=F(R)+1
1840 FORL3=1TOBR/2
1850 P$=P$+F$(R)
1860 NEXT:NEXT
1870 IFLEN(P$)<80THENP$=P$+" ":GOTO1870
1880 XA=LA+1
1890 XA=XA-1:IFXA=0THENP$="":GOTO1930
1900 IFP$=PW$THENPRINT#4:GOTO1890
1910 PRINT#4,P$
1920 GOTO1890
1930 NEXT
1940 PRINT#4,MM$:PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4
1950 NEXT
1960 PRINT#4,"SIE BENOETIGEN:"
1970 IFS=3THENBR=BR/2
1980 FORT=0TO16:PRINT#4,"CHR=>";F$(T);"  ";F(T)*BR*LA*0.014;"GRAMM ";Y$(T):NEXT
1990 CLR:GOTO220
2000 DATAA9,00,85,FB,A9,20,85,FC
2010 DATAAD,00,C0,29,F8,48,4A,4A
2020 DATA4A,85,FE,4A,4A,18,65,FE
2030 DATA85,FE,68,48,0A,0A,0A,85
2040 DATAFD,0A,0A,18,65,FD,85,FD
2050 DATAA5,FE,69,00,85,FE,18,A5
2060 DATAFB,65,FD,85,FB,A5,FC,65
2070 DATAFE,85,FC,A9,00,85,FE,68
2080 DATA85,FD,AD,00,C0,38,E5,FD
2090 DATA85,FD,AD,01,C0,29,F8,18
2100 DATA65,FD,85,FD,A5,FE,6D,02
2110 DATAC0,85,FE,18,A5,FB,65,FD
2120 DATA85,FB,A5,FC,65,FE,85,FC
2130 DATAAD,01,C0,29,F8,85,FE,AD
2140 DATA01,C0,38,E5,FE,AA,A9,80
2150 DATAE0,00,F0,05,4A,CA,4C,7C
2160 DATAC0,85,FE,B1,FB,25,FE,C9
2170 DATA00,F0,02,38,60,18,60,38
2180 DATAA5,FC,E9,20,85,FC,A2,03
2190 DATA18,66,FC,66,FB,CA,E0,00
2200 DATAD0,F6,18,A5,FC,69,40,85
2210 DATAFC,60,20,04,C0,90,0B,20
2220 DATA93,C0,A0,00,B1,FB,8D,03
2230 DATAC0,60,A9,10,8D,03,C0,60
2240 DATAAD,01,C0,0A,8D,01,C0,90
2250 DATA08,A9,01,8D,02,C0,4C,DA
2260 DATAC0,A9,00,8D,02,C0,20,04
2270 DATAC0,B0,22,AD,01,C0,09,01
2280 DATA8D,01,C0,20,04,C0,90,0F
2290 DATA20,93,C0,A0,00,B1,FB,4A
2300 DATA4A,4A,4A,8D,03,C0,60,A9
2310 DATA10,8D,03,C0,60,AD,01,C0
2320 DATA09,01,8D,01,C0,20,04,C0
2330 DATAB0,0D,20,93,C0,A0,00,B1
2340 DATAFB,29,0F,8D,03,C0,60,20
2350 DATA93,C0,A5,FC,18,69,04,85
2360 DATAFC,A0,00,B1,FB,29,0F,8D
2370 DATA03,C0,60