DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦7ad1dcd79⟧ TextFile

    Length: 6418 (0x1912)
    Types: TextFile
    Notes: FOR     , LIB::FOR
    Names: »FOR«

Derivation

└─⟦43f2224a3⟧ Bits:30007878 (Demostrations diskette af 1981 Frederikshavn Gymnasium Område : LIB Nøgle : 1)
    └─⟦this⟧ »LIB::FOR« 

TextFile

«ff»
  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"