|
DataMuseum.dkPresents historical artifacts from the history of: Ohio Scientific Inc. |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Ohio Scientific Inc. Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2032 (0x7f0)
Notes: OS65UFile, OSU65U-BASIC
Names: »KDUMP«
└─⟦2f57871a3⟧ Bits:30009355 Ohio Scientific OS-OMS Nucleus, delvist oversat til dansk
└─⟦this⟧ »KDUMP«
00002 REM KEY FILE DUMP UTILITY (OSI 1978) 00010 PRINT" ***KEY FILE DUMP UTILITY***" 00020 PRINT 00030 INPUT"KEY FILE NAME (COMPLETE OS-65U FILE NAME) ";A$ 00040 IF LEN(A$)<>6 GOTO 30 00050 PRINT:INPUT"KEY FILE PASSWORD";PW$ 00060 IF PW$="." THEN PW$="ANAN" 00070 IF LEN(PW$)<>4 THEN GOTO 50 00080 DV(2)=PEEK(9832):IF DV(2)>127 THEN DV(2)=DV(2)-128+4 00090 DV$(2)=CHR$(DV(2)+65) 00100 PRINT:INPUT"DEVICE KEY FILE STORED ON";DV$(1) 00110 IF DV$(1)<>"A" AND DV$(1)<>"B" AND DV$(1)<>"E" THEN GOTO 100 00160 DEV DV$(1) 00166 PRINT 00170 INPUT"CONSOLE(C) OR PRINTER(P) ";V$ 00180 IF LEFT$(V$,1)="P" THEN VD=5:GOTO 190 00185 IF LEFT$(V$,1)="C" THEN VD=PEEK(11665):GOTO 190 00188 IF LEFT$(V$,1)<>"P" AND LEFT$(V$,1)<>"C" THEN GOTO 170 00190 REM 00250 OPEN A$,PW$,2 00260 INDEX<2>=42:INPUT %2,LN$ 00270 INDEX<2>=43+LEN(LN$) 00275 FORZ=1 TO 40:PRINT #VD:NEXT Z 00278 S$="-" 00280 PRINT #VD 00290 PRINT #VD," ***KEY FILE DUMP OF ";A$;:PRINT #VD," ***" 00300 PRINT #VD 00310 PRINT #VD," *KEY FILE LABEL IS ";LN$;:PRINT #VD,"*" 00320 FORZ=1 TO LEN(LN$):PRINT #VD,TAB(31);S$;:NEXT Z 00330 PRINT #VD 00370 PRINT #VD," KEY INDEX" 00375 PRINT #VD," *** *****" 00380 PRINT #VD 00385 FLAG1:FLAG5 00395 INPUT%2,L$:INPUT%2,I 00398 IF INDEX(2)>1E8 THEN GOTO 500 00400 PRINT #VD,TAB(10);L$;TAB(32);I 00410 GOTO 395 00500 FLAG2:FLAG6:CLOSE2 00510 DEV DV$(2):CLOSE 00520 END
0x000…005 OsuBasicHead {skip=0x0000, length=0x0446, f03=0x00}
0x005…02c OsuBasicLine {ptr=OsuBasicPtr{ 0x6028 → 0x002c }, lineno=0x0002, tokens=8e204b45592046494c452044554d50205554494c49545920284f534920313937382900}
0x02c…05a OsuBasicLine {ptr=OsuBasicPtr{ 0x6056 → 0x005a }, lineno=0x000a, tokens=972220202020202020202020202a2a2a4b45592046494c452044554d50205554494c4954592a2a2a2200}
0x05a…060 OsuBasicLine {ptr=OsuBasicPtr{ 0x605c → 0x0060 }, lineno=0x0014, tokens=9700}
0x060…095 OsuBasicLine {ptr=OsuBasicPtr{ 0x6091 → 0x0095 }, lineno=0x001e, tokens=84224b45592046494c45204e414d452028434f4d504c455445204f532d3635552046494c45204e414d452920223b412400}
0x095…0a9 OsuBasicLine {ptr=OsuBasicPtr{ 0x60a5 → 0x00a9 }, lineno=0x0028, tokens=8a20c228412429b2b036208820333000}
0x0a9…0c8 OsuBasicLine {ptr=OsuBasicPtr{ 0x60c4 → 0x00c8 }, lineno=0x0032, tokens=973a84224b45592046494c452050415353574f5244223b50572400}
0x0c8…0e3 OsuBasicLine {ptr=OsuBasicPtr{ 0x60df → 0x00e3 }, lineno=0x003c, tokens=8a20505724b1222e2220a620505724b122414e414e2200}
0x0e3…0fa OsuBasicLine {ptr=OsuBasicPtr{ 0x60f6 → 0x00fa }, lineno=0x0046, tokens=8a20c22850572429b2b03420a6208820353000}
0x0fa…12c OsuBasicLine {ptr=OsuBasicPtr{ 0x6128 → 0x012c }, lineno=0x0050, tokens=4456283229b1c12839383332293a8a204456283229b031323720a6204456283229b14456283229aa313238a93400}
0x12c…143 OsuBasicLine {ptr=OsuBasicPtr{ 0x613f → 0x0143 }, lineno=0x005a, tokens=445624283229b1c6284456283229a936352900}
0x143…16d OsuBasicLine {ptr=OsuBasicPtr{ 0x6169 → 0x016d }, lineno=0x0064, tokens=973a8422444556494345204b45592046494c452053544f524544204f4e223b44562428312900}
0x16d…1a3 OsuBasicLine {ptr=OsuBasicPtr{ 0x619f → 0x01a3 }, lineno=0x006e, tokens=8a20445624283129b2b022412220ae20445624283129b2b022422220ae20445624283129b2b022452220a620882031303000}
0x1a3…1b0 OsuBasicLine {ptr=OsuBasicPtr{ 0x61ac → 0x01b0 }, lineno=0x00a0, tokens=9f2044562428312900}
0x1b0…1b6 OsuBasicLine {ptr=OsuBasicPtr{ 0x61b2 → 0x01b6 }, lineno=0x00a6, tokens=9700}
0x1b6…1da OsuBasicLine {ptr=OsuBasicPtr{ 0x61d6 → 0x01da }, lineno=0x00aa, tokens=8422434f4e534f4c45284329204f52205052494e54455228502920223b562400}
0x1da…1fa OsuBasicLine {ptr=OsuBasicPtr{ 0x61f6 → 0x01fa }, lineno=0x00b4, tokens=8a20c82856242c3129b122502220a6205644b1353a88202031393000}
0x1fa…220 OsuBasicLine {ptr=OsuBasicPtr{ 0x621c → 0x0220 }, lineno=0x00b9, tokens=8a20c82856242c3129b122432220a6205644b1c1283131363635293a882031393000}
0x220…24a OsuBasicLine {ptr=OsuBasicPtr{ 0x6246 → 0x024a }, lineno=0x00bc, tokens=8a20c82856242c3129b2b022502220ae20c82856242c3129b2b022432220a620882031373000}
0x24a…250 OsuBasicLine {ptr=OsuBasicPtr{ 0x624c → 0x0250 }, lineno=0x00be, tokens=8e00}
0x250…25f OsuBasicLine {ptr=OsuBasicPtr{ 0x625b → 0x025f }, lineno=0x00fa, tokens=9c2041242c5057242c3200}
0x25f…273 OsuBasicLine {ptr=OsuBasicPtr{ 0x626f → 0x0273 }, lineno=0x0104, tokens=9b32b0b134323a842025322c4c4e2400}
0x273…285 OsuBasicLine {ptr=OsuBasicPtr{ 0x6281 → 0x0285 }, lineno=0x010e, tokens=9b32b0b13433a9c2284c4e242900}
0x285…29d OsuBasicLine {ptr=OsuBasicPtr{ 0x6299 → 0x029d }, lineno=0x0113, tokens=815ab13120a32034303a97202356443a82205a00}
0x29d…2a8 OsuBasicLine {ptr=OsuBasicPtr{ 0x62a4 → 0x02a8 }, lineno=0x0116, tokens=5324b1222d2200}
0x2a8…2b2 OsuBasicLine {ptr=OsuBasicPtr{ 0x62ae → 0x02b2 }, lineno=0x0118, tokens=972023564400}
0x2b2…2ed OsuBasicLine {ptr=OsuBasicPtr{ 0x62e9 → 0x02ed }, lineno=0x0122, tokens=97202356442c222020202020202020202a2a2a4b45592046494c452044554d50204f4620223b41243b3a97202356442c22202a2a2a2200}
0x2ed…2f7 OsuBasicLine {ptr=OsuBasicPtr{ 0x62f3 → 0x02f7 }, lineno=0x012c, tokens=972023564400}
0x2f7…332 OsuBasicLine {ptr=OsuBasicPtr{ 0x632e → 0x0332 }, lineno=0x0136, tokens=97202356442c222020202020202020202020202a4b45592046494c45204c4142454c20495320223b4c4e243b3a97202356442c222a2200}
0x332…357 OsuBasicLine {ptr=OsuBasicPtr{ 0x6353 → 0x0357 }, lineno=0x0140, tokens=815ab13120a320c2284c4e24293a97202356442ca23331293b53243b3a82205a00}
0x357…361 OsuBasicLine {ptr=OsuBasicPtr{ 0x635d → 0x0361 }, lineno=0x014a, tokens=972023564400}
0x361…394 OsuBasicLine {ptr=OsuBasicPtr{ 0x6390 → 0x0394 }, lineno=0x0172, tokens=97202356442c22202020202020202020204b45592020202020202020202020202020202020202020494e4445582200}
0x394…3c7 OsuBasicLine {ptr=OsuBasicPtr{ 0x63c3 → 0x03c7 }, lineno=0x0177, tokens=97202356442c22202020202020202020202a2a2a20202020202020202020202020202020202020202a2a2a2a2a2200}
0x3c7…3d1 OsuBasicLine {ptr=OsuBasicPtr{ 0x63cd → 0x03d1 }, lineno=0x017c, tokens=972023564400}
0x3d1…3db OsuBasicLine {ptr=OsuBasicPtr{ 0x63d7 → 0x03db }, lineno=0x0181, tokens=a0313aa03500}
0x3db…3ec OsuBasicLine {ptr=OsuBasicPtr{ 0x63e8 → 0x03ec }, lineno=0x018b, tokens=8425322c4c243a8425322c4900}
0x3ec…403 OsuBasicLine {ptr=OsuBasicPtr{ 0x63ff → 0x0403 }, lineno=0x018e, tokens=8a20c7283229b031453820a620882035303000}
0x403…41c OsuBasicLine {ptr=OsuBasicPtr{ 0x6418 → 0x041c }, lineno=0x0190, tokens=97202356442ca23130293b4c243ba23332293b4900}
0x41c…426 OsuBasicLine {ptr=OsuBasicPtr{ 0x6422 → 0x0426 }, lineno=0x019a, tokens=882033393500}
0x426…433 OsuBasicLine {ptr=OsuBasicPtr{ 0x642f → 0x0433 }, lineno=0x01f4, tokens=a0323aa0363a9d3200}
0x433…442 OsuBasicLine {ptr=OsuBasicPtr{ 0x643e → 0x0442 }, lineno=0x01fe, tokens=9f204456242832293a9d00}
0x442…448 OsuBasicLine {ptr=OsuBasicPtr{ 0x6444 → 0x0448 }, lineno=0x0208, tokens=8000}
0x448…44a 0x0000
0x44a…7f0 [Padding]