10 REM **** KURZBESCHREIBUNG (BEFEHLSLISTE) DES PROGRAMMES 'P3 SP-1000VC .2' ***
20 REM             (DRUCKERSTEUERUNG MIT BASICERWEITERUNG)
25 REM *** PROGRAMMNAME 'BEF P3 SP-TVC .2' ***
26 REM  **** HORST NOVAK  DOEBLINGERHAUPTSTRASSE  1190 WIEN  ****
30 DR$="[211][197][201][203][207][211][200][193] [211][208]-1000[214][195]"
31 K=0:FORI=0TO2:K=K+PEEK(50566+I):NEXT
32 IFK=184 THEN 40
33 PRINT"[147] DRUCKERPROGRAMM LADEN !!! ":PRINT:PRINT:PRINT:PRINT
34 PRINT"LOAD "CHR$(34)"P3 SP-1000VC .2"CHR$(34)",8,1[145][145][145]":END
40 SYS49152:_RM:_RT:_D:_RD:_ML,03:_MR,74:_M
42 _D:GOSUB 990
50 _WL:_PQ
60 _B:_ST2,19:PRINT"[196]RUCKERSTEUERUNG"
70 _ST3,17:PRINTDR$
80 _ST3,00:PRINT"[194]ASICERWEITERUNG";:_B0:_ST3,53:PRINT"[203]URZBESCHREIBUNG"
90 GOSUB994
100 _EQ:REM ******* _F
110 PRINT"[208]ROGRAMMNAME:"CHR$(34)"[208]3 [211][208]-1000[214][195] .2"CHR$(34);
120 PRINT" [194]EREICH:$[195]000-$[195][198][198][198]";:_H:_LC:_ST3,52:PRINT"[200]ORST [206][207][214][193][203]"
130 _T3:PRINT"[196]OEBLINGER [200]AUPTSTRASSE 44/16"
140 PRINT"[193]KTIVIEREN: [211][217][211] 49152  [196]ESAKTIVIEREN: [211][217][211] 50601";
150 _H:_T3:PRINT"1190 [215][201][197][206]"
160 GOSUB994
170 PRINT"[194]EI [193]KTIVIERUNG UND [196]ESAKTIVIERUNG WERDEN DIE [214]EKTOREN ANDERER [194]ASIC";
180 PRINT"ERWEITERUNGEN BERUECKSICHTIGT."
190 PRINT"[208]ARAMETER FUER [210]ANDEINSTELLUNG,[218]EILENVORSCHUB,[212]ABULATOREN,[218]EILEN/[211]EI";
200 PRINT"TE & [199]RAFIKDATEN WERDEN IN EINER [212]ABELLE ABGELEGT."
210 PRINT"[196]IESE [212]ABELLE KANN MIT _[210][212] ODER _[200][208],_[200][198],_[200][197] MIT [206]ORMALWERTEN";
220 PRINT" GELADEN WERDEN."
230 _SZR,209:_SZ1,0110000:_Z1:_Z1:_Z0:_LA:_WL:_ST1,36:_WL
240 _LF
245 REM =================================
250 _PQ:PRINT"_[196]  ";
251 _C:PRINT"[196]RUCKERVERBINDUNG EIN ([211]ECUNDAERADR => [218]EICHENSATZ)";
252 _T1:_PQ:PRINT"_[196]0 ";
253 _C:PRINT"[214]ERBINDUNG AUS ([198]ILES,[212]AB & [196]RUCKERWERTE BLEIBEN "
254 _PQ:PRINT"_[211][211],N";
255 _C:_LE:PRINT"  [211]ECUNDAERADRESSE (_[196]) SETZEN (N=0..[199]ROSS/[199]RAFIK,  ";
256 _T1:PRINT"                       & _[194]0 & _[218]0)"
257 _C:PRINT"  N=7..[203]LEIN/[199]ROSS) WIRKSAM IN _[196] NUR NACH _[210][205] !";
258 _T1:_PQ:PRINT"_[210][212] ";:_C:_LF:PRINT"[212]ABELLE MIT [206]ORMWERTEN LADEN & _[196]0"
260 _PQ:PRINT"_[210][196]  ";
261 _C:PRINT"[196]RUCKERRESET ([212]AB & [196]RUCKERVERBINDUNG BLEIBEN)";
262 _T1:_PQ:PRINT"_[210][205] ";
263 _C:_LB:PRINT"[205]ASTERRESET ([198]ILES CLOSED & _[196]0)"
264 GOSUB992:_WL
265 _PQ:PRINT"_[208]   ";
266 _C:PRINT"[208]ICA EIN "
270 _PQ:PRINT"_[208][209]  ";
271 _C:PRINT"[208]ICA [200]IGH [209]UALITY EIN"
280 _PQ:PRINT"_[197]   ";
281 _C:PRINT"[197]LITE EIN "
290 _PQ:PRINT"_[197][209]  ";
291 _C:PRINT"[197]LITE [200]IGH [209]UALITY EIN "
300 _PQ:PRINT"_[195]   ";
301 _C:PRINT"[195]ONDENSED ([203]OMPRIMIERT) EIN"
310 _PQ:PRINT"_[200]   ";
311 _C:PRINT"[200]OCH ([211]UPERSCRIPT) EIN"
320 _PQ:PRINT"_[212]   ";
321 _C:PRINT"[212]IEF ([211]UBSCRIPT) EIN"
330 _PQ:PRINT"_[203]   ";
331 _C:PRINT"[203]LEIN/[199]ROSS [218]EICHENSATZ EIN"
340 _PQ:PRINT"_[199]   ";
341 _C:PRINT"[199]ROSS/[199]RAFIK [218]EICHENSATZ EIN"
350 _PQ:PRINT"_[201]   ";
351 _C:PRINT"[201]TALIK ([203]URSIV) EIN ";
352 _T1:_PQ:PRINT"_[201]0 ";
353 _C:PRINT"[201]TALIC ([203]URSIV) AUS"
360 _PQ:PRINT"_[194]   ";
361 _C:PRINT"[194]REITSCHRIFT ([196]OUBLE [215]IDTH) EIN & _[218]0";
362 _T1:_PQ:PRINT"_[194]0 ";
363 _C:PRINT"[194]REITSCHRIFT ([196]OUBLE [215]IDTH) AUS & _[218]0"
370 _PQ:PRINT"_[198]   ";
371 _C:PRINT"[198]ETTSCRIFT ([196]OUBLE [211]TRIKE) EIN";
372 _T1:_PQ:PRINT"_[198]0 ";
373 _C:PRINT"[198]ETTSCHRIFT ([196]OUBLE [211]TRIKE) AUS"
380 _PQ:PRINT"_[210]   ";
381 _C:PRINT"[210]EVERS EIN ";
382 _T1:_PQ:PRINT"_[210]0 ";
383 _C:PRINT"[210]EVERS AUS"
400 _PQ:PRINT"_[213]   ";
401 _C:PRINT"[213]NTERSTREICHEN EIN ";
402 _T1:_PQ:PRINT"_[213]0 ";
403 _C:_LB:PRINT"[213]NTERSTREICHEN AUS "
404 GOSUB992:_WL
410 _PQ:PRINT"_[215]   ";
411 _C:PRINT"[206]UR [215]AGENRUECKLAUF ([195][211])"
420 _PQ:PRINT"_[215][204]  ";
421 _C:PRINT"[215]AGENRUECKLAUF & [218]EILENVORSCHUB ([204][198])";
422 _T1:_PQ:PRINT"_[215][209] ";
423 _C:PRINT"[215]AGENRUECKLAUF,[218]EILENVORSCHUB & [209]UOTE CLEARED ([195][210]) "
430 _PQ:PRINT"_[216]   ";
431 _C:PRINT"[213]NIDIRECTIONALER [196]RUCK EIN ";
432 _T1:_PQ:PRINT"_[216]0 ";
433 _C:PRINT"[213]NIDIRECTIONALER [196]RUCK AUS "
440 _PQ:PRINT"_[198][198]  ";
441 _C:PRINT"[198]ORMFEED ([198]ORMULARTRANSPORT) (NORM 54)  ";
442 _T1:_PQ:PRINT"_[211][218][211],N";
443 _C:_LB:PRINT"  [218]EILEN/[211]EITE (MAX 127) SETZEN              *) "
444 GOSUB992:_WL
450 _PQ:PRINT"_[204]1  ";
451 _C:PRINT"[218]EILENVORSCHUB AUS [212]ABELLE (NORM 1/2 [208]UNKT)        ";
452 _T1:_PQ:PRINT"_[211][204]1,N";
453 _C:_LF:PRINT"  [218]EILENVORSCHUB N*1/144 IN(1/2 [208]KT)SETZEN   *) "
460 _PQ:PRINT"_[204]2 _[204]3 ";
461 _C:PRINT"  WIE _[204]1 (NORM 1 [208]KT BZW 7.5 [208]KTE)";
462 _T1:_PQ:PRINT"_[211][204]2,N _[211][204]3,N";
463 _C:PRINT"  WIE _[211][204]1                       *) "
470 _PQ:PRINT"_[204][193] _[204][194] _[204][195] ";
471 _C:PRINT"[218]EILENVORSCHUB FUER _[200] ([199]RAFIK[190][205]INIMUM[190][206]ORMAL[190])"
480 _PQ:PRINT"_[204][196] _[204][197] _[204][198] _[204][199] _[204][200] ";
481 _C:_LB:PRINT"[218]EILENVORSCHUB FUER _[197],_[208] ";
482 PRINT"([199]RAFIK[190][205]INIMUM[190][206]ORMAL[190]1 [218]EILE[190]1 1/2 [218]EILEN[190])"
494 GOSUB992:_WL
500 _PQ:PRINT"_[205]   ";
501 _C:PRINT"[204]INKER & RECHTER [210]AND AUS [212]ABELLE (NORM 00 & 72) ";
502 _T1:_PQ:PRINT"_[205][204],NM ";
503 _C:_LF:PRINT"[204]INKEN [210]AND IN [212]ABELLE (NM [208]ICA) SETZEN"
512 _T1:_PQ:PRINT"_[205][210],NM ";
513 _C:PRINT"[210]ECHTEN [210]AND IN [212]ABELLE (NM [208]ICA) SETZEN"
520 _PQ:PRINT"_[212][193]  ";
521 _C:PRINT"[212]ABULATOR AUS [212]ABELLE (NORM 16*1/60 IN)";
522 _T1:_PQ:PRINT"_[211][212][193],N,M ";
523 _C:PRINT"[212]ABULATOR (N*250 + M 1/60 INCH) SETZEN  *)"
530 _PQ:PRINT"_[212][194]  ";
531 _C:PRINT"[212]ABULATOR AUS [212]ABELLE (NICHT NORMALISIERT !! )";
532 _T1:_PQ:PRINT"_[211][212][194],N,M ";
533 _C:PRINT"[212]ABULATOR (N*250 + M 1/60 INCH) SETZEN  *)"
540 _PQ:PRINT"_[212]1  ";
541 _C:PRINT"[212]ABULATOR AUS [212]ABELLE (NORM 01 [208]ICA) ";
542 _T1:_PQ:PRINT"_[211][212]1,NM ";
543 _C:PRINT"[212]ABULATOR (NM [208]ICA) SETZEN                *)"
550 _PQ:PRINT"_[212]2 _[212]3 ";
551 _C:PRINT"[212]ABULATOR AUS [212]ABELLE (NORM 35 BZW 55 [208]ICA)";
552 _T1:_PQ:PRINT"_[211][212]2,NM _[211][212]3,NM ";
553 _C:_LB:PRINT"[212]ABULATOR (NM [208]ICA) SETZEN  *)"
554 GOSUB992:_WL
570 _PQ:PRINT"_[206][194]  ";
571 _C:PRINT"[212]AB & [196]RUCKER FUER [194]RIEF [193]4 (_[208][209],......   ) ";
580 _T1:_PQ:PRINT"_[206][204]  ";
581 _C:_LB:PRINT"[212]AB & [196]RUCKER FUER [204]ISTING(_[195],...........  )"
594 GOSUB992:_WL
600 _PQ:PRINT"_[218]   ";
601 _C:PRINT"[199]RAFIKMODE EIN  ";
602 _T1:_PQ:PRINT"_[218]0 ";
603 _C:_LF:PRINT"[199]RAFIKMODE AUS"
610 _PQ:PRINT"     ";
611 _C:PRINT"                                                   ";
612 _T1:_PQ:PRINT"_[211][218][210],N ";
613 _C:PRINT"[199]RAFIKREPEAT (N=1-255,N=0..256) SETZEN    "
620 _PQ:PRINT"_[218]1  ";
621 _C:PRINT"[199]RAFIKDATEN1 AUS [212]ABELLE [199]RAFIKREPEAT MAL ZEICHNEN ";
622 _T1:_PQ:PRINT"_[211][218]1,NNNNNNN ";
623 _C:PRINT"[199]RAFDATEN MIT 0 ODER 1 SETZEN       "
630 _PQ:PRINT"_[218]2 _[218]3 .. _[218]9 ";
631 _C:PRINT"[215]IE _[218]1 ";
632 _T1:_PQ:PRINT"_[211][218]2,NNNNNNN .._[211][218]9, ";
633 _C:PRINT"[215]IE _[211]Z1,NNNNNNN"
640 _PQ:PRINT"_[218][198]  ";
641 _C:_LB:PRINT"[199]RAFIKDATEN1-8 AUS [212]ABELLE [199]RAFIKREPEAT MAL ZEICHNEN;Z.[194]. ";
642 PRINT"[212]AB NORMAL & [210]EPEAT=10:    ";
643 _SZR,10:_ZF:_Z0:_WL
659 GOSUB992:_WL
660 _PQ:PRINT"_[200][204]";:_EQ:PRINTCHR$(34)"[194]ILDNAME";CHR$(34);" ";
661 _C:PRINT"[200]IRESBILD (33 [194]LOECKE) VON [196]ISK LADEN ";
662 _T1:_PQ:PRINT"_[200][208] ";
663 _C:_LF:PRINT"[200]IRESBILD ([193]000-[194][198][198][198]) DRUCKEN (_[212][194]..LINKER [210]AND)"
670 _PQ:PRINT"_[200][198]  ";
671 _C:PRINT"[215]IE _[200][208] ABER [198]ETTDRUCK (DOPPELTE [218]EIT)";
672 _T1:_PQ:PRINT"_[200][197] ";
673 _C:_LB:PRINT"[215]IE _[200][208] ABER ENTZERRTER [198]ETTDRUCK (4FACHE [218]EIT)"
800 GOSUB993:_WL
802 _PQ:_LF:PRINT"_[201][206]([216],[217]),[198],"CHR$(34)"[212]"CHR$(34)",[204],"CHR$(34)"[218]"CHR$(34)",";
804 PRINT"[214][214]$      ";:_C:PRINT"[198]ORMATIERTER [201][206][208][213][212] [194]EFEHL FUER MAX. 255 [218]EICHEN
806 _ST1,05
808 [153]"(null)...(null)PALTE(0-39) (null)...(null)EILE(0-24) ,ASC...ASCARBE VON (null)EXT & VALINGABEFELD ";
810 _LE:[153]"(0-15) (null)...(null)EXT(VOR VALINGABEFELD)"
811 _T1:[153]"(null)...(null)AENGE VALINGABEFELD ";
812 [153]"(null)...PEEKESCHRAENKUNG AUF ERLAUBTE(null)EICHEN(<30) (null)(null)$...(null)TRINGVARIABLE";
814 [153]"(MAX. 255 (null)EICHEN)"
816 _ST1,07:[153]",ASC   "[199](34)"(null)"[199](34)"   "[199](34)"(null)"[199](34);
818 _LB:[153]"  KOENNEN WEGGELASSEN WERDEN  _RIGHT$(null)((null),(null))(null),(null)(null)$  _RIGHT$(null)((null),(null)),ASC,(null),(null)(null)$ USW"
820 [141]992:_WL
822 _PQ:_LF:[153]"_(null)(null)((null),(null)),ASC,"[199](34)"(null)"[199](34)"  ODER (null)(null)$  ";
824 _C:[153]"    (null)(null)RIGHT$(null)(null) (null)EXT ATN(null) PEEKEFEHL"
826 _ST1,05
828 [153]"(null)...(null)PALTE(0-39) (null)...(null)EILE(0-24) ,ASC...ASCARBE DES (null)EXTES";
830 _LE:[153]"(0-15) (null)...(null)EXT ODER (null)(null)$...(null)TRINGVARIABLE"
832 _ST1,07:[153]",ASC   KANN WEGGELASSEN WERDEN     _(null)(null)((null),(null))"[199](34)"(null)";
834 _LB:[153] [199](34) "ODER _(null)(null)((null),(null))(null)(null)$
836 GOSUB992:_WL
838 _PQ:_LF:PRINT"_[211][195],[193]       ";
840 _C:PRINT"    [211][195][210][207][204][204] [213][208] [194]EFEHL    "
842 _ST1,05
844 _LE:PRINT",[193]...[193]NZAHL DER ZU SCROLLENDEN [218]EILEN";
846 _LB:PRINT"     ,[193]   KANN WEGGELASSEN WERDEN     _[211][195] "
848 GOSUB992:_WL
850 _PQ:_LF:PRINT"_[195][204],[217],[193]       ";
852 _C:PRINT"    [195][204][197][193][210][160][204][201][206][197] [194]EFEHL    "
854 _ST1,05
856 _LE:PRINT"[217]...[218]EILE(0-24)  ,[193]...[193]NZAHL DER ZU LOESCHENDEN [218]EILEN";
858 _LB:PRINT
860 GOSUB992:_WL
862 _PQ:_LF:PRINT"_[195][211]           ";
864 _C:_LB:PRINT"    [195][204][197][193][210][160][211][195][210][197][197][206] [194]EFEHL    "
866 GOSUB993:_WL
870 _C:PRINT"*) ";:_H:PRINT"[215]ERTE WERDEN IN [212]ABELLE GESETZT & ZU [196]RUCKER ";
872 PRINT"GESENDET":_LB: _WL
900 GOSUB990:_RD:_RM:END
910 REM *** GRAFIKSUBROUTINEN
990 _D:_SZ1,0001000:_SZ2,0011100:_SZ3,0110110:_SZ4,1100011
991 _SZR,59:_Z1:_Z2:_Z3:_SZR,64:_Z4:_SZR,59:_Z3:_Z2:_Z1:_Z0:RETURN
992 _SZR,209:_SZ2,0000010:_Z2:_Z2:_RT:_D:_LE:_ML,03:_MR,74:_M:_ST1,36:RETURN
993 _ST1,36:_W:_SZR,209:_SZ2,0000011:_Z2:_Z2:_Z0:_LF:RETURN
994 _SZR,209:_SZ5,1100000:_Z5:_Z5:_Z0:_LA:_WL:_LC:RETURN