|
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: 6010 (0x177a)
Types: COMAL_SAVE
Notes: HELLO , LIB::HELLO
Names: »HELLO«
└─⟦43f2224a3⟧ Bits:30007878 (Demostrations diskette af 1981 Frederikshavn Gymnasium Område : LIB Nøgle : 1)
└─⟦this⟧
SAVE filename: "HEL" 0010 PRINT "++" 0020 PRINT " --- *----.." 0030 PRINT "- +++ ++---.." 0040 PRINT " +###+I ''I." 0050 PRINT " +####. II" 0060 PRINT "---- #*###### II" 0070 PRINT " ##***++## I" 0080 PRINT " ##*****## I" 0090 PRINT "++++** ##*******#" 0100 PRINT "XXXXXX# ####OOOO+*****" 0110 PRINT "XXXXX########OOO+***##I'" 0120 PRINT "XX ##########OEEEEE*##+!!." 0130 PRINT "XX-I/////EEEXEEEEEE*##+ I" 0140 PRINT "XX.I////EEEEXEEEEEEX##+" 0150 PRINT "X. +//EEEEXXEEEE####++" 0160 PRINT "X. +/EEEEXXEEEEEEEE#####*+" 0170 PRINT ". +/EEXXXEEEEEEEEEEEEEXXX##" 0180 PRINT " IIXXXXEEEEEEEE/ EEEEEEXXX###" 0190 PRINT " I/////EEEEEEEE/ EEEEEEEEXX###" 0200 PRINT " II//////EEEEU### DDDDEEEEDXXX##" 0210 PRINT "III////////UU### ***DEXXDDXXX#" 0220 PRINT "I ######### ******XXDDDXXX#" 0230 PRINT TAB ( 18 ) ; "*******DXXXDDXXX#" 0240 PRINT TAB ( 17 ) ; "*********DDXXDDXX#" 0250 PRINT TAB ( 16 ) ; "***********DDXDDXX#" 0260 PRINT TAB ( 14 ) ; "*****DDDD****DCXXXX#" 0270 PRINT TAB ( 12 ) ; "*******DDDD****XCCXXX#" 0280 PRINT "+++++##++++++CCCCDDDDDDXXXXXCCXX##" 0290 PRINT " ##7777 CI777777CCCCCXXXCCX##" 0300 PRINT " ##88877 I777CCXXXXC#" 0310 PRINT " #X#***7777777 I77XXXXXC###" 0320 PRINT " #XXXX**WW777777 I777XXXXXX#" 0330 PRINT " #XX /7777 I77XXXX#" 0340 PRINT "##X### /7777 I777X## :" 0350 PRINT "XXXXXX## /777 I777# :'" 0360 PRINT "XXXXX /777 I77# .+''" 0370 PRINT "++XXX /77 I776B++++'" 0380 PRINT " I++++++++#### /777 77# ." 0390 PRINT " #H JXX### /777 7####'---++'" 0400 PRINT " #LJXXXX## /77777####" 0410 PRINT " #LJXXXXX# /777#####" 0420 PRINT " #LJXXXXO# /77######" 0430 PRINT " .J#LJXXXX## 777##* I#" 0440 PRINT " -===**#XJXXX## 77#####II@" 0450 PRINT " ##**XXXXXX### 7777####*/I@" 0460 PRINT " #####/ J7777######I IH#" 0470 PRINT " #777777777########I II++++" 0480 PRINT " /###** ########I II++ +++++++.." 0490 PRINT " /#####* ####IE## I II++++. +." 0500 PRINT " +/#####* ###::IEE# II +. ++++. '." 0510 PRINT " +/######* ###::IIEE# III ''.. +++." 0520 PRINT "++/#######* ##::::IEE##I III '. ++." 0530 PRINT "+######*** ##:::::IEE# #I I I ++" 0540 PRINT "#######** ##::::IIEEE# *II II I :" 0550 PRINT "#####*** ##::::IEEEE# ** I II / :" 0560 PRINT "#####* #-/::::IIEE## *** II ' ':" 0570 PRINT "###** //::::IIEE:# ** ** I .:" 0580 PRINT "##** //::::IIEE:## ** * II :" 0590 PRINT "#* //::::IIEE:# * * I :" 0600 PRINT " ///::IIEE## ###** ** I" 0610 PRINT " //::::IEE# #####*.!.....* II" 0620 PRINT " ////::EEE## ################ II" 0630 PRINT " ////::::EEE# ####LLLLLLLLLLLLL## II" 0640 PRINT "///33::::E++XXXXXLLLLLLLLLLLLLLL##" 0650 PRINT "//33::::EXXX/.LLLLLLLLLLLLLLLLLLL##" 0660 PRINT "333::::E+/LLLLLLLLLLLLLLLLLLL%%%LL##" 0670 PRINT "3::::EE+XX!LL LLLLLL%%%%LL##" 0680 PRINT ":::EE++X/ LLLL%%%LLL##" 0690 PRINT "::EE++/! LLL%%%%LLL#" 0700 PRINT ":EEE+' .LL%%%%LL##" 0710 PRINT "EE++ LL%%%%L##" 0720 PRINT "*# =#############%%%L##" 0730 PRINT "# =#**** '####L#" 0740 PRINT " -#*' XXXXXXX" 0750 PRINT " -#*' #" 0760 PRINT " =###***** XXX XX" 0770 PRINT " =###************ XXX-==..XXX" 0780 PRINT "###!##***HHHHHHHHH. XX+--..III**X" 0790 PRINT "HHHHHHHHH'' ' XX+--..III0XXXXX" 0800 PRINT "'' X+--...IOO XXX" 0810 PRINT " X+--...IOO XXXXX" 0820 PRINT " X+-- IIO XXX- XXX" 0830 PRINT " X-- IOO XXO- XXX" 0840 PRINT " / XX-- IIOO XXO- XXXX" 0850 PRINT " // X-- IOO XO- ++ X**" 0860 PRINT " // ++-- IOO XXO- ++ X**" 0870 PRINT " // #+--IOO XXO- +++ + #" 0880 PRINT " // #--IO XO- ++ +I" 0890 PRINT " ++++ // ##-IO XO + ++II" 0900 PRINT "*** ++ // # +OO XO- ++ +II" 0910 PRINT "****** ++ // #IO XO- + ++II" 0920 PRINT " ****** +++ // #IO * XXOO++ ++II" 0930 PRINT " ***** + // #+O X XO- + ++I" 0940 PRINT " ****## + // #+ XXXO- + ++I" 0950 PRINT " ****## +/# ## XXO- ++ ++I" 0960 PRINT "######### ***### /#O# #X- ++ ++I" 0970 PRINT "############################### + ++I" 0980 PRINT "#######++++++++++++++++######## + ++I" 0990 PRINT "+++++ ##### # ++I" 1000 PRINT "+ ++++++++++++ ### # +I" 1010 PRINT " ++++ ### # ++I" 1020 PRINT " +++### # ++I" 1030 PRINT " **** ### #++I" 1040 PRINT " ********** ## #+I" 1050 PRINT " IIIII******## #I" 1060 PRINT "" 1070 PRINT " XXXXXXXX" 1080 PRINT " XXXX XXXX XXXXXXXX" 1090 PRINT " XXX XXX XXXXXXX" 1100 PRINT " XXX XXX XXXXXX" 1110 PRINT " XXX XXX XXXXXX" 1120 PRINT " XXX XXX XXXXXX" 1130 PRINT "XXX XXX XXXXX" 1140 PRINT "XX XXX XXXXX" 1150 PRINT "X XXX XXXX" 1160 PRINT " XXX XXXXXXX X XXXX" 1170 PRINT " XXX XXX X XXX X XXX" 1180 PRINT " XXX XXX XXXXXXXX XXX" 1190 PRINT " XXX XXX XX XX" 1200 PRINT " XXX XXX XXX XX" 1210 PRINT " XXXX XXX XXX X" 1220 PRINT "X XXXXXXXX XXXXXXX X" 1230 PRINT "" 1240 PRINT " XXXX" 1250 PRINT " XXXXXXX" 1260 PRINT " XXXXXXX" 1270 PRINT " XXXX" 1280 PRINT "<10><14> CORYYRIGHT : KARSTEN OG CHRISTEN 1.Æ"
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 0x0000 0x00
.magic = 0x5356 .u_pas = 0x0b41 // 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 = 0x0000 // 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)