DataMuseum.dk

top - download

    Length: 1128 (0x468)
    Types: TextFile
    Names: »PUNCH_TAPE«

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »USERS.D!CAH.D!PUNCH_TAPE« 

TextFile

BEGIN
DEFINE PATTERN 1 = '(:01:)(:15:)(:30:)(:05:)(:01:)VZCZC'
DEFINE PATTERN 2 = '(:00:)(:30:)(:24:)(:01:)FM CHRISTIAN ROVSING A/S'
DEFINE PATTERN 3 = '(:00:)(:30:)(:24:)(:01:)TO CHRISTIAN ROVSING A/S'
DEFINE PATTERN 4 = '(:00:)(:30:)(:02:)(:01:)BT'
DEFINE PATTERN 5 = '(:00:)(:30:)(:20:)(:01:)COMPANY CONFIDENTIAL'
DEFINE PATTERN 6 = '(:00:)(:30:)(:44:)(:01:)THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.'
DEFINE PATTERN 7 = '(:00:)(:30:)(:16:)(:01:)0123456789.;:-?/'
DEFINE PATTERN 8 = '(:02:)(:30:)(:04:)(:01:)NNNN'
CREATE 0 #110F 7 16
APPEND #110F 0 (#1111)
INITREAD #110F 16 DUMP
APPEND #110F 6 ( #0001 #107F #1101 )
INITREAD #110F 16 DUMP
APPEND #110F 6 ( #2001 #107F #1121 )
CREATE 0 #112F 6 130
REPEAT 3
BEGIN
INITREAD #112F 16 DUMP
INITREAD #112F 16 DUMP
APPEND #112F 10 PATTERN 1
APPEND #112F 28 PATTERN 2
APPEND #112F 28 PATTERN 3
APPEND #112F  6 PATTERN 4
APPEND #112F 24 PATTERN 5
APPEND #112F 48 PATTERN 6
APPEND #112F 20 PATTERN 7
APPEND #112F 24 PATTERN 5
APPEND #112F  6 PATTERN 4
APPEND #112F  8 PATTERN 8
WAITINIT 10
END
LIST OPERATIONS
CANCEL CRID #110F
CANCEL CRID #112F
DISMANTLE #110F
DISMANTLE #112F
END