0 REMWORKTOOL
1 REMULRICH GROTHAUS
2 REMFALLWEG 18
3 REM8450 AMBERG
4 :
5 :
10 REM --------------------------------
20 REM      ABFRAGE DER OPTIONSWERTE
30 REM --------------------------------
40 :
50 :
60 RESTORE:POKE 53280,0:POKE53281,0
70 PRINTCHR$(147):POKE646,5:PRINT"***************WORKTOOL*****************"
80 POKE646,7:PRINTTAB(8)"VON ULRICH GROTHAUS"
90 POKE646,15:PRINT:PRINT:PRINT:PRINT"OPTIONS:";,:POKE646,10
100 PRINT"F1=FARBE SETZEN":PRINT,"F3=ZEIT AUSGEBEN":PRINT,"F5=WARNTON EIN"
110 PRINT,"F7=WARNTON AUS":PRINT:PRINT:POKE646,14
120 INPUT"FARBCODE RAHMEN";R
130 INPUT"FARBCODE GRUND";G
140 INPUT"FARBCODE CURSOR";C
150 :
160 :
170 REM -------------------------------
180 REM WERTUEBERGABE MASCHINENPROGRAMM
190 REM -------------------------------
200 :
210 :
220 POKE49425,R:POKE49426,G:POKE49427,C
230 PRINT:PRINTTAB(7);"HHMMSS":PRINTCHR$(145);:INPUT"ZEIT ";Z$
240 DEF FNF(X)=INT(X/10)*16+(X-INT(X/10)*10)
250 H=VAL(LEFT$(Z$,2)):M=VAL(MID$(Z$,3,2)):S=VAL(RIGHT$(Z$,2))
260 POKE56335,PEEK(56335)AND127
270 POKE56329,FNF(S):POKE56330,FNF(M):POKE56331,FNF(H):POKE56328,0
280 POKE56334,PEEK(56334)OR128
290 :
300 :
310 REM -------------------------------
320 REM       EINLESEN DER DATEN
330 REM -------------------------------
340 :
350 :
360 GOSUB 720
370 FORT=1TO4:SYS36500:NEXT
380 FORT=1TO40:PRINT:NEXT
390 POKE646,13:PRINT"DAS  EINLESEN  DES MASCHINENPROGRAMMES DAUERT 15 SEKUNDEN"
400 GOSUB 800
410 FORT=1TO4:SYS36500:NEXT
420 :
430 :
440 REM ------------------------------
450 REM      BENUTZERHINWEISE
460 REM ------------------------------
470 :
480 :
490 POKE792,193:PRINTCHR$(147):POKE646,7
500 PRINT"AUS PROGRAMMTECHNISCHEN GRUENDEN IST DER NMI-INTERRUPT";:POKE646,7
510 PRINT" AUSGESCHALTET(ZEILE 490)."
520 PRINT"DAS WORKTOOL LIEGT BEI 49152."
530 PRINT"ES SIND 38911 BYTES BASIC-RAM FREE."
540 POKE53280,0:POKE646,3:PRINT"KANN ICH MICH LOESCHEN (J/N)[160]?"
550 FORT=1TO11:GETN$:NEXT
560 GETA$:IFA$=""THEN560
570 IFA$="N"THENGOTO60
580 :
590 :
600 REM -------------------------------
610 REM    LOESCHEN DES BASICTEILS
620 REM   START DER TOOL-IRQ ROUTINE
630 REM -------------------------------
640 :
650 :
660 POKE53280,PEEK(49425):POKE53281,PEEK(49426):POKE646,PEEK(49427)
670 PRINTCHR$(147);"****************[209]WORKTOOL[209]**************"
680 PRINT"       -----38634 BYTES FREE----":PRINT
690 PRINT"*************1984 BY GROTO**************"
700 GETA$:IFA$=""THEN700
710 PRINTCHR$(147):FORT=2048TO2060:POKET,0:NEXT:POKE45,3:POKE46,8:SYS49152:END
720 PS=0:FORAD= 36500 TO 36519 :READDA$
730 L=ASC(LEFT$(DA$,1))-48:R=ASC(RIGHT$(DA$,1))-48
740 PO=(L+(L>9)*7)*16+R+(R>9)*7:POKEAD,PO:PS=PS+PO:NEXT
750 IFPS<> 2456 THENPRINT"[147]PRUEFSUMMENFEHLER IM 1. DATABLOCK.":END
760 RETURN
770 DATAA0,00,A2,00,8E,20,D0,E8
780 DATAF0,03,4C,98,8E,C8,F0,03
790 DATA4C,96,8E,60
800 PS=0:FORAD= 49152 TO 49420 :READDA$
810 L=ASC(LEFT$(DA$,1))-48:R=ASC(RIGHT$(DA$,1))-48
820 PO=(L+(L>9)*7)*16+R+(R>9)*7:POKEAD,PO:PS=PS+PO:NEXT
830 IFPS<> 32697 THENPRINT"[147]PRUEFSUMMENFEHLER IM 2. DATABLOCK.":END
840 RETURN
850 DATAEA,78,A9,0E,8D,14,03,A9
860 DATAC0,8D,15,03,58,60,8D,04
870 DATAD4,EA,A9,04,C5,C5,F0,28
880 DATAA9,05,C5,C5,F0,39,A9,06
890 DATAC5,C5,D0,03,8D,10,C1,A9
900 DATA03,C5,C5,D0,03,8D,10,C1
910 DATAAD,10,C1,C9,06,F0,5A,4C
920 DATA31,EA,60,00,EA,EA,EA,EA
930 DATAAD,11,C1,8D,20,D0,AD,12
940 DATAC1,8D,21,D0,AD,13,C1,8D
950 DATA86,02,4C,18,C0,EA,EA,AD
960 DATA0B,DC,29,7F,A2,10,20,78
970 DATAC0,AD,0A,DC,A2,13,20,78
980 DATAC0,AD,09,DC,A2,16,20,78
990 DATAC0,AD,08,DC,4C,31,EA,00
1000 DATA48,29,F0,4A,4A,4A,4A,18
1010 DATA69,B0,9D,00,04,68,29,0F
1020 DATA18,69,B0,9D,01,04,60,EA
1030 DATAEA,A5,D3,C9,23,F0,11,A5
1040 DATAD3,C9,46,F0,2F,A5,D3,C9
1050 DATA4F,F0,4D,4C,31,EA,60,00
1060 DATAEA,EA,EA,A9,06,8D,00,D4
1070 DATAA9,78,8D,01,D4,A9,0A,8D
1080 DATA18,D4,A9,33,8D,05,D4,A9
1090 DATA00,8D,06,D4,A9,11,8D,04
1100 DATAD4,4C,31,EA,EA,EA,EA,A9
1110 DATA06,8D,00,D4,A9,32,8D,01
1120 DATAD4,A9,0A,8D,18,D4,A9,63
1130 DATA8D,05,D4,A9,00,8D,06,D4
1140 DATAA9,21,8D,04,D4,4C,31,EA
1150 DATAA9,01,8D,03,D4,A9,0F,8D
1160 DATA18,D4,A9,FF,8D,06,D4,A9
1170 DATA00,8D,05,D4,A9,41,8D,04
1180 DATAD4,4C,31,EA,00