Hi
its not that bad at all!, some small parts have big results like printing the program names on screen in 128k mode, but only there
and thats a big failure, but once past that, he, this works, and even very good, since the bloke from the big fan side was surprised such a small machine as the 48 can do this, and it can , if you wait it out. Modula2 FIRST has to collect every thing and some module load there OWN EXTRA modula inbetween OR load them selves BACK after that other one came inbetween, so
Love that tape erea very much indeed...most off the times, this is the LOAD SCHEME at maximum
i guess some wont be loaded double, while other are.
i am glad i fixed it all on my MGT disc by now. i had to repaur the "VILLAGES" file, its in the demo section as TXT file luckely !!!
but with tape this is all WITH OUT ANY THING OR WARNING ON SCREEN
and you WILL have to rewind your tape probably 9 to 11 times in this case, and better FULLY let it pass since you dont know what block is suposed to be loaded.
"ezeltje prik" but then on tape., dont forget to switch tapes, without warning you have to !!!!!
or have a double direction tape that automaticly switches direction, then it will be 30 minutes PER PASS
on emulator ? yes, but there are some misterious failures, although i found two sources for those already
Code: Select all
IMPORT has different following order then in module it self
LOAD MODULE CLOCK;
FROM SYSTEM IMPORT WORD,NEWPROCESS,TRANSFER,IOTRANSFER,ADDRESS,ADR;
FROM HARDWARE IMPORT LOCK,UNLOCK,IM1,KEYSCAN;
FROM R3MATH IMPORT SIN,COS;
FROM SYMBOL IMPORT SYMBOL1;
FROM GRAPH2 IMPORT CIRCLE;
FROM GRAPH0 IMPORT SCRDOT;
FROM GRAPH1 IMPORT PLOT,HLINE,LINETO;
FROM SYSTEM IMPORT WORD;
FROM GRAPH0 IMPORT SCRNAD,SCRDOT;
GRAPH1 IMPORT
GRAPH2 IMPORT
FROM GRAPH1 IMPORT LINETO,PLOT,SETMODE;
FROM SYSTEM IMPORT WORD;
FROM GRAPH0 IMPORT SCRNAD,SCRDOT;
GRAPH1 IMPORT
FROM NUMIO IMPORT WRCARD,WRCARD0,STRTOCARD,SUBSTRTOCARD;
FROM STDIO IMPORT RDITEM,WRSTRLEN;
FROM SYSTEM IMPORT ADDRESS;
FROM STDIO IMPORT GETKEY,CLS,GOTOXY,GETXY,RDSTR,WRCHAR,WRSTR,WAITKEY;
FROM SYSTEM IMPORT ADDRESS;
FROM MAINREAD IMPORT BLANK;
FROM STDIO IMPORT RDSTR,RDCHAR,CURSOR,UNCURS,WRCHAR,GOTOXY,GETXY,MOVEX,WAITKEY,WRSUBSTR,WRSPS,BUFFRDCHAR,PRINTABLE;
FROM SYSTEM IMPORT ADDRESS;
FROM STRINGS IMPORT APPEND,INSERT,DELETE,LENGTH;
FROM SYSTEM IMPORT ADDRESS;
MAINREAD IMPORT
FROM FASTO IMPORT WRITEAT;
FROM SYSTEM IMPORT ADDRESS;
FROM STDIO IMPORT WRSTR,WRCHAR,WRLN,GOTOXY,UNCURS,CURSOR,MOVEX,GETXY,CLS;
FROM SYSTEM IMPORT ADDRESS;
IMPORT GRAPH0;
FASTO IMPORT
MODULE CLOCK; back home
"Press required key"
SAVE "CLOCK" CODE 25000,65535-25000
RANDOMIZE USR 48500
M2 build up ON SCREEN a large refrence library, there for M2 avoids printing any thing on screen
pitty this fails on standard 128k
first my simplistic POKE solution for not having that LOAD name on screen
BUT
i have no clue how to get that inside Modula2 so this is only a TEST to prove in 128k its possible too
if you stop BEFORE the POKE RESTORE is 100% sure will crash ... mind that GAB
and think 16bit , I copy one adres from the insidechannels into the other, thats all
so it will be PRINTED ON THE PRINTER NOW:
Code: Select all
10 LET a=PEEK 23739: POKE 23739,PEEK 23749
20 LET b=PEEK 23740: POKE 23740,PEEK 23750
30 REM
40 PRINT "TEST not PRINT ";CHR$ PEEK 23743
50 FOR f=0 TO 255: POKE 16384+f,f: NEXT f
60 SAVE "a"CODE 16384,256
70 REM
80 FOR f=0 TO 7: LOAD "a"CODE 16384+f*256 : NEXT f
90 REM
100 POKE 23739,a: POKE 23740,b
110 PRINT AT 15,0;"hallo"'"it DOES ask 'save?' on screen !"
there is one faster way
if you use the RAMdrive and first PRELOAD all single modula from that LONG LIST from above then it will NOT print names on screen AND it will be very fast. mind OPTION 13 for that, or 64+13 = 77 for autosave after ward !!
for that you realy need to read that manual five times
it gives all info but stacked!
the best info come as last and then you have to read it again to check what they mean with " but you better do option ..."
so IT WORKS, thats very nice!
