DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1048 (0x418) Types: TextFile Names: »CURSOR_MOVE«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS ) └─ ⟦this⟧ »USERS.D!PU.D!CURSOR_MOVE«
BEGIN CREATE 0 #120F 7 16 APPEND #120F 0 (#1111) INITREAD #120F 16 DUMP APPEND #120F 6 (#0001 #107F #1201) INITREAD #120F 16 DUMP APPEND #120F 6 (#2001 #107F #1221) CREATE 0 #122F 7 130 INITREAD #122F 128 DUMP " SELECT SPLIT #2 AS COMM SPLIT " APPEND #122F 9 (#0103 #041E #0E04 #572B #0032) WAITINIT 20 INITREAD #122F 128 DUMP " MOVE KEYBOARD CURSOR TO SPLIT #2 " APPEND #122F 9 (#0103 #041E #0E04 #562B #0032) WAITINIT 20 REPEAT 10 BEGIN INITREAD #122F 128 DUMP " MAKE LINE #1 FIRST DISPLAYED LINE " APPEND #122F 11(#0103 #061E #0E04 #3024 #3030 #0031) WAITINIT 20 INITREAD #122F 128 DUMP " MOVE CURSOR TO COLUMN #1, LINE #1 IN SPLIT " APPEND #122F 8 (#0103 #031E #0F04 #2F2F) WAITINIT 20 INITREAD #122F 128 DUMP " MAKE LINE #11 FIRST DISPLAYED LINE " APPEND #122F 11(#0103 #061E #0E04 #3024 #3030 #0042) WAITINIT 20 INITREAD #122F 128 DUMP " MOVE CURSOR TO COLUMN #80, LINE #22 IN SPLIT " APPEND #122F 8 (#0103 #031E #0F04 #3A60) WAITINIT 20 END LIST OPERATIONS CANCEL CRID #120F CANCEL CRID #122F DISMANTLE #122F DISMANTLE #120F END