10 ' DOOR BEN GEURTS
20 ' LOUIS COUPERUSSTRAAT
30 " 6901LV
40 ' ZEVENAAR
50 ' 
60 ' op een sony hb 75/p
70 ' APRIL 1986
80 " 
90 ' iillilUjlilWWUIkllilUIUiüJUllilUlUlUliAlüüU YV vY VY YY VY VY YY YY VY VY VY VYVYVYVYVYVYVYVYW
100 ' MACHINETAALMONITOR
1 1 n ■' Ui Ld bJ Ld Ia! Ui Ld Ld UI Ui Ld Ld hl UI Ui UI Ld UI Ui Ld
J. J. V- VY rv VY VY VV VY W VY VVV * VY VY W VY VY VV W V V YV V V
120 HU7.=0: HU 1 =0: HU=0: X=0: TE=0
130 BA=0:EA=0:LI=0:RE=0
140 LR$=" ": SR$="": F'R$=" ": F'A$=" "
150 ST$-"":TD$=""
160 CLS: WIDTH37:CLEAR1000
170 GOSUB2220: STOF'ON
180 ONST0PB0SUB2260: KEY'OFF
190 GOSUB2360;COLOR1,14,14
200 CLS;L0CATE5,1:PRINT"XWWWWWWWWWWWW
UiUiiilUiliiUiUII'lUlV"
v ■? w vv vv w w w v ■> yv !
210 L0CATE5,2:PRINT"V HOOFD M E N U V"
220 L0CATE5,3:PRINT"ZWWWWWWWWWRWWWWWW uiuiuiuiuir11
230 PRINT" XWWWWWWWWWWWWWQWWWWWWWWWWW WWWWWY"
240 PRINT" V"SPC(30)"V"
250 EN PRINT" V V" KEY 1 : ML ROUTINE LAD
260 EN PRINT" V V" KEY jL : ML ROUTINE SAV
270 PRINT" V V" KEY T : GEHEUGEN TONEN
280 PRINT" V V" KEY 4 : 1 BLOK VERDER
290 PRINT" V V" KEY 5 : 1 BLOK TERUG
300 BLOK PRINT" V : V" KEY 6 : EERST GEKOZEN
310 PRINT" V KEY 7 : SCHERM PRINTEN
320 N ML F'klNT" V . V" KEY 8 : PROGRAMMEREN I
330 PRINT" V V" KEY 9 : MENU
340 PRINT" V KEY 10 : STOPPEN V"
350 PRINT" V"SPC(30)"V"
360 PRINT" Zt#JWRWWWWWWWWWWWWWNWWWWWWW 1*1 wui ui ui r"
VY YY YV YY YY L
370 L0CATE5,18:PRINT"V"SPC(5)"XWWWWWW
IaIIaÏ LxJ LjJ ii) IjJ UI lil ixl Ui 'V' "
YV VY V V VY V # YV VY '■■■f YY YV I
380 L0CATE5,19;PRINT"ZWWWWWS maak een keuze.V
390 L0CATE11,20:PRINT"ZWWWWWWWWWWWWWW WWC"
400 ÜNKEYGOSUB450,590,750,980,1060,11 40,1180,1250,1990,2290 41O IFINKEY$=""GOTO410ELSE400
4 'T-'0 ' id Ld j ij i ij UJld Ld Ld ld Ld Ui id Ia! Ld lil UI ld iiild IdldUI iil UI iii Ui
~ o- •- V'! W V r YV * i r * YY V » VV YY rt rY YY VY YY V•} YV YV V v YV vt rV YV YY VY rf
430 # LADEN MACHINETAALROUTINE
440 ' Ld Ld UI Ld Ld id Ui Ld Ld Ld ld Ld Li i ld Ld UJ Ld Ld Ld Ld UI i d ld Ui Ld Ld
■ T YY V V rv V i V V YY YY YY Y i V i YV VY YV YY VV YY VY YV VY YV VY YY VY W VY VY
450 KEYON:CLS:LOCATE1,5
460 PRINT"Geef naam te laden routine
470 LOCATE1O,7:1NPUTLR$
480 IFLEN(LR$)>6THENBEEP:GOTO460 490 CLS:LOCATE1,5
500 INPUT"Gebruikt u (T)ape o+ (D)isc :";TD$
510 IFTD$<>"T"ANDTD$<>"t"ANDTD$<>"D"A NDTD*< >"d"QRTD$=""GOTO490 520 CLS:LOCATE1,5
530 PRINT"momentje.., "LR$" wordt gel aden."
540 IFTD$="T"ORTD$="t"THENBLOAD"c as:"
+LR$;KEYOFF:RETURN200
550 BLQADLR$:KEYOFF:RETURN200
560 ' WWWWWWWWWWWWWWWWIaJWWWWWWWWW
570 ' SAVEN MACHINETAALROUTINE
580 'WWWWWWWWWWWWWWWWWWWWWWWWWW
590 KEYON:CLS:LOCATE1,5
600 PRINT"Geef naam te saven routine
« i>
61O LOCATE10,7:1NPUT5R$
620 IFLEN(SR$)>6THENBEEP:GOTO59C 630 GOSUB203O:CLS:LOCATE1,5 640 INPUT"Gebrui kt u. (T)ape o-f (D)isc :";TD$
650 I FTD$ < > " T" ANDTD*<> " t" ANDTD* < > D "A NDTD$<>"d"0RTD*=""GOTO590 660 BA=VAL(BA*);EA=VAL(EA$)
670 CLS:L0CATE1,5
680 PRINT"momentje... "SR$" wordt ges aved. "
690 I FTD$= " T " 0RTD*= " t" THENBSAVE " cas: "
+SR$, BA,EA:KEYOFF:RETURN200
700 BSAVESR*,BA,EA
710 KEYOFF:RETURN
720 -WWWWWWWWWWWWWWWWWWWWWW
730 ' TONEN GEHEUGENINHOUD
740 'WWWWWWWWWWWWWWWWWWWWWW
750 HU7.=1: GOSUB2030
760 CLS:F0RY=0T020
770 PA$=HEX*(VAL(BA*)+(8#Y))
780 IFLENiPA*)=4GOTO80O 790 PA$=STRING$(4-LEN(PA*),"O")+PA* 800 PRINTPA*:HU'/.=8 810 FORX=OT07
820 PR*=HEX*(REEK(VAL(BA*)+(8*Y)+X)) 830 IFLENi PR*> =2GOTO850 840 PR*="0"+PR*
850 LI =ASC (L.EFT* (PR*, 1) )
860 RE=ASC(RIGHT*(PR*, 1))
870 VPOKEY#40+X+HU7., LI 880 VPOKEY*4O+X+HU% +1,RE 890 TE=VAL ("&H"+PR*)
900 IF TE=> 32GOTO92O 910 TE--46
920 VPOKEY*40+X +32, TE: HU7.=HU7.+2
930 NEXT: NEXT: HU7.=0: TE=0
940 GOSUB2170;RETURN
950 'WWWWWWWWWWWWWWWWWWWWWWWW
960 ' VOLGENDE BLOK GEHEUGEN
970 ' WWWWWWWWWWWWWWWWWWWWWWWW
980 HU!=VAL(BA*)+168
990 IFHUI=>OGOTO1010
1000 HU!=HUi+65536!
1010 BA$="&H"+HEX$(HU!)
1020 GOSUB760:RETURN 1030 'WWWWWWWWWWWWWWWWWWWWWWW 1040 ' 1 BLOK GEHEUGEN TERUG 1050 'WWWWWWWWWWWWWWWWWWWWWWW 1060 HU!=VAL(BA* 5-168 1070 IFHU!=>OGOTO1O1O 1080 HU!=HU!+65536!
1090 BA*= " ?-:H" +HEX* (HU!)
1100 GOSUB760;RETURN
1110 ' w w w w w w w w w w w w w w w w w w w w
1120 " EERST GEKOZEN BLOK
1130 'WWWWWWWWWWWWWWWWWWWW
1140 BA*=ST*:GOSUB760:RETURN
1150 'WWWWWWWWWWWWWWWW
1160 ' PRINTEN SCHERM
1170 'WWWWWWWWWWWWWWWW
1180 KEYON
1190 F0RY=0T021:F0RX=0T039 1200 LPRINTCHR*(VPEEK(BASE(O)+Y+40+X) );
1210 NEXT:LPRINT:NEXT:RETURN
1220 'WWWWWWWWWWWWWWWWWWWWW
1230 ' PROGRAMMEER ROUTINE
1240 'WWWWWWWWWWWWWWWWWWWWW
1250 CLS:LOCATE1,10:PRINT"Het beginad
res moet hoger zijn dan";SPC(53);"A03
3"; SF'C (32) ; "WWWWWW"
1260 F0RPA=1TO1000:NEXT 1270 KEYOFF:CLS
1280 PRINT" XWWWWWWWWWWWWWWY" 
1290 PRINT" V F'ROG. MENU V"
1300 PRINT" z WWWWWWWRWWWWWWC" 
1310 PRINT" XWWWWWWWOWWWWWWY" 
1320 PRINT" V I = INVOEREN V"
3 330 PRINT" u V K = KONTROLE V"
1340 PRINT" V M = MENU V"
1350 PRINT" V S = STOPPEN V"
1360 PRINT" zWRWWWWWWWWWWWW[" 
1370 PRINT"  V":SPC(36);"V XWWWWWWWW
WWWWWWWWY"   
1380 PRINT"  ZWS MAAK EEN KEUZE V"
1390 PRINT"  ZWWWWWWWWWWWRWWWWC"
1400 IFHU7.= 1 GOTO 1450 1410 LOCATE 15,14:1 NF'UTA*
1420 HU=1:60SUB1890 1430 IFHU=1GOTO1410
1440 'WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 1450 L0CATE2,15:PRINT">INVOERENC"
1460 A*=11"
1470 L0CATE2,18:PRINT"
1480 L0CATE2,18:IFA*=""THENINPUTA*
1490 60SUB1890:IFLEN(A* > =1THENGOSUB15
80
1500 IFLEN(A*> >2THENGOSUB1620 1510 A -VAL (" 8<H" +A$)
1520 L0CATE2,20:PRINTBA*;":";A$
1530 BA=VAL.(BA*)
1540 POKE(BA),A
1550 BA=BA+1:BA*="&H"+HEX*(BA)
1560 GOTO1460 1570 RETURN
1580 IFA$="A"ORA*="B"ORA*="C"ORA*="D" ORA*="E"ORA*="F"ORA*="O"GOTO161OELSE1
590
1590 H=VAL ("?<H"+A*)
1600 IFH<10RH>9GOTO1620ELSE1610 1610 A*="O"+A$:RETURN 1620 L.0CATE2,18: PRINT "FOUTE INVOER11 1630 BEEF': BEEF': BEEF': BEEF'
1640 FORPA=iT0500:NEXT 1650 L0CATE2,18: F'RI NTSPACE* (15)
1660 AB=AB-1:RETURN1460
1670 'wwwwwwwwwwwwwwwwwwwwwwwwwwwwww 1680 CLS:HU%=0:X=0:GDSUB2030:CLB 1690 BA=VAL(BA*):EA=VAL(EA*)
1700 IFBA>EATHENBA=BA+15 1710 F0RPR=BATQEA 1720 PR*=HEX$(REEK(PR))
1730 IFLEN(PR*)=1THENPR$="0"+PR*
1740 TE=VAL ("ï<H"+PR*>
1750 IFTE<=32THENTE=46 1760 PRINTHEX*(PR);": ";PR*;
1770 PRINTSPC(10);CHR* <255);
1780 PRINT" ";CHR*(TE)
1790 X=X+1:IFX=20G0TQ1840 1800 NEXTPR
1810 PRINT:PRINT"druk M voor menu."
1820 IFINKEY*<>"M"GOTO1820 1830 CLS: KEYOFF: GOTO 1280 1840 BA=BA+X:X=0
1850 PRINT:PRINT"druk spatiebalk voor verder."
1860 IFINKEY*•:>" "GOTO 1860 1870 CLS;GOTO1710
1880 'WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 1890 IFA*=""THENRETURN1450 1900 IFA*="S"ORA*="s"THENKEYQN:CLS: HU =0: HU 7.=O: RETURN 1950
1910 IFA*="M"ORA*= "m"THENCLS: HU=0: HU7. =0:RETURN1270
1920 I FA*= " I " ORA$= " i " THENHU=0: HU7.= 1: G ÜSUB2030:RETURN1270
1930 IFA$="K"ORA$="k"THENCLS:HU=0:RET
URN1680
1940 RETURN
1950 KEYOFF:RETURN200
1960 -WWWWWWWWWWWWWWWWW
1970 ' TERUG NAAR MENU
1980 'WWWWWWWWWWWWWWWWW
1990 CLS:RETURN200
2000 'wwwwwwwwwwwwwwwwwww
2010 ' ADRESSEN OPVRAGEN
2020 'WWWWWWWWWWWWWWWWWWW
2030 KEYOFF:CLS:LOCATE1,5
2040 PRINT"Beginadres in HEX voor de
routine :"
2050 LOCATE10,7:1NPUTBA*
2060 IFLEN <BA*)>■4THENBEEP:GOTO2030 2070 BA$="&H"+BA$:ST*=BA*
2080 IFHU%=i THENKEYON:RETURN
2090 L0CATE1,9:PRINT"Eindadres voor d
e routine
2100 LOCATE10,11:1NPUTEA*
2110 IFLEN(EA*)>4THENBEEP:GOTO2090 2120 EA*="8<H"+EA$
2130 KEYON:RETURN 2140 'WWWWWWWWWWWWWWWWWWW 2150 - TOETS VOOR VERDER 2160 'WWWWWWWWWWWWWWWWWWW 2170 LOCATE4,21
2180 PRINT"Bruk een F-toets voor verd er":RETURN
2190 'WWWWWWWWWWWWWWWWWWWWW
2200 ' F-TOETSEN INSTELLEN
221O "WWWWWWWWWWWWWWWWWWWWW
2220 KEY1,"laden":KEY2,"saven":KEY3, "
tonen":KEY4,"verder":KEY5,"terug"
2230 KEY6,"eerste":KEY7,"print":KEY8, "prog":KEY9,"menu":KEY10,"stop"
2240 *FORK=1TO10:KEY(K)ON:NEXT 2250 KEYOFF:RETURN 2260 'WWWWWWWWWWWWWWWWWWWWWWWWWWWWW 2270 ' EINDE - F-TOETSEN INSTELLEN 2280 'WWWWWWWWWWWWWWWWWWWWWWWWWWWWW 2290 CLS:KEY1,"color":KEY2,"auto":KEY 3,"qoto":KEY4,"list ":KEY5,"run"+CHR* (13)
2300 KEY6,"co1or 15,4,4"+CHR*(13):KE Y7,"cload"+CHR*(34):KEY8,"cont"+CHR*( 13):KEY9,"1i s t."+CHR*(13):KEY10,CHR*( 12)+"run"+CHR*(13)
2310 CLS:C0L0R15,4,4:KEYON 2320 P0KE&HFDC2,&HC9:END:'CURSOR 2330 WWWWWWWWWWWWWWWWWWWWWWWWWWWW 2340 ' UITLEG EN CURSOR INSTELLEN 2350 ' WWWWWWWWWWWWWWWWWWWWWWWWWWWW 2360 COLOR15,4,4
2370 L0CATE6,2:PRINT"M A C H I N E T A A L"
MONITOR
2380 L0CATE7,3:PRINT"
II
2390 PRINT:PRINT"Dit programma is een hulp voor"
2400 F'RINT"diegene die een stuk geheu gen willen"
2410 PRINT"uitlezen of willen wegschr i j ven. 11
2420 PRINT"Met dit programma kan men al Ierlei"
2430 PRINT"adressen invullen en men k an ook"
2440 F'RINT"gaan programmeren in machi netaal."
2450 F'RINT"Wanneer dit het geval is z orq er"
2460 F'RINT"dan wel voor dat het adres voor de"
2470 F'RINT"ML routine hoger is dan A0 33 want"
2480 F'RINT"anders wordt dit programma
>l
2490 PRINT"overschreven en krijgt u p rob lemen.
2500 F'RINT"Flet programma voor de curs or staat"
2510 F'RINT"op de adressen D9C0 t/m D9 FF 1 !"
2520 LOCATE11,19:PRINT"S U C C E S" 2530 LDCATE3,21:PRINT"DRUK EEN TOETS VOOR VERDER"
2540 F0RF'0=55744 ! T055807 !: READF'0$
2550 F'OKEPO,VAL <" ?<H" +F'0$ >
2560 NEXT
2570 DEFUSR=S<HD9C0: A=USR (0)
2580 RETURN
2590 DATA i1,CD,D9,21,C2,FD,3E,03 2600 DATA 71,23,73,23,72,2A,DC,F3 2610 DATA CD,F2,OB,CD,4A,00,57,3A 2620 DATA A8,FC,B7,20,04,3E,DB,IS 2630 DATA 02, 3E, CO,CD,4D,00,CD,F3 2640 DATA D9,7A,CD,4D,00,CD,F3,D9 2650 DATA 28,E5,C9,01,00,OF,CD,9C 2660 DATA 00,CO,OB,78,B1,20,F7,C9 2670 'WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 2680 ' EINDE LISTING
2690 -WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW