|
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: 17408 (0x4400)
Names: »B23«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/B23«
0x0000…0020 20 30 30 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 0010 REM **********************┆
0x0020…0040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0040…0060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 08 08 08 08 08 0d 0a 20 30 30 32 30 20 52 ┆*************** 0020 R┆
0x0060…0080 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EM *****************************┆
0x0080…00a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00a0…00c0 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 08 08 08 08 08 0d 0a 20 30 30 33 30 20 52 45 4d 20 2a 2a 20 20 ┆******** 0030 REM ** ┆
0x00c0…00e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x00e0…0100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ *┆
0x0100…0120 2a 20 20 20 08 08 08 08 08 0d 0a 20 30 30 34 30 20 52 45 4d 20 2a 2a 20 50 52 4f 47 52 41 4d 20 ┆* 0040 REM ** PROGRAM ┆
0x0120…0140 4e 41 4d 45 3a 20 53 43 4f 52 45 55 50 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NAME: SCOREUP. ┆
0x0140…0160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 08 08 08 ┆ ** ┆
0x0160…0180 08 08 0d 0a 20 30 30 35 30 20 52 45 4d 20 2a 2a 20 56 45 52 53 49 4f 4e 3a 20 38 31 2e 31 31 2e ┆ 0050 REM ** VERSION: 81.11.┆
0x0180…01a0 30 31 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆01. ┆
0x01a0…01c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 08 08 08 08 08 0d 0a 20 30 30 ┆ ** 00┆
0x01c0…01e0 36 30 20 52 45 4d 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆60 REM ** ┆
0x01e0…0200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0200…0220 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 08 08 08 08 08 0d 0a 20 30 30 37 30 20 52 45 4d 20 ┆ ** 0070 REM ┆
0x0220…0240 2a 2a 20 54 48 45 20 50 52 4f 47 52 41 4d 20 4c 49 53 54 53 20 4f 4e 20 44 49 53 50 4c 41 59 20 ┆** THE PROGRAM LISTS ON DISPLAY ┆
0x0240…0260 41 4e 44 2f 4f 52 20 50 52 49 4e 54 45 52 20 54 48 45 20 43 4f 4e 54 45 4e 54 53 20 4f 46 20 54 ┆AND/OR PRINTER THE CONTENTS OF T┆
0x0260…0280 48 45 20 2a 2a 0d 0a 20 30 30 38 30 20 52 45 4d 20 2a 2a 20 46 49 4c 45 20 22 53 43 4f 52 45 22 ┆HE ** 0080 REM ** FILE "SCORE"┆
0x0280…02a0 20 28 53 43 4f 52 45 2d 54 41 42 4c 45 20 46 4f 52 20 47 41 4d 45 20 22 58 41 4e 44 4f 22 29 2e ┆ (SCORE-TABLE FOR GAME "XANDO").┆
0x02a0…02c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 20 30 30 39 30 20 52 45 ┆ ** 0090 RE┆
0x02c0…02e0 4d 20 2a 2a 20 54 48 45 20 50 52 4f 47 52 41 4d 20 43 41 4e 20 41 4c 53 4f 20 50 45 52 46 4f 52 ┆M ** THE PROGRAM CAN ALSO PERFOR┆
0x02e0…0300 4d 20 53 45 4c 45 43 54 49 56 45 20 55 50 44 41 54 49 4e 47 20 4f 46 20 54 48 45 20 22 53 43 4f ┆M SELECTIVE UPDATING OF THE "SCO┆
0x0300…0320 52 45 22 20 20 2a 2a 0d 0a 20 30 31 30 30 20 52 45 4d 20 2a 2a 20 46 49 4c 45 2e 20 20 20 20 20 ┆RE" ** 0100 REM ** FILE. ┆
0x0320…0340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0340…0360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 20 30 31 31 30 20 ┆ ** 0110 ┆
0x0360…0380 52 45 4d 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆REM ** ┆
0x0380…03a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03a0…03c0 20 20 20 20 20 20 20 2a 2a 20 20 20 08 08 08 08 08 0d 0a 20 30 31 32 30 20 52 45 4d 20 2a 2a 20 ┆ ** 0120 REM ** ┆
0x03c0…03e0 54 48 49 53 20 50 52 4f 47 52 41 4d 20 57 41 53 20 43 52 45 41 54 45 44 20 42 59 20 42 51 52 47 ┆THIS PROGRAM WAS CREATED BY BQRG┆
0x03e0…0400 45 20 45 2e 20 4c 41 52 53 45 4e 2c 20 52 43 20 43 4f 4d 50 55 54 45 52 2e 20 20 20 20 20 20 20 ┆E E. LARSEN, RC COMPUTER. ┆
0x0400…0420 2a 2a 20 20 20 08 08 08 08 08 0d 0a 20 30 31 33 30 20 52 45 4d 20 2a 2a 20 20 20 20 20 20 20 20 ┆** 0130 REM ** ┆
0x0420…0440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0440…0460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 20 30 31 ┆ ** 01┆
0x0460…0480 34 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆40 REM *************************┆
0x0480…04a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04a0…04c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 20 30 31 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a ┆************ 0150 REM ********┆
0x04c0…04e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04e0…0500 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 ┆***************************** ┆
0x0500…0520 08 08 08 08 08 0d 0a 20 30 31 36 30 20 52 45 4d 20 0d 0a 20 30 31 37 30 20 52 45 4d 20 0d 0a 20 ┆ 0160 REM 0170 REM ┆
0x0520…0540 30 31 38 30 20 4e 55 4c 3d 30 0d 0a 20 30 31 39 30 20 44 49 4d 20 42 55 46 24 28 31 32 38 29 2c ┆0180 NUL=0 0190 DIM BUF$(128),┆
0x0540…0560 42 42 55 46 24 28 31 32 38 29 2c 49 4e 49 54 24 28 35 29 2c 42 49 4e 49 54 24 28 35 29 2c 55 50 ┆BBUF$(128),INIT$(5),BINIT$(5),UP┆
0x0560…0580 44 49 4e 49 54 24 28 35 29 2c 50 41 53 24 28 35 29 2c 42 50 41 53 24 28 35 29 0d 0a 20 30 32 30 ┆DINIT$(5),PAS$(5),BPAS$(5) 020┆
0x0580…05a0 30 20 44 49 4d 20 4e 45 57 50 41 53 24 28 35 29 0d 0a 20 30 32 31 30 20 4f 4e 20 45 53 43 20 53 ┆0 DIM NEWPAS$(5) 0210 ON ESC S┆
0x05a0…05c0 54 4f 50 20 0d 0a 20 30 32 32 30 20 52 45 50 45 41 54 20 0d 0a 20 30 32 33 30 20 20 20 45 58 45 ┆TOP 0220 REPEAT 0230 EXE┆
0x05c0…05e0 43 20 4d 45 4e 55 28 53 29 0d 0a 20 30 32 34 30 20 20 20 49 46 20 53 3d 34 39 20 4f 52 20 53 3d ┆C MENU(S) 0240 IF S=49 OR S=┆
0x05e0…0600 35 30 20 54 48 45 4e 20 45 58 45 43 20 4c 49 53 54 28 53 29 0d 0a 20 30 32 35 30 20 20 20 52 45 ┆50 THEN EXEC LIST(S) 0250 RE┆
0x0600…0620 4d 20 2e 2e 31 2e 2e 2e 2e 2e 2e 2e 32 2e 2e 2e 2e 2e 0d 0a 20 30 32 36 30 20 20 20 49 46 20 53 ┆M ..1.......2..... 0260 IF S┆
0x0620…0640 3d 35 31 20 4f 52 20 53 3d 35 32 20 54 48 45 4e 20 45 58 45 43 20 55 50 44 41 54 28 53 29 0d 0a ┆=51 OR S=52 THEN EXEC UPDAT(S) ┆
0x0640…0660 20 30 32 37 30 20 20 20 52 45 4d 20 2e 2e 33 2e 2e 2e 2e 2e 2e 2e 34 2e 2e 2e 2e 2e 0d 0a 20 30 ┆ 0270 REM ..3.......4..... 0┆
0x0660…0680 32 38 30 20 20 20 49 46 20 53 3d 35 33 20 4f 52 20 53 3d 35 34 20 54 48 45 4e 20 45 58 45 43 20 ┆280 IF S=53 OR S=54 THEN EXEC ┆
0x0680…06a0 53 43 4f 52 4d 4f 44 28 53 29 0d 0a 20 30 32 39 30 20 20 20 52 45 4d 20 2e 2e 35 2e 2e 2e 2e 2e ┆SCORMOD(S) 0290 REM ..5.....┆
0x06a0…06c0 2e 2e 36 2e 2e 2e 2e 0d 0a 20 30 33 30 30 20 55 4e 54 49 4c 20 53 3d 35 35 20 4f 52 20 53 3d 38 ┆..6.... 0300 UNTIL S=55 OR S=8┆
0x06c0…06e0 31 20 4f 52 20 53 3d 31 31 33 0d 0a 20 30 33 31 30 20 52 45 4d 20 2e 2e 2e 2e 2e 37 2e 2e 2e 2e ┆1 OR S=113 0310 REM .....7....┆
0x06e0…0700 2e 2e 27 51 27 2e 2e 2e 2e 2e 27 51 27 2e 2e 2e 2e 2e 0d 0a 20 30 33 32 30 20 50 52 49 4e 54 20 ┆..'Q'.....'Q'..... 0320 PRINT ┆
0x0700…0720 43 48 52 28 31 32 29 0d 0a 20 30 33 33 30 20 53 54 4f 50 20 0d 0a 20 30 33 34 30 20 52 45 4d 20 ┆CHR(12) 0330 STOP 0340 REM ┆
0x0720…0740 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
[…0x1…]
0x0760…0780 5f 5f 5f 5f 0d 0a 20 30 33 35 30 20 52 45 4d 20 0d 0a 20 30 33 36 30 20 50 52 4f 43 20 4d 45 4e ┆____ 0350 REM 0360 PROC MEN┆
0x0780…07a0 55 28 53 53 29 0d 0a 20 30 33 37 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 ┆U(SS) 0370 PRINT CHR(12) 0┆
0x07a0…07c0 33 38 30 20 20 20 45 58 45 43 20 59 58 28 32 2c 33 37 29 0d 0a 20 30 33 39 30 20 20 20 50 52 49 ┆380 EXEC YX(2,37) 0390 PRI┆
0x07c0…07e0 4e 54 20 22 4d 45 4e 55 22 0d 0a 20 30 34 30 30 20 20 20 45 58 45 43 20 59 58 28 33 2c 33 37 29 ┆NT "MENU" 0400 EXEC YX(3,37)┆
0x07e0…0800 0d 0a 20 30 34 31 30 20 20 20 50 52 49 4e 54 20 22 3d 3d 3d 3d 22 0d 0a 20 30 34 32 30 20 20 20 ┆ 0410 PRINT "====" 0420 ┆
0x0800…0820 45 58 45 43 20 59 58 28 36 2c 31 29 0d 0a 20 30 34 33 30 20 20 20 50 52 49 4e 54 20 22 31 3a 20 ┆EXEC YX(6,1) 0430 PRINT "1: ┆
0x0820…0840 4c 49 53 54 49 4e 47 20 4f 46 20 4d 45 4d 42 45 52 53 20 49 4e 20 53 43 4f 52 45 2d 54 41 42 4c ┆LISTING OF MEMBERS IN SCORE-TABL┆
0x0840…0860 45 2e 22 0d 0a 20 30 34 34 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 34 35 30 20 20 20 50 52 49 ┆E." 0440 PRINT 0450 PRI┆
0x0860…0880 4e 54 20 22 32 3a 20 4c 49 53 54 49 4e 47 20 57 49 54 48 20 50 52 49 4e 54 49 4e 47 20 4f 46 20 ┆NT "2: LISTING WITH PRINTING OF ┆
0x0880…08a0 4d 45 4d 42 45 52 53 20 49 4e 20 53 43 4f 52 45 2d 54 41 42 4c 45 2e 22 0d 0a 20 30 34 36 30 20 ┆MEMBERS IN SCORE-TABLE." 0460 ┆
0x08a0…08c0 20 20 50 52 49 4e 54 20 0d 0a 20 30 34 37 30 20 20 20 50 52 49 4e 54 20 22 33 3a 20 49 4e 53 45 ┆ PRINT 0470 PRINT "3: INSE┆
0x08c0…08e0 52 54 49 4f 4e 2c 20 55 50 44 41 54 49 4e 47 20 4f 52 20 44 45 4c 45 54 49 4f 4e 20 4f 46 20 53 ┆RTION, UPDATING OR DELETION OF S┆
0x08e0…0900 45 4c 45 43 54 45 44 20 4d 45 4d 42 45 52 53 2e 22 0d 0a 20 30 34 38 30 20 20 20 50 52 49 4e 54 ┆ELECTED MEMBERS." 0480 PRINT┆
0x0900…0920 20 0d 0a 20 30 34 39 30 20 20 20 50 52 49 4e 54 20 22 34 3a 20 4c 49 53 54 49 4e 47 2c 20 55 50 ┆ 0490 PRINT "4: LISTING, UP┆
0x0920…0940 44 41 54 49 4e 47 20 4f 52 20 44 45 4c 45 54 49 4f 4e 2c 20 4d 45 4d 42 45 52 20 42 59 20 4d 45 ┆DATING OR DELETION, MEMBER BY ME┆
0x0940…0960 4d 42 45 52 2e 22 0d 0a 20 30 35 30 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 35 31 30 20 20 20 ┆MBER." 0500 PRINT 0510 ┆
0x0960…0980 50 52 49 4e 54 20 22 35 3a 20 43 52 45 41 54 49 4f 4e 20 4f 46 20 4e 45 57 20 28 45 4d 50 54 59 ┆PRINT "5: CREATION OF NEW (EMPTY┆
0x0980…09a0 29 20 53 43 4f 52 45 2d 54 41 42 4c 45 2e 22 0d 0a 20 30 35 32 30 20 20 20 50 52 49 4e 54 20 0d ┆) SCORE-TABLE." 0520 PRINT ┆
0x09a0…09c0 0a 20 30 35 33 30 20 20 20 50 52 49 4e 54 20 22 36 3a 20 43 48 41 4e 47 45 20 4c 45 4e 47 48 54 ┆ 0530 PRINT "6: CHANGE LENGHT┆
0x09c0…09e0 20 4f 46 20 45 58 49 53 54 49 4e 47 20 53 43 4f 52 45 2d 54 41 42 4c 45 2e 22 0d 0a 20 30 35 34 ┆ OF EXISTING SCORE-TABLE." 054┆
0x09e0…0a00 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 35 35 30 20 20 20 50 52 49 4e 54 20 22 37 3a 20 45 58 ┆0 PRINT 0550 PRINT "7: EX┆
0x0a00…0a20 49 54 20 46 52 4f 4d 20 54 48 45 20 50 52 4f 47 52 41 4d 2e 22 0d 0a 20 30 35 36 30 20 20 20 50 ┆IT FROM THE PROGRAM." 0560 P┆
0x0a20…0a40 52 49 4e 54 20 0d 0a 20 30 35 37 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 35 38 30 20 20 20 50 ┆RINT 0570 PRINT 0580 P┆
0x0a40…0a60 52 49 4e 54 20 22 4b 45 59 20 49 4e 20 54 48 45 20 4e 55 4d 42 45 52 20 4f 46 20 54 48 45 20 53 ┆RINT "KEY IN THE NUMBER OF THE S┆
0x0a60…0a80 45 4c 45 43 54 45 44 20 4f 50 45 52 41 54 49 4f 4e 3a 20 22 0d 0a 20 30 35 39 30 20 20 20 45 58 ┆ELECTED OPERATION: " 0590 EX┆
0x0a80…0aa0 45 43 20 59 58 28 32 31 2c 34 37 29 0d 0a 20 30 36 30 30 20 20 20 53 3d 4b 45 59 28 30 29 0d 0a ┆EC YX(21,47) 0600 S=KEY(0) ┆
0x0aa0…0ac0 20 30 36 31 30 20 45 4e 44 50 52 4f 43 20 4d 45 4e 55 0d 0a 20 30 36 32 30 20 52 45 4d 20 5f 5f ┆ 0610 ENDPROC MENU 0620 REM __┆
0x0ac0…0ae0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
[…0x1…]
0x0b00…0b20 5f 5f 0d 0a 20 30 36 33 30 20 52 45 4d 20 0d 0a 20 30 36 34 30 20 52 45 4d 20 50 52 4f 43 45 44 ┆__ 0630 REM 0640 REM PROCED┆
0x0b20…0b40 55 52 45 20 4c 49 53 54 20 46 4f 52 20 4c 49 53 54 49 4e 47 20 41 4e 44 2f 4f 52 20 50 52 49 4e ┆URE LIST FOR LISTING AND/OR PRIN┆
0x0b40…0b60 54 49 4e 47 20 4f 46 20 4d 45 4d 42 45 52 53 20 4f 46 20 53 43 4f 52 45 2d 54 41 42 4c 45 2e 20 ┆TING OF MEMBERS OF SCORE-TABLE. ┆
0x0b60…0b80 20 20 08 08 08 08 08 0d 0a 20 30 36 35 30 20 52 45 4d 20 0d 0a 20 30 36 36 30 20 50 52 4f 43 20 ┆ 0650 REM 0660 PROC ┆
0x0b80…0ba0 4c 49 53 54 28 53 53 29 0d 0a 20 30 36 37 30 20 20 20 4f 50 45 4e 20 22 53 43 4f 52 45 22 2c 46 ┆LIST(SS) 0670 OPEN "SCORE",F┆
0x0ba0…0bc0 2c 42 55 46 24 2c 32 32 0d 0a 20 30 36 38 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 36 39 30 ┆,BUF$,22 0680 REPEAT 0690┆
0x0bc0…0be0 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 37 30 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆ REPEAT 0700 PRINT ┆
0x0be0…0c00 43 48 52 28 31 32 29 0d 0a 20 30 37 31 30 20 20 20 20 20 20 20 45 58 45 43 20 59 58 28 38 2c 31 ┆CHR(12) 0710 EXEC YX(8,1┆
0x0c00…0c20 29 0d 0a 20 30 37 32 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 54 4f 20 4c 49 53 54 2c 20 50 ┆) 0720 PRINT "TO LIST, P┆
0x0c20…0c40 52 45 53 53 20 44 4f 57 4e 20 54 48 45 20 53 50 41 43 45 20 42 41 52 2e 22 0d 0a 20 30 37 33 30 ┆RESS DOWN THE SPACE BAR." 0730┆
0x0c40…0c60 20 20 20 20 20 20 20 50 52 49 4e 54 20 0d 0a 20 30 37 34 30 20 20 20 20 20 20 20 50 52 49 4e 54 ┆ PRINT 0740 PRINT┆
0x0c60…0c80 20 0d 0a 20 30 37 35 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 54 4f 20 45 58 49 54 2c 20 4b ┆ 0750 PRINT "TO EXIT, K┆
0x0c80…0ca0 45 59 20 49 4e 20 27 51 27 2e 22 0d 0a 20 30 37 36 30 20 20 20 20 20 20 20 45 58 45 43 20 59 58 ┆EY IN 'Q'." 0760 EXEC YX┆
0x0ca0…0cc0 28 31 36 2c 31 29 0d 0a 20 30 37 37 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 45 4e 54 45 52 ┆(16,1) 0770 PRINT "ENTER┆
0x0cc0…0ce0 20 59 4f 55 52 20 43 4f 4d 4d 41 4e 44 3a 20 22 0d 0a 20 30 37 38 30 20 20 20 20 20 20 20 45 58 ┆ YOUR COMMAND: " 0780 EX┆
0x0ce0…0d00 45 43 20 59 58 28 31 36 2c 32 32 29 0d 0a 20 30 37 39 30 20 20 20 20 20 20 20 59 3d 4b 45 59 28 ┆EC YX(16,22) 0790 Y=KEY(┆
0x0d00…0d20 30 29 0d 0a 20 30 38 30 30 20 20 20 20 20 55 4e 54 49 4c 20 59 3d 33 32 20 4f 52 20 59 3d 38 31 ┆0) 0800 UNTIL Y=32 OR Y=81┆
0x0d20…0d40 20 4f 52 20 59 3d 31 31 33 0d 0a 20 30 38 31 30 20 20 20 20 20 52 45 4d 20 2e 2e 2e 3c 53 50 3e ┆ OR Y=113 0810 REM ...<SP>┆
0x0d40…0d60 2e 2e 2e 2e 2e 27 51 27 2e 2e 2e 2e 2e 27 51 27 2e 2e 2e 0d 0a 20 30 38 32 30 20 20 20 20 20 49 ┆.....'Q'.....'Q'... 0820 I┆
0x0d60…0d80 46 20 59 3d 33 32 20 54 48 45 4e 20 0d 0a 20 30 38 33 30 20 20 20 20 20 20 20 49 3d 31 3b 20 4a ┆F Y=32 THEN 0830 I=1; J┆
0x0d80…0da0 3d 34 0d 0a 20 30 38 34 30 20 20 20 20 20 20 20 49 46 20 53 53 3d 35 30 20 54 48 45 4e 20 45 58 ┆=4 0840 IF SS=50 THEN EX┆
0x0da0…0dc0 45 43 20 49 4e 49 54 50 52 54 0d 0a 20 30 38 35 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 ┆EC INITPRT 0850 PRINT CH┆
0x0dc0…0de0 52 28 31 32 29 0d 0a 20 30 38 36 30 20 20 20 20 20 20 20 45 58 45 43 20 59 58 28 31 2c 31 30 29 ┆R(12) 0860 EXEC YX(1,10)┆
0x0de0…0e00 0d 0a 20 30 38 37 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 49 4e 49 54 49 41 4c 53 3a 20 20 ┆ 0870 PRINT "INITIALS: ┆
0x0e00…0e20 20 50 41 53 53 57 4f 52 44 3a 20 20 20 47 41 4d 45 53 3a 20 20 20 57 4f 4e 3a 20 20 20 4c 4f 53 ┆ PASSWORD: GAMES: WON: LOS┆
0x0e20…0e40 54 3a 22 0d 0a 20 30 38 38 30 20 20 20 20 20 20 20 45 58 45 43 20 59 58 28 32 2c 31 30 29 0d 0a ┆T:" 0880 EXEC YX(2,10) ┆
0x0e40…0e60 20 30 38 39 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 3d ┆ 0890 PRINT "========= =┆
0x0e60…0e80 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 3d 3d 3d 3d 3d 3d 20 20 20 3d 3d 3d 3d 20 20 20 3d 3d 3d 3d 3d ┆======== ====== ==== =====┆
0x0e80…0ea0 22 0d 0a 20 30 39 30 30 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 39 31 30 20 20 20 ┆" 0900 REPEAT 0910 ┆
0x0ea0…0ec0 20 20 20 20 20 20 47 45 54 20 46 2c 49 20 3a 20 49 4e 49 54 24 2c 50 41 53 24 2c 47 41 4d 45 53 ┆ GET F,I : INIT$,PAS$,GAMES┆
0x0ec0…0ee0 2c 57 4f 4e 2c 4c 4f 53 54 0d 0a 20 30 39 32 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 59 58 ┆,WON,LOST 0920 EXEC YX┆
0x0ee0…0f00 28 4a 2c 31 32 29 0d 0a 20 30 39 33 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 49 4e 49 54 ┆(J,12) 0930 PRINT INIT┆
0x0f00…0f20 24 3b 20 54 41 42 28 31 32 29 3b 20 50 41 53 24 3b 20 54 41 42 28 32 32 29 3b 20 0d 0a 20 30 39 ┆$; TAB(12); PAS$; TAB(22); 09┆
0x0f20…0f40 34 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 20 20 20 20 ┆40 PRINT USING "#### ┆
0x0f40…0f60 23 23 23 23 20 20 20 20 23 23 23 23 22 20 3a 20 47 41 4d 45 53 2c 4c 4f 53 54 2c 57 4f 4e 0d 0a ┆#### ####" : GAMES,LOST,WON ┆
0x0f60…0f80 20 30 39 35 30 20 20 20 20 20 20 20 20 20 4a 3d 4a 2b 28 4a 3c 32 34 29 2a 31 0d 0a 20 30 39 36 ┆ 0950 J=J+(J<24)*1 096┆
0x0f80…0fa0 30 20 20 20 20 20 20 20 20 20 49 46 20 4a 3d 32 34 20 54 48 45 4e 20 0d 0a 20 30 39 37 30 20 20 ┆0 IF J=24 THEN 0970 ┆
0x0fa0…0fc0 20 20 20 20 20 20 20 20 20 4a 3d 4a 2d 31 0d 0a 20 30 39 38 30 20 20 20 20 20 20 20 20 20 20 20 ┆ J=J-1 0980 ┆
0x0fc0…0fe0 50 52 49 4e 54 20 43 48 52 28 31 30 29 0d 0a 20 30 39 39 30 20 20 20 20 20 20 20 20 20 20 20 45 ┆PRINT CHR(10) 0990 E┆
0x0fe0…1000 58 45 43 20 59 58 28 31 2c 31 30 29 0d 0a 20 31 30 30 30 20 20 20 20 20 20 20 20 20 20 20 50 52 ┆XEC YX(1,10) 1000 PR┆
0x1000…1020 49 4e 54 20 22 49 4e 49 54 49 41 4c 53 3a 20 20 20 50 41 53 53 57 4f 52 44 3a 20 20 20 47 41 4d ┆INT "INITIALS: PASSWORD: GAM┆
0x1020…1040 45 53 3a 20 20 20 57 4f 4e 3a 20 20 20 4c 4f 53 54 3a 22 0d 0a 20 31 30 31 30 20 20 20 20 20 20 ┆ES: WON: LOST:" 1010 ┆
0x1040…1060 20 20 20 20 20 45 58 45 43 20 59 58 28 32 2c 31 30 29 0d 0a 20 31 30 32 30 20 20 20 20 20 20 20 ┆ EXEC YX(2,10) 1020 ┆
0x1060…1080 20 20 20 20 50 52 49 4e 54 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ PRINT "========= =========┆
0x1080…10a0 20 20 20 3d 3d 3d 3d 3d 3d 20 20 20 3d 3d 3d 3d 20 20 20 3d 3d 3d 3d 3d 22 0d 0a 20 31 30 33 30 ┆ ====== ==== =====" 1030┆
0x10a0…10c0 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 30 34 30 20 20 20 20 20 20 20 20 20 49 ┆ ENDIF 1040 I┆
0x10c0…10e0 46 20 53 53 3d 35 30 20 54 48 45 4e 20 0d 0a 20 31 30 35 30 20 20 20 20 20 20 20 20 20 20 20 4f ┆F SS=50 THEN 1050 O┆
0x10e0…1100 55 54 50 55 54 20 50 0d 0a 20 31 30 36 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 54 ┆UTPUT P 1060 PRINT T┆
0x1100…1120 41 42 28 31 32 29 3b 20 49 4e 49 54 24 3b 20 54 41 42 28 32 34 29 3b 20 50 41 53 24 3b 20 54 41 ┆AB(12); INIT$; TAB(24); PAS$; TA┆
0x1120…1140 42 28 33 34 29 3b 20 0d 0a 20 31 30 37 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 ┆B(34); 1070 PRINT U┆
0x1140…1160 53 49 4e 47 20 22 23 23 23 23 20 20 20 20 23 23 23 23 20 20 20 20 23 23 23 23 22 20 3a 20 47 41 ┆SING "#### #### ####" : GA┆
0x1160…1180 4d 45 53 2c 4c 4f 53 54 2c 57 4f 4e 0d 0a 20 31 30 38 30 20 20 20 20 20 20 20 20 20 20 20 4f 55 ┆MES,LOST,WON 1080 OU┆
0x1180…11a0 54 50 55 54 20 43 0d 0a 20 31 30 39 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 ┆TPUT C 1090 ENDIF 1┆
0x11a0…11c0 31 30 30 20 20 20 20 20 20 20 20 20 49 3d 49 2b 31 0d 0a 20 31 31 31 30 20 20 20 20 20 20 20 20 ┆100 I=I+1 1110 ┆
0x11c0…11e0 20 5a 3d 4b 45 59 28 30 29 0d 0a 20 31 31 32 30 20 20 20 20 20 20 20 55 4e 54 49 4c 20 5a 3c 3e ┆ Z=KEY(0) 1120 UNTIL Z<>┆
0x11e0…1200 33 32 20 4f 52 20 49 4e 49 54 24 3d 22 58 58 58 58 58 22 0d 0a 20 31 31 33 30 20 20 20 20 20 20 ┆32 OR INIT$="XXXXX" 1130 ┆
0x1200…1220 20 50 52 49 4e 54 20 54 41 42 28 39 29 3b 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ PRINT TAB(9); "================┆
0x1220…1240 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 0d 0a ┆=============================" ┆
0x1240…1260 20 31 31 34 30 20 20 20 20 20 20 20 49 46 20 53 53 3d 35 30 20 54 48 45 4e 20 0d 0a 20 31 31 35 ┆ 1140 IF SS=50 THEN 115┆
0x1260…1280 30 20 20 20 20 20 20 20 20 20 4f 55 54 50 55 54 20 50 0d 0a 20 31 31 36 30 20 20 20 20 20 20 20 ┆0 OUTPUT P 1160 ┆
0x1280…12a0 20 20 50 52 49 4e 54 20 0d 0a 20 31 31 37 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 54 41 ┆ PRINT 1170 PRINT TA┆
0x12a0…12c0 42 28 31 30 29 3b 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆B(10); "========================┆
0x12c0…12e0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 0d 0a 20 31 31 38 30 20 20 20 ┆=====================" 1180 ┆
0x12e0…1300 20 20 20 20 20 20 4f 55 54 50 55 54 20 43 0d 0a 20 31 31 39 30 20 20 20 20 20 20 20 45 4e 44 49 ┆ OUTPUT C 1190 ENDI┆
0x1300…1320 46 20 0d 0a 20 31 32 30 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 32 31 30 20 20 20 55 4e ┆F 1200 ENDIF 1210 UN┆
0x1320…1340 54 49 4c 20 59 3d 38 31 20 4f 52 20 59 3d 31 31 33 0d 0a 20 31 32 32 30 20 20 20 43 4c 4f 53 45 ┆TIL Y=81 OR Y=113 1220 CLOSE┆
0x1340…1360 20 46 0d 0a 20 31 32 33 30 20 45 4e 44 50 52 4f 43 20 4c 49 53 54 0d 0a 20 31 32 34 30 20 52 45 ┆ F 1230 ENDPROC LIST 1240 RE┆
0x1360…1380 4d 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆M ______________________________┆
0x1380…13a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x13a0…13c0 5f 5f 5f 5f 5f 5f 0d 0a 20 31 32 35 30 20 52 45 4d 20 0d 0a 20 31 32 36 30 20 52 45 4d 20 50 52 ┆______ 1250 REM 1260 REM PR┆
0x13c0…13e0 4f 43 45 44 55 52 45 20 55 50 44 41 54 20 46 4f 52 20 55 50 44 41 54 49 4e 47 20 4f 46 20 4f 4e ┆OCEDURE UPDAT FOR UPDATING OF ON┆
0x13e0…1400 45 20 4f 52 20 4d 4f 52 45 20 4d 45 4d 42 45 52 53 20 4f 46 0d 0a 20 31 32 37 30 20 52 45 4d 20 ┆E OR MORE MEMBERS OF 1270 REM ┆
0x1400…1420 53 43 4f 52 45 2d 54 41 42 4c 45 2e 0d 0a 20 31 32 38 30 20 52 45 4d 20 0d 0a 20 31 32 39 30 20 ┆SCORE-TABLE. 1280 REM 1290 ┆
0x1420…1440 50 52 4f 43 20 55 50 44 41 54 28 53 53 29 0d 0a 20 31 33 30 30 20 20 20 53 49 5a 45 46 4c 41 47 ┆PROC UPDAT(SS) 1300 SIZEFLAG┆
0x1440…1460 3d 30 0d 0a 20 31 33 31 30 20 20 20 4f 50 45 4e 20 22 53 43 4f 52 45 22 2c 46 2c 42 55 46 24 2c ┆=0 1310 OPEN "SCORE",F,BUF$,┆
0x1460…1480 32 32 0d 0a 20 31 33 32 30 20 20 20 49 46 20 53 53 3d 35 31 20 54 48 45 4e 20 0d 0a 20 31 33 33 ┆22 1320 IF SS=51 THEN 133┆
0x1480…14a0 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 31 33 34 30 20 20 20 20 20 45 ┆0 PRINT CHR(12) 1340 E┆
0x14a0…14c0 58 45 43 20 59 58 28 33 2c 32 32 29 0d 0a 20 31 33 35 30 20 20 20 20 20 50 52 49 4e 54 20 22 55 ┆XEC YX(3,22) 1350 PRINT "U┆
0x14c0…14e0 50 44 41 54 49 4e 47 20 4f 52 20 49 4e 53 45 52 54 49 4f 4e 20 4f 46 20 4d 45 4d 42 45 52 28 53 ┆PDATING OR INSERTION OF MEMBER(S┆
0x14e0…1500 29 2e 22 0d 0a 20 31 33 36 30 20 20 20 20 20 45 58 45 43 20 59 58 28 34 2c 32 32 29 0d 0a 20 31 ┆)." 1360 EXEC YX(4,22) 1┆
0x1500…1520 33 37 30 20 20 20 20 20 50 52 49 4e 54 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆370 PRINT "=================┆
0x1520…1540 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 0d 0a 20 31 33 38 30 20 20 20 20 20 4c ┆==================" 1380 L┆
0x1540…1560 4f 4f 50 20 0d 0a 20 31 33 39 30 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 31 34 30 30 ┆OOP 1390 REPEAT 1400┆
0x1560…1580 20 20 20 20 20 20 20 20 20 45 58 45 43 20 59 58 28 37 2c 30 29 0d 0a 20 31 34 31 30 20 20 20 20 ┆ EXEC YX(7,0) 1410 ┆
0x1580…15a0 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 33 31 29 0d 0a 20 31 34 32 30 20 20 20 20 20 20 20 ┆ PRINT CHR(31) 1420 ┆
0x15a0…15c0 20 20 45 58 45 43 20 59 58 28 31 30 2c 31 29 0d 0a 20 31 34 33 30 20 20 20 20 20 20 20 20 20 50 ┆ EXEC YX(10,1) 1430 P┆
0x15c0…15e0 52 49 4e 54 20 22 53 45 4c 45 43 54 20 46 55 4e 43 54 49 4f 4e 3a 22 0d 0a 20 31 34 34 30 20 20 ┆RINT "SELECT FUNCTION:" 1440 ┆
0x15e0…1600 20 20 20 20 20 20 20 50 52 49 4e 54 20 0d 0a 20 31 34 35 30 20 20 20 20 20 20 20 20 20 50 52 49 ┆ PRINT 1450 PRI┆
0x1600…1620 4e 54 20 22 20 20 20 20 27 53 50 41 43 45 27 3a 20 55 50 44 41 54 45 20 4f 52 20 44 45 4c 45 54 ┆NT " 'SPACE': UPDATE OR DELET┆
0x1620…1640 45 20 4d 45 4d 42 45 52 2e 22 0d 0a 20 31 34 36 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆E MEMBER." 1460 PRINT ┆
0x1640…1660 0d 0a 20 31 34 37 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 49 20 20 20 ┆ 1470 PRINT " I ┆
0x1660…1680 20 20 3a 20 49 4e 53 45 52 54 20 4e 45 57 20 4d 45 4d 42 45 52 2e 22 0d 0a 20 31 34 38 30 20 20 ┆ : INSERT NEW MEMBER." 1480 ┆
0x1680…16a0 20 20 20 20 20 20 20 50 52 49 4e 54 20 0d 0a 20 31 34 39 30 20 20 20 20 20 20 20 20 20 50 52 49 ┆ PRINT 1490 PRI┆
0x16a0…16c0 4e 54 20 22 20 20 20 20 20 51 20 20 20 20 20 3a 20 45 58 49 54 2e 22 0d 0a 20 31 35 30 30 20 20 ┆NT " Q : EXIT." 1500 ┆
0x16c0…16e0 20 20 20 20 20 20 20 50 52 49 4e 54 20 0d 0a 20 31 35 31 30 20 20 20 20 20 20 20 20 20 50 52 49 ┆ PRINT 1510 PRI┆
0x16e0…1700 4e 54 20 0d 0a 20 31 35 32 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 49 4e 50 55 54 20 ┆NT 1520 PRINT "INPUT ┆
0x1700…1720 54 48 45 20 53 45 4c 45 43 54 45 44 20 46 55 4e 43 54 49 4f 4e 20 43 4f 44 45 3a 20 22 0d 0a 20 ┆THE SELECTED FUNCTION CODE: " ┆
0x1720…1740 31 35 33 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 59 58 28 31 39 2c 33 35 29 0d 0a 20 31 35 ┆1530 EXEC YX(19,35) 15┆
0x1740…1760 34 30 20 20 20 20 20 20 20 20 20 59 3d 4b 45 59 28 30 29 0d 0a 20 31 35 35 30 20 20 20 20 20 20 ┆40 Y=KEY(0) 1550 ┆
0x1760…1780 20 55 4e 54 49 4c 20 59 3d 33 32 20 4f 52 20 59 3d 37 33 20 4f 52 20 59 3d 31 30 35 20 4f 52 20 ┆ UNTIL Y=32 OR Y=73 OR Y=105 OR ┆
0x1780…17a0 59 3d 38 31 20 4f 52 20 59 3d 31 31 33 0d 0a 20 31 35 36 30 20 20 20 20 20 20 20 52 45 4d 20 2e ┆Y=81 OR Y=113 1560 REM .┆
0x17a0…17c0 2e 2e 27 53 50 27 2e 2e 2e 2e 27 49 27 2e 2e 2e 2e 2e 2e 27 49 27 2e 2e 2e 2e 2e 27 51 27 2e 2e ┆..'SP'....'I'......'I'.....'Q'..┆
0x17c0…17e0 2e 2e 2e 2e 27 51 27 2e 2e 2e 2e 0d 0a 20 31 35 37 30 20 20 20 20 20 20 20 49 46 20 59 3d 38 31 ┆....'Q'.... 1570 IF Y=81┆
0x17e0…1800 20 4f 52 20 59 3d 31 31 33 20 54 48 45 4e 20 45 58 49 54 20 0d 0a 20 31 35 38 30 20 20 20 20 20 ┆ OR Y=113 THEN EXIT 1580 ┆
0x1800…1820 20 20 45 58 45 43 20 59 58 28 36 2c 32 29 0d 0a 20 31 35 39 30 20 20 20 20 20 20 20 52 45 50 45 ┆ EXEC YX(6,2) 1590 REPE┆
0x1820…1840 41 54 20 0d 0a 20 31 36 30 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 33 31 29 ┆AT 1600 PRINT CHR(31)┆
0x1840…1860 0d 0a 20 31 36 31 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 59 58 28 31 32 2c 32 29 0d 0a 20 ┆ 1610 EXEC YX(12,2) ┆
0x1860…1880 31 36 32 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 49 4e 50 55 54 20 49 4e 49 54 49 41 ┆1620 PRINT "INPUT INITIA┆
0x1880…18a0 4c 53 20 46 4f 52 20 54 48 45 20 4d 45 4d 42 45 52 22 0d 0a 20 31 36 33 30 20 20 20 20 20 20 20 ┆LS FOR THE MEMBER" 1630 ┆
0x18a0…18c0 20 20 49 4e 50 55 54 20 22 20 57 48 49 43 48 20 49 53 20 54 4f 20 42 45 20 55 50 44 41 54 45 44 ┆ INPUT " WHICH IS TO BE UPDATED┆
0x18c0…18e0 2c 20 44 45 4c 45 54 45 44 20 4f 52 20 49 4e 53 45 52 54 45 44 3a 20 22 2c 55 50 44 49 4e 49 54 ┆, DELETED OR INSERTED: ",UPDINIT┆
0x18e0…1900 24 0d 0a 20 31 36 34 30 20 20 20 20 20 20 20 20 20 49 46 20 55 50 44 49 4e 49 54 24 3d 22 58 58 ┆$ 1640 IF UPDINIT$="XX┆
0x1900…1920 58 58 58 22 20 54 48 45 4e 20 0d 0a 20 31 36 35 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 ┆XXX" THEN 1650 EXEC┆
[…truncated at 200 lines…]