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: 854 (0x356) Types: TextFile Names: »CURSOR_MOVE_3«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS ) └─ ⟦this⟧ »USERS.D!PU.D!CURSOR_MOVE_3«
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 LIN 1 FIRST DISP, MOVE CURS TO LIN 4, COL 1" APPEND #122F 17(#0103 #061E #0E04 #3024 #3030 #1E31 #0403 #2F0F #002C) WAITINIT 20 INITREAD #122F 128 DUMP "MAKE LIN 81 FIRST DISP, MOVE CURS TO LIN 18, COL 80" APPEND #122F 17(#0103 #061E #0E04 #3024 #3530 #1E31 #0403 #600F #003E) WAITINIT 20 END LIST OPERATIONS CANCEL CRID #120F CANCEL CRID #122F DISMANTLE #122F DISMANTLE #120F END