1 REM Ins{nt av 4230
2 REM *****************************
3 REM * V[XLAPGM.UTL / Minne 16K  *
4 REM * VER 1.0 / 1982-??-??      *
5 REM * (c) Alf Wirdling / <4230> *
6 REM * Tel    0470-26277 / V[XJ\ *
7 REM *****************************
100 REM  V[XLAPGM.UTL 
110 REM 
120 REM Uppdelning av minnet i 2 delar
130 REM s} att tv} basic-program kan
140 REM vara inne samtidigt.
150 REM 
160 POKE -128%,80%,49%,13%
170 POKE -125%,80%,50%,13%,62%,1%,50%,249%,255%,42%,250%,255%,119%,62%,255%
180 POKE -111%,237%,71%,201%,245%,58%,36%,254%,61%,250%,31%,3%,219%,56%
190 POKE -98%,254%,150%,194%,31%,3%,197%,213%,229%,237%,91%,28%,254%,42%,250%,255%
200 POKE -83%,34%,28%,254%,237%,83%,250%,255%,237%,91%,30%,254%,42%,252%,255%
210 POKE -69%,34%,30%,254%,237%,83%,252%,255%,35%,34%,32%,254%,237%,91%,39%,254%
220 POKE -54%,42%,254%,255%,34%,39%,254%,237%,83%,254%,255%,58%,249%,255%
230 POKE -41%,254%,2%,32%,10%,62%,1%,50%,249%,255%,33%,128%,255%,24%,8%
240 POKE -27%,62%,2%,50%,249%,255%,33%,131%,255%,1%,3%,0%,205%,11%,0%
250 POKE -13%,225%,209%,193%,195%,31%,3%
260 REM * MINNES-GR[NS *
270 A1=PEEK(65052)+PEEK(65053)*256
280 A2=PEEK(65063)+PEEK(65064)*256
290 A%=(A1+A2)/2
300 ; CHR$(12);TAB(9);"V[XLA PROGRAM I MINNET"
310 ; TAB(8);CHR$(151);"######################"
320 ; : ; "Maskinkods-rutinen v{xlar mellan tv}"
330 ; "basic-program i minnet genom att man"
340 ; "trycker p} CTRL-V och RETURN."
350 ; : ; "Minnesdelning:"
360 ; : ; "Adress 49152 (med 32K minne) (J) ";
370 GET R$ : ; R$ : IF R$="J" OR R$="j" A%=49152% : GOTO 420
380 ; "Halva minnet (adress";65536+A%;")  (J) ";
390 GET R$ : ; R$ : IF R$="J" OR R$="j" THEN 420
400 ONERRORGOTO 400
410 ; "Vilken adress d} "; : INPUT A%
420 ; : ; STRING$(39,45)
430 ; : ; "Minnet {r nu uppdelat i tv} delar."
440 ; "Du {r inne i PART 1 (P1)."
450 ; : ; "P1"
460 REM * ALTERNATIV BOFA/EOFA *
470 POKE 65530%,A%,SWAP%(A%)
480 POKE 65532%,A%,SWAP%(A%)
490 REM * ALTERNATIVT TAK *
500 POKE 65534%,PEEK(65063%),PEEK(65064%)
510 REM * NYTT TAK *
520 POKE 65063%,A%-1%,SWAP%(A%-1%)
530 REM * INTERRUPT-ADRESS *
540 POKE 65332%,65428%,SWAP%(65428%)
550 REM * INITIERING *
560 Z%=CALL(65414%)
570 CHAIN ""