|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5760 (0x1680)
Types: COMAL_SAVE
Notes: HELLE , LIB::HELLE
Names: »HELLE«
└─⟦43f2224a3⟧ Bits:30007878 (Demostrations diskette af 1981 Frederikshavn Gymnasium Område : LIB Nøgle : 1)
└─⟦this⟧
SAVE filename: "FORSTYK" 0010 PRINT TAB ( 40 ) ; "++++++++++" 0020 PRINT TAB ( 37 ) ; "-----" 0030 PRINT TAB ( 20 ) ; "----- ++* ----" 0040 PRINT TAB ( 17 ) ; "+++++++++++ ++* ::'''" 0050 PRINT TAB ( 15 ) ; "-++/// -----+ +#* -$'" 0060 PRINT TAB ( 14 ) ; "+LL/##LLLL+++++++LL +#* -' --" 0070 PRINT TAB ( 14 ) ; "+L/##LL L### / -++LL" 0080 PRINT TAB ( 14 ) ; "+L/#LL ++++----+ **# / -+L" 0090 PRINT TAB ( 15 ) ; "+++L /+ ----*$ + *# / +' ++" 0100 PRINT TAB ( 16 ) ; "++ /+ --**#### + *# + / LLXX" 0110 PRINT TAB ( 16 ) ; "++ / --**######+ # + / ++*##X" 0120 PRINT TAB ( 16 ) ; "+++ /++--*##### + + / ++###XXX" 0130 PRINT TAB ( 17 ) ; "++ ///++###++ +####XXX" 0140 PRINT TAB ( 18 ) ; "+++----////// ####*XX" 0150 PRINT TAB ( 15 ) ; "#####+ ++++++!!!!!- ##*XX" 0160 PRINT TAB ( 12 ) ; "+## /+++++++++========= ##XXX" 0170 PRINT TAB ( 10 ) ; "++ :// #####+++ ##XX*X" 0180 PRINT TAB ( 8 ) ; "++ //' ### ###XXX-" 0190 PRINT TAB ( 8 ) ; "++ // ######XXX-" 0200 PRINT TAB ( 7 ) ; "++ # // /++- /#################X!!!'" 0210 PRINT TAB ( 7 ) ; "+ # // // -' !!!'" 0220 PRINT TAB ( 7 ) ; "++# ///" 0230 PRINT TAB ( 7 ) ; "++# // LLLLLLLLLLL --I" 0240 PRINT TAB ( 3 ) ; "+++++*# // ---!!!!!!!!!!!!!!!!!!!!!! -+++" 0250 PRINT "-++/ I+*### --////#######++++- ---+++++' +" 0260 PRINT "/ @ # ## ++ I#####++++++ '''' ++" 0270 PRINT " @ # # # ########+++ ++" 0280 PRINT " @ # # ## ##+++####" 0290 PRINT " @I # # #+ ###++#####" 0300 PRINT " @ # # #G ###++ #####+" 0310 PRINT " @ # #G+ ##++ ####++++" 0320 PRINT " @ # #++++++ ++++" 0330 PRINT " @ #++ ###++ +++++" 0340 PRINT " @ ##* ##++ ###+++++ ++++++" 0350 PRINT " @ ##* ##++ #######++++ ''##############" 0360 PRINT " @ ##* ##+####### -****==== XXXX" 0370 PRINT " @+ ##****## --' X'####* 7 X+" 0380 PRINT " ++ ####--=.**** / (#####/" 0390 PRINT " ++- I########) /* ###+/" 0400 PRINT TAB ( 18 ) ; "I(U####* ! '''''" 0410 PRINT TAB ( 19 ) ; "L*###*+" 0420 PRINT TAB ( 19 ) ; "+'''''+" 0430 PRINT TAB ( 19 ) ; "+ +" 0440 PRINT TAB ( 19 ) ; "+ +" 0450 PRINT TAB ( 20 ) ; "+ A" 0460 PRINT TAB ( 21 ) ; "+ V# ****/" 0470 PRINT TAB ( 22 ) ; "+ V####''" 0480 PRINT TAB ( 23 ) ; "++ .#######7" 0490 PRINT TAB ( 24 ) ; "+++ .###&'''.+++//" 0500 PRINT TAB ( 25 ) ; "'+ A##**-I--#--/" 0510 PRINT TAB ( 27 ) ; "++####.I//+/" 0520 PRINT TAB ( 29 ) ; "++# //" 0530 PRINT TAB ( 31 ) ; "+####/ ++" 0540 PRINT TAB ( 32 ) ; "+ ++#" 0550 PRINT TAB ( 33 ) ; "+ .++##" 0560 PRINT TAB ( 34 ) ; "++++++++++' ##" 0570 PRINT TAB ( 36 ) ; "'''' ##" 0580 PRINT TAB ( 48 ) ; "##" 0590 PRINT TAB ( 47 ) ; "(##" 0600 PRINT TAB ( 44 ) ; "###+##" 0610 PRINT TAB ( 41 ) ; "##++ +#" 0620 PRINT TAB ( 38 ) ; "##++ ++" 0630 PRINT TAB ( 36 ) ; "##+ ++" 0640 PRINT TAB ( 33 ) ; "##++ ++ /" 0650 PRINT TAB ( 31 ) ; "## ++ ///" 0660 PRINT TAB ( 29 ) ; "##* ++ ///33" 0670 PRINT TAB ( 28 ) ; "##* ++ /33333" 0680 PRINT TAB ( 26 ) ; "##*** ++ /3333333" 0690 PRINT TAB ( 24 ) ; "###****+ /3333733:" 0700 PRINT TAB ( 22 ) ; "#######* 7733377/33:" 0710 PRINT TAB ( 20 ) ; "######## 733377./33 :" 0720 PRINT TAB ( 18 ) ; "####### 773377--/33***" 0730 PRINT TAB ( 15 ) ; "######## 7733377---/33***#" 0740 PRINT TAB ( 13 ) ; "####### 773377 --//33***##" 0750 PRINT TAB ( 10 ) ; "######## 7733377 ++--//3****##" 0760 PRINT TAB ( 7 ) ; "#** * 7773777/ ++---//77**##" 0770 PRINT " #* ***777777777773337// +++---//37/**##" 0780 PRINT " #* #773333 +++----///37/*## =" 0790 PRINT " / 37333/ ++++-----///337/## ######" 0800 PRINT " / ##7733//------++++----////33337*## #BBBBBBB" 0810 PRINT "/* ##77733//////////////333333/*##" 0820 PRINT "# #///773333333333333333*//*##" 0830 PRINT " ###///73333333333333/####" 0840 PRINT "# ###////7777777######" 0850 PRINT "#++ ###############" 0860 PRINT "**++ +++" 0870 PRINT " #*++ #+" 0880 PRINT " #++ #+" 0890 PRINT " ##+ #+" 0900 PRINT " ##++ #+ *" 0910 PRINT " ###+++ #+ *********" 0920 PRINT " ###++++#+" 0930 PRINT " #####+#+ +++" 0940 PRINT " ####### ++++" 0950 PRINT " ###### +++#" 0960 PRINT " ###### ++++++++" 0970 PRINT " ##### ++++++ ++#" 0980 PRINT " ####" 0990 PRINT " ###" 1000 PRINT " ### ++++" 1010 PRINT " ##* +++" 1020 PRINT " #+" 1030 PRINT " #" 1040 PRINT " #" 1050 PRINT " #" 1060 PRINT " XXXX XXXXX" 1070 PRINT " XXXXXXX XXXX XXX" 1080 PRINT " XXXXXXXXXXXXXXXXXXXXXXX XXX" 1090 PRINT " XX XXX XXX" 1100 PRINT " X XXX XXX" 1110 PRINT " XXX XXX" 1120 PRINT " XXX XXX" 1130 PRINT " XXX XXXX" 1140 PRINT " XXXXXXXXXXXXXXXX XXX X" 1150 PRINT " XXXX XXXXXXX XXX XX" 1160 PRINT " XXX XXX XX XXX XXXXXXXXX XXX" 1170 PRINT " XXX XXX XXXX XXX XXX XXX" 1180 PRINT " XXXX XXX XXX XXX XXX XXX" 1190 PRINT "XXXX XXX XXX XXX XXX XXX" 1200 PRINT "XXXX XXX XXX XXX XXX XXX" 1210 PRINT " XXX XX XXX XXX XX XXXX" 1220 PRINT " XXX XX XXXX XXXXXXXXXX XXXXXXXX" 1230 PRINT " XXX XXX XXXXXX" 1240 PRINT " XXXXXXXX XXXXXXXXXXXXXXXXXXXX"
FNA definition = 0xffff
FNB definition = 0xffff
FNC definition = 0xffff
FND definition = 0xffff
FNE definition = 0xffff
FNF definition = 0xffff
FNG definition = 0xffff
FNH definition = 0xffff
FNI definition = 0xffff
FNJ definition = 0xffff
FNK definition = 0xffff
FNL definition = 0xffff
FNM definition = 0xffff
FNN definition = 0xffff
FNO definition = 0xffff
FNP definition = 0xffff
FNQ definition = 0xffff
FNR definition = 0xffff
FNS definition = 0xffff
FNT definition = 0xffff
FNU definition = 0xffff
FNV definition = 0xffff
FNW definition = 0xffff
FNX definition = 0xffff
FNY definition = 0xffff
FNZ definition = 0xffff
FN[ definition = 0xffff
FN\ definition = 0xffff
FN] definition = 0xffff
GOSUB-RETURN stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
FOR-NEXT stack pointer = 0x0000
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
REPEAT-UNTIL stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
WHILE-ENDWHILE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
IF-ELSE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
Variables:
0x80 0xffff 0x00
.magic = 0x5356 .u_pas = 0x0ac4 // Length of UPAS in words .u_das = 0x006d // Length of UDAS in words .u_dvs = 0x006d // Start på savede variabel indhold (word adr) .u_nds = 0x0523 // Address på næste prog.sætning (word adr) .u_cps = 0x0000 // Address på curr prog.sætning (word adr) .u_tll = 0x0048 // Page størrelse .u_tts = 0x000e // TAP størrelse .u_ran = 0x0000 // Random tal .u_cdl = 0x0042 // Current DATA sætning ptr .u_cdb = 0x0000 // Current DATA byte ptr .u_esa = 0xffff // ON ESE (word adr) .u_era = 0xffff // ON ERR (word adr) .u_cas = 0x0000 // CASE dybde .u_las = 0xffff // last (-1)