CBMGO64 LBOOT"GO64      . I             . T                ,         . PASS=PASS+1:IF PASS=4 THEN END20 ORG ADDRESS30 IF PASS=3       INCLUDE        10-  . L'  '                             K   SETLFSK(56)-4:CLR110 TOPOFMEM=PEEK(55)+256*(PEEK(56)+4)120 ADDRESS=0:MODE=0130 FOR PASS=1 TO 3140 ORG ADDRESS150 IF PASS=3 THEN ORG ADDRESS,MODES 900 NEXT PASS910 IF MODE=1 THEN END920 ADDRESS=TOPOFMEM-*930 MODE=1:GOTO 130 I                  . T    ORG        BASIC RAM (2049).UNSENDI          BASIC  ML,        BASIC   T                             . T        PRG        BASIC              . A          3        . T           -  . I  1 TEXT       256,  -     . T    -     . T RG ADDRESS,1P 1   90 INCLUDE "PART 2",8100 INCLUDE "PART 3",8110 NEXT PASS:END T          INCLUDE         ,                  , SETNAM,  OPEN. Y            K              "OPEN"    . T,      ,  INCLUDE "OPEN",8. W       ,        ,        . D               0. M 0                 . T            TOPOF. UNSEND                BASIC .E   P  L  110  120        ORG. I  ,  110   0. B   3,  120   1. T        BASIC   DEF, RETURN, CLR,  NEW,        SEND  INCLUDE. T               9. I            . T        '   ,        TEXT    ,       1. I  2    ,     ,         140. T         -  ,  TEXT       . I  3    . A          ,    '   FOR-NEXT    . Y         . F   :FIRSTPROGRAM10 PASS=PASS+1:IF PASS=4 THEN END20 ORG ADDRESS30 IF PASS=3   OPEN                  .SEND  T   SEND                 . I'         BASIC  . S   MEM. T                   . MODE    1                        (         ). L  100    49152 (  $C000). L  200            (*). Y            RUN. T         :PASS 1 0 49165PASS 2 49165 49166PASS        8-11 ( 8         ). I                  ,   ()     INCLUDE               . A          ,                   . A            BASIC                 . U          :100 POKE 56,PEE THEN ORG ADDRESS,1S 90 LOAD "SECONDPROGRAM",8SECONDPROGRAMS 90 LOAD"FIRSTPROGRAM",8 N       . Y'          . T    ,         BASIC       . I      , '    MISSING LINE NUMBER ERROR. I        ,    SEND   ,            . Y     1K            .L P I    '     ,            INCLUDE. F   :10 FOR PASS=1 TO 320 ORG ADDRESS30 IF PASS=3 THEN O3 49166 49166 T          . T            TEXT     LDA TEXT,X   140. T                      . Y    )90 NEXT PASS:END I           LSR (), '  ILLEGAL ADDRESSING MODE ERROR. M          ,  ,        RUN. I          ,<  Ѝ!Р ܠ  +, -.w cl LOADING THE DISK MENU PROGRAM  ONE MOMENT PLEASEMNR   .U  L   V    AL               . T                . Y        ,     .: Y        ML  . I            . I        ,      0        1       . ORG            (  ). N   RTS; TARGET OF BRANCH IN 6090 DISPLAY1=* ; THIS LABELS THE CURRENT PROGRAM COUNTER100 ;110 LDA #65: JSR $FFD2: RTS R                   ,   REM,    FA. T     90        . M            . Z  '    ,         ,  '                 . O    , '  ILLEGAL DIRECT ERROR. A     I   A ,                          0-255. O         ,                   . I     1        PRG                . T         8.BYTE  , ,...T                            . I         ,              . O        LABELNAME=*. T   (*)        . A    :ORGORG ORG ,  D        : = 49152 (=$C000)  = 0  = 0     I               '                        . A ,      DISPLAY1    LDA #65,              90  110.T P  A  T     ,        1        ,            . F  ,                                   ASCII           . I      0,      0.A   C A                      ,   '   ILLEGAL D      . I                  . A                 256. T         . E                     . T                . Y         *. Y              *=. H'        ORG, '  UNDEF'D LOCATION COUNTER ERROR. T          . U ,              . O                           (   )     (   ML        ). B FA '     . Y             BASIC  :10 FOR PASS=1 TO 3(I      . Z        . B                   ($0801-$121B)    BASIC     ($A000-$BFFF). A        8-11   IRECT ERROR . A            .ORG , , , T            . I    . F ,       (ORG),              .WORD  , ,...T         BYTE                    65536. T           /   .INCLUDE  ,            ('    , '         ):50 JSR DISPLAY1; JUMP TO LABELED SUBROUTINE (LINE 90)60 LDA $FF: BNE SKIPIT ; CONDITIONAL BRANCH AHEAD TO SKIPIT70 TYA80 SKIPIT: LDX #4: STA $8000,X:    . V       . T                   . I      ,         . FA   NUMBER1  NUMBER2     BASIC       ( 2600 )       BASIC     . S          BASIC          . T   ,  BASIC ROM         PRINT       PRINT  ,   A$="OK":PRINTA$,   PRINT             PRINTA$. Y        (PRINT A$)           A$. REM  DATA. C   . T                   .L  . Y            SHIFT     SHIFT-LOCK. T            SHIFT .ASCII     S ANY KEY TO TRY AGAIN OR / TO QUIT.- -`@ @KB:PBTPH 6L'­NGLE OR OUBLE PACING (1/2) ( QZLMPLEASE SWITCH TO THE 40-COLUMN DISPLAY. ^80 X S D Ѝ!ЍF wLtLOAD"MENU",8,1ADING "(34)D$(34)(40(FF$))2)FF$" PLEASE STAND BY ,     BASIC          (NU). V           BASIC/        : LAND          ,        AND. B           RAM. E   '        ,                BASIC    BASIC  . T       BASIC      BASIC  .G  S  REM  DATA              BASIC . F   , 10 REM AB         10 REM     BASIC   .N BASIC C AUTO   T            . I      ,          . H         $       %. Y             . 'A      ASC("A"). Y            RETURN. K   RETURN  '            . I    RETURN     ,    POKE 650,128     RETURN  '  . U       SYS 4408         OLD      . I              ,     .S   (;)T        TI  ST ( )         0         . A      -                     . K. B        T   FA,   LOAD "FAST ASSEMBLER",8. T  RUN. T   SYS            . T    ,           ,     FA    . Y                    . T  AUTO ,  AUTO          RETURN. T         . T          .T  AUTO ,                BASIC  . F   , PRINT 'END       128,     BASIC   END. I            ,  ASCII                .OLDI      NEW,           . I       '     . I '           ,             REM  . I               . F   :10 X=0:REM SET X TO ZERO     10 X=0;SET X TO ZEROT        PRINT  INPUT      REM        , FA                          . S,          '          . F   ,  PRINT "OK"       BASIC    .BASIC M     E T          BASIC :S  . S                           RETURN. T           ,  AUTO  . Y                . T                1. T     : M    52736-53247 ($CE00-$CFFF)    ,           .TRACEU: BASIC   (   TROFF)S: TRACEI '    BASIC  , TRACE     '  .       SPACEGAME     .SENDU:    S: SEND "   "T               15. SEND"I0"       , SEND"V0"      , SEND "R0: =  "         ,               -    . I   Y,    . P N             .        ,  UNNEW     .V   SYS     . I         2049,           BASIC      (           BASIC,   "SS "). E  : START "METABASIC 64"  0: 6΅Ʌ m   LɌ ɍɍ Ѝ!Щ  $Ʃ 7` ݳLʊ HHHH`ɍ Ѝ!Щ؅ɅíɅĢ ɑ` kňL®ɩ7 ͽ6L© `Ɍ kň`L és 80i0 ǩ 80 i0 ǩ̠ 80i0 ǩ YN ȩ SC Cȩk YN A    ,          . U  SHIFT  CTRL          . SPEED       ,  TROFF   TRACE.TROFFU: BASIC   (   TRACE)S: TROFF       ,   . F         ,   1541 '  .SPEEDU: BASIC  S: SPEED  SPEED        64     . T           Ȓ ISPLAY THIS ELP SCREEN ’ HANGE ACKGROUND COLOR Ԓ HANGE EXT COLOR RSR P CROLL TEXT DOWN RSR OWN CROLL TEXT UP /Œ O TO THE TOP OF TEXT -В HOOSE ARAMETERS AND     36864   .TERMINALU:   S: TERMINALI    C   ( '     64), TERMINAL        300- " "         -ASCII  `(爱 'ȄɑeÅåiĎɘɬɱ0ɑ( L?i(LÍɥč`ɩ`ɥ`ɅɅ`i΅iɅ``ɭ` ` `@Ɍ` Z` !Щ L7  0éɩɩɩ 8080   ĩ͠ ƥ?б` ɍɱ,Gɭͪɐ댗ɱ ΙɈLȱ ɘ8ei Y íɍɩGɅ ŭͭɐ 8Ʌ$"  T       TRACE  .UNNEWU: BASIC  S: UNNEWY       ,  '        . I      NEW         ,  UNNEW     .V     0-255. T     ,        . T   SPEED 255 (       )      . Y         SPEED 0. I  '  ,    INT ( )    RINT В RINT WITH DEFAULT PARAMETERS͒ ETURN TO ENU PROGRAM RESS Β FOR TEXT & TO USE COMMANDS ELECT RINTER ARAMETERS: EVICE UMBER (4-7)? 4 ECONDARY DDRESS # (0-9)? 7 INGLE OR OUBLE PACING (1/2          C S. Y '        ,            . T   BASIC,    (E  ) ;    RUN/STOP RESTORE. A     Ġ Lɭ)`ɭ)ɍ`  x`8ɭ`  x` x qɭi 8ɭɰ` iɭi x`Ҡ ͠ ` m `̘0 kL`8J8ɨ L`LO8ɨ0 ňɍɩɅ  8C80 F 0â ɌɈ0 ň` )  L`80mɍ ň` k8 k`ɠ١ɰYɬ`LOADING...RESS: O: CHANGEU: BASIC   (   CHANGE, FIND)S: VCHANGE      ,   ,   VCHANGE (V  CHANGE)     CHANGE,            . E      . SPEED    '    TRACE  .STARTU:    S: START "  "I          ,              . T        )? 1 END INEFEEDS (ْES/ΒO)? Ν INGLE-PAGE OR ONTINUOUS EED (Ӓ/Ò)? ÝNSERT NEXT SHEET, PRESS Β RE THESE CORRECT (ْ/Β)? ٝ DISK ERROR. PRESS RETURN TO TRY AGAIN. RINTING... HECK YOUR PRINTER, THEN PRES. MONITOR     ,   . I  ,  ,             (       ). I                 ,        - ASCII           (  '    ASCII ,      ). I       , MEMORY 43    , '       (43  44). T           BASIC. R  MBASIC   SYS 36864.READU:     (   CAT, DLIST)S: READ "    "READ            . T              ,  . B      ,      DLIST     '       . A         ,    RENUM         . I          ,    BASIC ,    GOTO, GOSUB, ON-GOTO, ON-GOSUB, IF-THEN,        . O    : GOTO  ,  GO TO (       )  . U FIND                . RESAVE   ;                ,        SAVE,          .SCRATCHU:    S: SCRATCH "  "SCRATC      ( KEY)  SPEED  . Y        INT  .NUMBERU: ML  S: NUMBER $   NUMBER               (). P          -  ,  43  44,           BASIC  . T   ,      ,   . E  : E MEMORY 41374-41474  '         BASIC ROM (          . I          BASIC READ       (    DATA     ,    ),         .RENUMU: BASIC    DELETE      .MONITORU: ML   (   INT)S: MONITORI           ,       MONITOR (          BRK    ). T  GO TO. E  : RENUM 100,20     ,     100,     20.RESAVEU:     (   BSAVE)S: RESAVE "  "T    - -      (SAVE ":  ")     H        OPEN 15,8,15: PRINT#15,"S0:  ": CLOSE 15,  '    . I         . I           , '            ( SEND). Y    ($)      . I   ,         -/ -   (    )     (     ).E  : NUMBER $100 256 0 1 %100000000 NUMBER    ASCII            128). O,   BASIC  ,   MEMORY 2048-2148          .MERGEU:    S: MERGE "  "MERGE       , S: RENUM   ,  T         BASIC     ( '        ). T                     . I       MBASIC 64     ,    MBASIC 64,  NEW,        SYS 36864. N,    ,  NEW,  SYS          (      BRK        )        ,                      . T         '      . T - -                 ;    : SCRATCH "A*"                A. H,                      . E  : SCRATCH "SPACEGAME" 34 $22 34 0 %100010QUITU: MBASIC 64  S: QUITT          MBASIC 64  . T           --    . MBASIC 64      ,          . I         ,        . S        250. T  250          250       ,           10. T                       . I        ,       10. I     PW '          MBASIC 64,  HELP      .INTU: MBASIC 64   (   DEFAULT, QUIT)S: INTS    MBASIC 64  - . I     ( 0-250            200-250,     200  250.DLISTU:     (   CAT, READ)S: DLIST "  "T      BASIC       ,     '         . U  KEY,            SYS           . O     -  RUN  LIST. I              /  ,                .FINDU: BASIC   (   CHANGE, VCHANGE)S: FIND  ,   ,   T         ,   ,          . E       .KEY 2,"VERIFY*' "   2    VERIFY"*"    RETURN (          ). I '  DEFAULT         8,   2            , POKE         40341. I                 (5,    )     (  6),          LLIST  POKE          40339. T    MONITOR  ),       SPEED       . INT   MBASIC     .KEYU: BASIC   (   INT)S: KEY   , "    "T               . T            . DLIST            MERGE  SCRATCH. I             . DLIST "$0:A*"               KEY  DEFAULT                      MBASIC   BSAVE "METABASIC",36864,40960. T              . I       , '           . I             ,          ,    . I '      BASIC  (  PRINT  REM),      .       .LLISTU:    S: LLIST   -  T       ,               . L       . T   LLIST         ,             MBASIC           KEY  . E  : U LLIST 10-20    10-20    .MEMORYU: ML   (   )S: MEMORY   MBASIC 64,                        . (H,       MBASIC,           8          RENUM  .) T  A. E  : DLIST "BASICPROGRAM"       BASICPROGRAM         .DUMPU: BASIC  S: DUMPU DUMP                 . I       INT       KEY  . E  :KEY 1,"CLRLIST100-"        100      1 (    RETURN      ). Y      LIST  I           . T         '              . E  : FIND A=        A   .HELPU: MBASIC 64  S: HEL   LIST. A  , LLIST       OPEN 4,4,4           . S            (      OPEN  ), OPEN 4,4,7,    . T      -  Y               . U     ( )        . T         ,     ,    . I   ,      ,         ,        . T     : T        ,   '    RETURN  BASIC  . A ,   (SHIFT-7)    ,  RUN/STOP   DUMP. T  ,  CONT.ERRU:    S: ERRERR              DOS          . U             L SHIFT-I.KEY 7,"DATA"              ( AUTO)  '           DATA  . A    ,  RETURN  '      . T  7,    DATA  ,            . BSAVE             ,   ,   -   . T         . I           CHANGE "CHARLES" "JOHN".DEFAULTU: MBASIC 64   (   INT, QUIT)S: DEFAULT   ,    ,   ,    W   RUN/STOP-RESTORE,                ,              ,   53280,1,1. T   1   53280;    53281. I     ,    ,   POKE     , 53282, 53283,   .  ANGE      ,   ,   CHANGE       ,              . T       30  10,               . A   RETURN   ,           . T            INST/DEL ( )           . P RUN/STOP    AUTO. E           . I   DEFAULT,      MONITOR         TERMINAL  . E  : DEFAULT 1,1,0,8           ,        ,     ,  NUMBER ( ). A  BSAVE            ,          LOAD "  ",8,1. E  : BSAVE"METABASIC 64",36864,40805       MBASIC 64. T                . A     LOAD  SAVE    . DEFAULT          . I       ,          8. I       Y             MEMORY. F ,               MEMORY. T                . M          ,    (). A            . T       BASIC       . T           . I       , CHANGE     : AUTO 100,10   100     10.BSAVEU:     (   RESAVE)S: BSAVE "  ",   ,    + 1BSAVE (B  SAVE)          ,               8. I   RUN/STOP-RESTORE, '          . A '             SAVE"  " (     ,8).DELETEU: BASIC  S: DELETE   -     (   1024-1223)    , BSAVE "SCREEN",1024,1224. S           --               .CATU:     (   DLIST, READ)S: CATA     9       SAVE,      9. I  64         --  TV   ,                 . N: I           ,   RETURN.AUTOU: BASIC  S: AUTO     ,  AUTO                . I         ,               . I         ,          ,      . E  : CHANGE XQQ, 1,200      X  QQ   1-200. T     C   J    , . P                   ,   ,    . I'     1      . Y                  DELETE          . S                 (-). U                      . E  : DELETE 20            ,  CAT ( CAT ). T BASIC            . T          ,  DLIST.CHANGEU: BASIC   (   FIND, VCHANGE)S: CH  1 (),            MBASIC    . T     DEFAULT             ,   MONITOR    . A ,  TERMINAL         DEFAULT   . S        . I              ,       5     5      . I           ,          ?    KILL SCREEN REL 1,2,3   0-15RING      0-3SYNC      0-3PULSE 1,2,3   0-15VOL     0-1     ,  LOAD"  ",8,1   RETURN. T  POKE 56,125:CLR. T             . T     ,  SYS 32000. Y           SYS      %MBASIC 64K  M T          . I  32          C  64 BASIC,                  /  .A I   MBASIC POKE44,125+ :NEWS                .B   M  C C  P  V MUS 1,2,3, ,   C0-B7, ATT 1,2,3   0-15DEC 1,2,3  LLIST        TERMINAL      .S  NA   NEW    MBASIC 64. O          LIST P. W '     ,    CTRL, SHIFT,   C    4  . I         ,       . M   (ML)         MBASIC 64       $9000-$9FFF. T 4K     $C000         B MBASIC 64   ,     32             .MBASIC 64 C H'                ,     . I      , MBASIC 64    .M  M I    FRE(0)             , '   B   M         . M         -  B   M       . B  64"MBASIC 64"    E    ,   '         SYS  . A      ,              HELP. BASIC    12         . F    0-15SUS 1,2,3   0-15REL 1,2,3   0-15RING      0-3SYNC      0-3PULSE 1,2,3   0-15VOL     0-1       . RUN/STOP-RESTORE            . B             RENUM,   RUN/STOP     ( RUN/STOP-RESTORE). T         ;  M         ML  . B      MBASIC 64       .T  MBASIC 64,    :1. L     LOAD"METABASIC",8,1.2. T NEW.3. A      SYS          . S       . O         . I            ,  '          . H,     ML     M           . F   '  ,          . B   M               . C                   , AUTO, KEY,  UNNEW    . Y   CHANGE, DELETE, FIND, RENUM,  VCHANGE        . A DUMP, SPEED, TRACE,  TROFF        . I '       ,   5SPEED   0-255KEY     FOLLOW 1,2   1-3,1-3 (0 = )OCTAVE 1,2,3   -8-6SHIFT   - 0-11WRITE            . A , '    MBASIC     (               ). U    BASIC  ,      . Y      MBASIC 6 36864. T   4K     BASIC   (      35K    ). T          --BASIC           . A  SYS,        .        BASIC    .U: ML   (   MEMORY)S:   ,  ,  ...T     POKE,                    . F    . T                    . T  B   M     -  ,      BASIC          . T               BASIC    ,    MEMORY, MONITOR, NUMBER,  . T  MBASIC 64,   DEFAULT, HELP, INT,  QUIT. D      BSAVE, CAT, DLIST, ERR, MERGE, READ, RESAVE, SCRATCH, SEND,  START. F  ,  G             . T VOL             . A     0     ,  15      . T SPEED             . U         OCTAVE -1,-1,-1:SHIFT 10T S E B   M    -   . T          SCREEN         . W        , '        0 MUS D3,F4,A4,430 MUS D3,F4N,A4,4I  20, F4   F4#        G. T     D-   . I  30,  KEY        D-     ( F    ; ,  F    ). M          SID'  -   . T           . I      ,           POKE  . W   SID,            . T    ,   2        1  . T  FOLLOW       FOLLOW 0. T OCTAVE                     . T   OCTAVE 1,-1,0             . T          ,      WRITE "  "         . (T    F E ,      REM   40.) F            ,      ,         . B   M     SPEED 4      .A M  C B   M                   . T   . A     ,             :1     3     5         7        V   R                      ,           (        , F E ). T FOLLOW, SHIFT,  OCTAVE                             . B   M             : RING  SYNC. T RING  SYNC          ,      1, 2,  3. S     1          1   ,    2   ,     3 . I         , '    SHIFT  . I          -  . T               . P     KILL       . (W  F E ,    REM   610.) I           RUN. T              . W       KEY, FOLLOW, SHIFT,  OCTAVE  . U  KEY         . A     (   KEY  )          -       '   . A 15      S      A     ,         . W       ,                      B   M  FOR-NEXT . T FOLLOW          . T         FOLLOW , . T                 . U       IF             1  3,            . S     2          2  1,       3          3  2. A    0      . P     RIN ,       -   . I        , '     OCTAVE            SHIFT        . F   ,        -,     ,          . I    PRINT      ,          . T   ,        SYS 64738. W              ,  B   M          A-       --    , B- . T KEY             N (N )     . H'    :10 KEY G2   .C   Y SA '     ,             BASIC  . F      , B   M                             --   :10 FOR I=1 TO 220 IF I=2 THEN FOLLOW 1,230 REM MUSIC COMMANDS HERE40 NEXT II   ,        30     . T       ,   1    2                 . Y                   3    CTRL-J. P CTRL-J             ,   .R   S F I  , '             ASCII . CTRL-A          . W '     ,    C   SHIFT      ASCII     $02, $22, $42,   . A $00           . C   $82        , $81      .6. W           CTRL-W      CTRL-X. T     BAM     .CTRL-X. E   .CTRL-$. D     (SHIFT  ).SHIFT-C . T      ASCII.SHIFT-+. D    .SHIFT-- ( ). D     .+ ( ). S   .- ( ). S          . B          ,         . S 0    B  A   M (BAM),                       . %F A  Y HS    -                (ML)  . T                 (  ML    ). A           ,       D  E . F   :1. D'             ;             .2. L D  E ,    . "SS "           ,   "ES "     ASCII . CTRL-$        . H   SHIFT     . T     ,  CTRL-X. I  ,             OPEN 15,8,15,"V0:". T         ,       ,      .T  1: N   S  T T N   S1-17 2118-24 19           VOICE  :1 T  2 S3 P 4 N Y           SID'   . F   , VOICE 1,2,2    1          2  3     B $2-$1F   1               . B 2     . A    $82,    ,    PRG  . B     6     ,             . S.INST/DEL. D           .HOME. P      -  .C . M .  .CTRL-R. R       .CTRL-W. W               ,  SYS 12000.3. D    $12,  $00. P CLR/HOME        P CTRL-J (           ).4. S     ASCII,       ,                      .C   BAMB $4-$8F   0   B  A   M (BAM). T BAM      35     ,      . T             25-30 1831-35 17D  E   :CTRL-A. A       .CTRL-J. J       .CTRL-R. R       .CTRL-W. W                 ,            . I'       GOSUB JOYSTICK  BASIC.S  M   U   BASIC E Y    ML    "T F A  " (FA)    64' BASIC       8   C                CTRL-W. I          CTRL-$,      <       ,        . B 3  4       . Y            BASIC  ,                  BASIC. T FA       BASIC                . W        $05, $25, $45,   . I           ,  CLR/HOME           CTRL-J       .5. W '      ,      :  . S    '   0     . T PULSE                . T PULSE              . P         -  ,  PULSE      . E              . I     ,      . I ' ,    . T $12,   ,              ,          50000       ,        INSTRING. E     (    )          S  D   . F     ,  :2000 DATA INSTRID      JSR INSTRING  JMP INSTRING,   . ,        INSTRING. E     (    )          S  D   . F     ,  :2000 DATA INSTRI %D  E K  M Y                  BASIC  ,              . BASIC               : SAVE, LOAD, PRINT#,    ,              . A DOS             '  ,              . A                  .    35  ,          ( T  1). E    256 . A       683 ,    664               19    18 ( $12   HOME             -  . T    ,               . T  '         . W '          ,           . P     . T         ,    SHIFT   +  < >. P  +   SHIFT        ,    -   SHI          ,         . T     ,                        . T       . W   SAVE,    ,  '                            . BASIC           (DOS)           . DOS   -       . T B  R  B  W                   . B          . "D  E "                      DATA    S  D               NL   20. N   39 K ROM         ,         . F   NG,50000A                NL. I   ,      ,   20     20 NL=40(NL  39  INSTRING  .) T,  JSR 50000  JMP 50000       ). D  E        $12,  0,       256    . (A    D  E           .) T        -  . M   ,  CTRL-W          . T     ,  +             . P -      . T INST/DEL        . T  T                           . F   , DOS           . S         , '               . T  ,  LOAD "DISK EDITOR",8,1  NEW. T            SYS 12000.H  U IT  D  E    , '          . A C      FT       . A         CTRL-J (J ),                       . T           . A     0     . T             . T       ,  HOME        ;   CTRL-J. W         BASIC                . T                                    . N            . P CTRL-R            . I              T  1, D  E    ILLEGAL TRACK OR SECTOR     CTRL-R  . D  E         . I  ML    820-840. I  ML       , S  D   '      . C         ML   30         20    RAM.C    P Y %P SJ  HW          64'  ,   , '                     . "P S"          . I         ,      . F ,    "P  C." B                      . A     . S            -   . A         , P  C        P S. D ,            . I          ,      SYS 64738. T       $CF00-$CFFF   RAM   I/O     K ROM. A                , P S    . O  : I  %S  D   L  G  I '           , '        JSR $C738. W '      JSR DISPLAY ? "S  D   "   RAM-       T  S  D   ,        (ML)         ;     S  D   . S  D           "DISASSEMBLER"         BASIC  . E       . P 1          8    S  D   . P 3             , 5          ,  7            . T  BASIC  . T            . T      ,    . P  1        ,              . P 1        .M      . I        BASIC'  ,       BASIC   H=INT(AD/256):POKE 56,H:POKE 55,(AD-256*H):CLR AD         BASIC (    AD        POKE AD-1,0:NEW AD         BASIC (    AD          ML  ). E              S  D   . S  D            ,  ,  - ,        . P S    : T LOAD"PRINTSCREEN",8    RUN. P S       . N,           ,      .) A       ,         .C   T P I P S          , '     "P  C"  ,              . F ,  P  C        ,     . T            . W '         ,  RETURN                 -   .N  F P S     . I      BASIC      . RUN/STOP-RESTORE        . T    ,               49151,    '  . P           '  ,  '  C -RESTORE                    .         JMP  JSR            . T             ,                  BASIC  K ROM.G  S   ML  '       . N,               . I  '  S  D         ,   RETURN. N,     . U       6             RAM  ROM. S      YES               RAM   BASIC  K ROM. I        NO,        64'       C I'                 BASIC'   (2048-40959)       820-840. I     , S  D          ML  . T         ML  ). E              S  D   . S  ,        BASIC'  ,        BASIC   H=INT(AD/256):POKE 44,H:POKE 43,(AD-256*H):        . W        ,     C      RESTORE. T  . I    ,        . (N: T           !              (   )      . T              :L    Q  ! N  LOAD (  ) (.) (.)                -     . Q  !   . I                      . T         ATN     BASIC,  LOAD"NEWQUICK",8 (  128,     64 );   RUN   RETURN. A   QUICK155,              Q  !    . E        256.         ,  RUN/STOP. T    QUICK155,  SYS155*256+3. Q  !     . U  LOAD  VERIFY     . T     '             . M  192*256+3.I   P A  Q  !     ,  '      K ROM      . A      /     Q  !    . I           Q  !    !  . F ,     Q  !      202   NQ  . (T         RAM    Q  !  .) S        QUICK202. N,  SS  (  3.0   ),        5 3.5 5.0 20 6.0 15.0 30 7.0 21.0 60 10.5 40.5 126 18.8 83.0V         . T    ,               . T                            . B       , Q  !          F   ,          Q  !      192, '        :DESTINATION BLOCK? 192(E          .) A NQ        ,           Q  !.H I W Q  !                   ;    ,       ROM  . O , Q  !           ,        Q  !       . Q  !        --            . A            , Q  !            ,           :POKE2481,202:SAVE"0:  ",8           SS   . T  SS   Q  ! ,     QUICK202         LOAD  Q  !. W   126-   , Q  !               .M  Q  Q  !       155-158 ($9B00-$9E00)     159 ($9F00)  . I       ,     '  . T           (DMA)         . T       ,            . Q  !         ,             . I ,        ,  Y,      . NQ        Q  !. (I'                . F     ,  '             . W        , Q  !     SEARCHING FOR FILENAME . W     ,             . I       , Q   ,       ,     5  6    '  . T       "UC"        CPU  JMP         . T        ,        , Y"QUICK202",8,1NEWSYS202*256T,           SS .         RAM    Q  !  .) S        QUICK202. N,  SS  (  3.0   ),          Q  !    BASIC  "NQ  ." N Q        Q  !  QUICK155    256-     -     . NQ              BASIC. T  NQ'              OPEN, PRINT#, GET#, INPUT#,  SAVE. Q  !   '      .Q  !  SS E  SS           RAM,      Q     QUICK192.) T           Q  !,    :LOAD"0:QUICK192",8,1 (      )NEWSYS192*256 (       )T       , '  SYS MS  II              . H,                 . S  II        , NEXT   FOR,    . E  38705,0:OP$=  :GOSUB 60000:POKE 38706, :POKE 38707,:SYS 38813OPEN    , ,, POKE 38705,   :POKE 38706, POKE 38707,:OP$= :GOSUB 60000:SYS 38740PRINT#    ,  POKE 3870 - A             .ILLEGAL STATEMENT USE - A             .NON-EXISTING LINE - A GOTO  GOSUB             .SYNTAX -    FOR  .TYPE MISMATCH - S           .COMPILATION ABORTED - E   STOP           (   ,   ).MISSING COMMAMISSING PA               . T              80      .DISK ERROR - T            . I    ,         C  BASIC. A    100        C  BASIC,              . F    ,              . F ,              DATA                           . I      ,     ,    . S  ,  %Q  !A  Z T  1541                     C  64.N: T          1541   ( 1541C)   1571  1541     . I    64    1571,     1541        . S             . U ,                ,    '           155                Q  ! . (T       155*256,    39680.) O Q  !   ,    LOAD/VERIFY       . Q  !           5,   :SYS 38722:PRINT   :SYS 38740SAVE   , ,POKE 38706, :POKE 38707,:OP$=  :GOSUB 60000:SYS38764STATUSSYS 38806:STAT=PEEK(38709)VERIFY   , OP$=  :GOSUB 60000:POKE 38706, :P  08      .DEVICE NOT PRESENT - T            ,     .NOT SUPPORTED - A       C  BASIC    S  II  .ILLEGAL FUNCTION USE           . F   ,        FOR  ,          FOR    . B   ,    NEXT      NEXT WITHOUT FOR   A   ,   ,     .TOO MANY FORS - I      '     ,    19 FOR/NEXT    .NEXT WITHOUT FOR - A NEXT             RENTHESISMISSING SEMICOLONMISSING EQUAL SIGNT S  S  IIS                 S  II. R           . T        15  50  LOAD"DOODLER"    ,          . N,          . N    ?     S  II. R           . T        15  50  OKE 38705,1:SYS 38813 I           ,            "SPR II ROUTINES"       . I   ,      DIM OP$(253)         .E     1541    OPEN15,8,15,"U0>M0":CLOSE15. O  128    1571,      ( 64 )       C         .A  '       ,          . "Q  !"           LOAD  VERIFY  .G  ST  Q  !  BASIC,  LOAD"QUICK155",8,1 (  128,     64 )    RETURN. T SYS 155*256  39680   . T      RUN/STOP-RESTORE. R  QUICK155      SYS155*256. D'  RUN/STOP-RESTORE   Q  !          . D                  . I    . Y'            . N                     .S  II E MBAD FILE - S  II      . T             DIM  . FOR. T           C  BASIC,          . T TO  ,   STEP  ,    ,                   ;     . T    ,              ,          . F   ,    :SUM  A=B,    < >1    0   ,        X. T    C=D     Y. N X  Y            IF  . INPUT. E INPUT           VALIF...THEN... READS A            S  II    S  II K   . M           BASIC,       . DATA. T DATA  T AND            . S  II         3   SID  . MID$. T           C  BASIC: MID$($,)  MID$ ($,,). O                 . A    ,    CLOSE 1    POKE 38705,1:SYS 38710  S  II. S  S  II   REM  , '                         . E     . A ,  FOR     ,    ,   NEXT  . GET. I S  II,  GET               . T   '     ,      = A+X*Y+B+I*J Q1 = X*Y:Q2=I*JSUM = A+Q1+B+Q2 S                 BASIC. T      (      )       . N          . I   ,  ,       ,    ,        . T     ,  ,     .F S  II   C                : I              ,          '     (YOU ARE   YOUARE.) DIM. T DIM           -     S  II. ASC. I C  BASIC,          ("")       . T      S  II. I,     0  .F  O T      S              . H'    : POKE 38705,1:SYS 38710:REM CLOSE 1.F  C CLOSE    POKE 38705,   :SYS 38710CMD    , POKE 38705,   :SYS 38722:PRINT  GET#    ,   POKE 38705,GET           ,   VAL              . IF. T             AND  OR  . B                           . W           ,  LET    .S  II KABS INPUT REMAND LEFT$ RESTOREASC       . T            ,   . A ,        . F   , ABS(RND(0))   . T           S  II       . M         ,     . A                  ,              . O           . S  II          ,    S        . S  II          S      . I,     F  C           :SYS 38731:GET    :SYS 38731INPUT#    ,  POKE 38705,   :GOSUB 60100:  =OP (      )POKE 38705,   :GOSUB 60100:  =OP$ (     )LOAD   , ,POKE,          :IF A=B AND C=D THEN...I         IF (A=B AND C) = D THEN...T    ,           :X=A=B:Y=C=D:IF X AND Y THEN...T       LEN RETURNCHR$ LET RIGHT$DATA MID$ RNDDIM NEXT SGNEND OR SPCFOR/TO/STEP PEEK STR$GET POKE SYSGOSUB POS TABGOTO PRINT      BASIC: RND. T RND            < >32768  32767,       . T         ,     ,     Z=32768/ :N=RND(0) AND 32768/Z%S  IIR A. S   D  PH'  BASIC              50   . W            , "S  II"   C  64 BASIC  ,  ,      ,     (    )              BASIC  . Y     ,     LIST, ' 10 SYS 2061T           ;    (   ),         ,  -      . S  II          ,    LEFT$, RIGHT$, MID$, PEEK, STR$,  VAL. U         S , S  II    . V                 (           ,   POKE  THEN). O     15     , . I             (%)      ,         . N                STOP . I            ,    RUN        . H,    -    . S     0  126. A    DIM         11   ,   0  10. T      ,  ,                . "S "        J 1986   G. T               OPEN, CLOSE, PRINT#,  GET#. R           ,   '   LIST      . E            .C, V  ,  E S  II          C  BASIC. H,                ,       .U  S  IIT   ,  ,      BASIC        . Y          BASIC     64. I   ,            ,                 ,        -   . S                  ($). S      ,        , '        BASIC  (   )      . S  II           ;      GOTO  GOSUB,      IF/THEN  . B  BASIC,                       . I           . N      S  II     ,            . W   ,              ,           . H,             . S,   '      . C       BASIC  ,   -1, 4353,  "HELLO." S  II     :    . I         -32768  32767. H,        . T       ,  S  II            . W '        ,        (S  II         ,    ). N,   . I       , DIM    ,      ,            . T              253. I        , S  II    ,  '     DIM (IF...THEN DIM...)     FOR. O       , '                   ; S  II     -  . A  , ,  ,  . T    S  II  +, < >, *,  /,        AND  OR,       =, <, >, <>, <=,  >=. P    . U   BASIC,   ,         .S  II   BASIC         BASIC        64,    LET, FOR, NEXT, IF, POKE, PRINT, READ, DATA,  INPUT. I           POKE, PEEK,  SYS  . S           . T            '      . S  II                  LOAD "SPRINT II",8,1. A    ,  SYS 32768. Y'           BASIC  . W   , S  II         . A      ,   A 0Ml  UUSIDE ONETG2AMENUMN GO64TEXT READER README1526 PRTSCR.A BAS MUSIC.A3COMPARATOR.A KK DISASSEMBLER.A DISKEDITOR.A FAST ASSEMBLER.A@MOB MAKER.A4QUICK155.A PRINTSCREEN.A METABASIC.AXRAPID TRANSIT.AKKSPRINT II.A9TURBO FORMAT.AULTRAFONT+.ABKKKKKKKKKKK%M M B T "M M "       '           64. I                .S      64             . Y                      . I         ,   1   . T        3. D   (      16. T     (  0)      . T    '                 . Y'             . T    '                         . T              . P        . N, '        . B      ,        . F ,                   . T          '     .G  SA  M M        ,                  LOAD. I       RETURN       ,     . I                    ,  $ (SHIFT-4)       64  . "M M ,"                    (M  O  B  ),                      . I   "S  M " (GAZETTE'     ). Y        M M '  .M    M P SHIFT-F. T         . P   F         . N     -   -    . W'         . N '    . I  '   ,  SHIFT-CLR/HOME      . T       ,          16   . T                    . B             . I         ,  RETURN     . O      ,          SHIFT-L. Y'      BASIC  . T    ,  LOAD"MOB MAKER",8 (  128,     64 ). P       2;  RUN   RETURN. Y'   M M     . M M        -  . P        ;   RETURN        . I          S  M ,               16. B               ,     A 1984  1987 ), '            . Y'         M M    -      S  M . B M M    S  M          . T -  -       .L , S ,  DATA S A '       ,      SHIFT-S. A                     . U           . N               . P              . Y            NAME/RETURN=EXIT  . T      (                  ),    RETURN. I            ,                  ,              . P SHIFT-CLR/HOME       .Y F  S A     , '     . W M M     ,                  . BASIC DATA              SHIFT-D (     ). T    -  (   ,   ,   )     SHIFT-D  . Y'        . I                --     . T                                . M M      -                . B     Z. N,             . (A  ,   RETURN                   .) T        , '             . T   ,        +  -         . F ,     0        16,   1    17,       ,       ,            .W    C T     :  -     . L'      - ,         DATA           BASIC  ,       1     1. A          "MBASIC," GAZETTE'       ,              .T S  P  . P SHIFT-W  " "   . P W      .U   BW                   ,                             ,         . P C  ,        3    . E     . I               ,        S (S  )      ,         . U           . P         '    . A '     M M    , '           2  18,   .C V  P V      (  ). A          ,      1  9. T    1;     9. T               . T          ,   C (C ) . A     CHANGE COLOR OF1=BACKGROUND3=SPRITE COLORRETURN = EXITP  1 ,  '         . Y      A '         ,                          16. T              ,   +  - . W          . T       ,   I (I ) . T         . T      ,        16    +  - ;   I. A               . P M       . T              . T         . P  SHIFT-M            . N          . B       ,     -, -   . B          ,                .E MP X          .                    +  - . T                 +  - . T     ,       5,   .M   S T  16     ,          ,       COMMODORE    CONTROL               . O ,                  SHIFT ,        (     )      .S   S T                 . P 1      0, 2    1,   . W       CURRENT DATA SAVED. A             O (O  ). T                   . T                     -           . M       ;                . S  M         M M              P Y      . P               . B      SHIFT       X  Y,           .K   G A  ,                   ,      ,              . N              . T -/ -       10,    -/ %D  R  T K T"D  R  T "        1541  1571    . I    130-     35 ; '          1541     -  DOS  . I'    . J    : O   ,        (),            .M  D B  Y      C    (SHIFT-CLR/HOME). T D            --     . P  C          . A            :CHANGE COLOR OF1=BACKGROUND2=M.C.0. 013=SPRITE COLOR4=M.C.1 11RETURN = EXITT        ( / ).1-8 S    0-7.V S      .W B    .X T   .Y T   .Z A    (0-7)     + I     .- D  SHIFT-X T      .SHIFT-Y T      .SHIFT-M T        .SHIFT-L L   .SHIFT-S S      .SHIFT-D C &  .SHIFT-INST I       -     1. P          .Q    E P  Q            BASIC. Y   M M   BASIC    RUN  . H,      BASIC %B   M G TN               . "B   M "     BASIC,               64'   . I '        . I    DEL ,                               . T                   . T I               . D  R  T                                 .G  SA          ,            - . P  3,       ,           . M            . N               .     .$ C      .SHIFT-CLR/HOME C    .SHIFT-F T     .SHIFT-R R     .SHIFT-+ I     .SHIFT-- D     .SHIFT-W W       DIRECTORY    BASIC,       SYS 2106.M M  Q  RC A   .D S        .DEL D    .HOME M     .I S    L X     .SHIFT-C C       ..SHIFT-F T     .SHIFT-R R     .SHIFT-+ I     .SHIFT-- D     .SHIFT-W W       (SHIFT-INST)              . T      ,      1. (S  255  .) T C   (SHIFT-C)           . A    "    --         --"B   M "     -- .W    -  SID  ,  64                   . UN  C        2  4     . N                     . B   2  4     . T                     BASIC  . W '    D  R  T ,  LOAD "RAPID TRANSIT",8    RUN. T     '      . F   ,            ,      S        .M T        .O G    .Q Q --   BASIC.R S         .S A   .U S        .F T          +  - . I          ,  A. U            . P              . E       %C M  J. G I '    BASIC  , '                          . M           . W  ,     ()  . D  R  T         8. T      ,           . P T          9. P T            . S        SYS 49152. C                     . I C      ,                     ,        ,    BASIC,       .U  T D I            ,         8;  ,   9. W               , C       . W                 ,     . Y'                    . I              ,                 1. T                  . I               ,               . W    ,  BASIC               '   . "C "   BASIC          ,  ,  8. T          ,  $.E  UI         '                , '                . W ' . N,                    . E   S ()  P ( ). T          . O           ,   ,           8. A 1571         9               (       ). A 1541  ,    ,                           . D  R  T          . B          . I '           ,          . M ( M         '     1. P  1           (           ). A '          ,  C ( C)  M ( M    . Y             . T    ,    LOAD"COMPARATOR",8,1. N,           . A      ,              ,   1   -    2   -  . T               . A     ,     ,            . I     16  ,                      . C                  . I                 . W      . A    , D  R  T              . S  R      . Y                      RETURN      .C    128C          128 BASIC  ,             . T                  128' BASIC   ),                    . I           C,        . I         , ,       ,        7.0     64' BASIC 2.0. I       128 BASIC     C ,    64            64  .. Y'               %1526 P SJ  HW          ? A                 ? T "1526 P S." T         -           RUN. N,                . W       ,     C     RESTORE. T  . W     C  ,                        ,   '          . N                          . T               . (T  -         1525',                  .) A       ,        CHR$(254)            0  7. F   ,                5. B       CHR$(254)  ,                          . %T F R O "T F "   , --       . I         9.5 ;   1541         20 . T'         . I'           . I        C  64    . I       - , ,  ,   (    ),   -    . T 1526    P  FORMAT",8    RUN. T       (                 );                  .T E SY'          . (N                ,      .) A           ,     . P S      BASIC       ,                         . N          ,  T F         . M        ,          . A , 1526 P S '               .P  NT 1526            . P S           7. T                . T        , P S                  . T        CHR$(141)     S       C  1526  MPS-802  . I    1525   E-     ,  "P S,"           .G  ST    ,      LOAD"1526 PRINTSCREEN",8    T   ,               ,                1526                 .$(141)                         : $CF00-$CFFF,  RAM   I/O    K ,    0  . P S        ,    '        '                1541       . A '        ,  '        . T  T F ,    LOAD "TURBO                           5. E       -       ,                       (  16 ). V           ,           ,                . T         ID. T    . O                             ,         BAM (B  A   M). N, '              . T F               ,       -              . I'                 . T       ,        . A ,                -. A                . P  1   . T                               . T                 /  ;      -                        RETURN. N, ,      RETURN        . I     ,                                . W        ,           OK     . A                    . I'     1                     . I        ,     17    9.5 . V               . T    7         . I         ,                IO:  . F           . I           ,        ,         ,     -   . I            '                    -  ,       ,               . I'            -   . M                                . B            ,        . T           ,         - . T F      - ,                  . T         T F                  /             . T         ,      -     . T                    ID              .T K   F  T      45  . I     1      45   (      ),             45    . I  ,         ,    ,    . I   ,                   . I   RETURN,                     . T            . D             . T              /     35     . B   1   ,                      8          . O   ,    ,           . E    ,     - ,           . A ,            RETURN       ID                   . A                         1. U  T F        , -   .N K A       RETURN   ,    . A                              . A      ,                      -   . A                  ,             %U +C  BA                              . I        ,              ,         . A         ()   ,          . A          ,   -    10 . T            $0B00 (2816)  $0BFF (3071). I         BAM   ,                  BAM     . B , ,      B                 '    . Y      (, , ,   )              . I            ,                  . T        ,        . T                    100-    . M                                . I              1541,       . "U +"                   .G  ST  U F+,     LOAD "  ",8,1. A   ,  NEW   RETURN          . T      SYS  U +, '           /      - .A  G T            . Y      . I              ,      . I      , '  . H                     . I            . D       T F            . I                     BAM     (    ),               . Y                                 . T HOME              (256 X 64   ). T              . W     ,          . T   '        AM                                    . F             1541, T F            ;        SYS 49152    RETURN.T D  A      '      . T   256     ,     32- . N              . E      64    (     "    "),    8 X 8  . A         '     ,               . N                ,                  .         1541, T F                  -      . I     ,              . U        2            . I       ,  C    A       ROM.T (T). T        . T   ,            . Y       ,    BASIC.   90 . P          .M (M ). C          .CLR (SHIFT-CLR/HOME). E   .CTRL-R  CTRL-9 R  . A   )  9 ( < ->      ).M   T          (    ). Y  ,  , , , ,  ,   . T             . I   ,         , U +                  . P    '          ,  '     ,               . P               . I      "C  S"   D  1985   COMPUTE!' G,      . Y                 8. T                . Y          -  . B    T                     - . P  RUN/STOP      T    U +.S   L  C ST          ,  S;     ,       . T                .CTRL- ( ). C         ,  ,         . T  ,              . I'      . T              .F  K1. S     . A      . T                       . (T         64             . T        ,  L    TAPE OR DISK  . E    . I '      U +  . T    ,              L         . Y'            . Y                  '     ,  7      . T ,                ,    8         .C  DATA S A      T    D    . W ,     ,   16 . D'   0:    '       ; '       . T   ,       ,               CTRL-      .F (F ). U              . I '     A     F          .2. S    . W       1.3. S    . A     . T           .4. S    . W       3.R (R). R, '       . I      ,            . I           ,   V       . A         0 ( ,        . A  , '        ;               . I        , '    ERROR ON SAVE/LOAD. O        C  S  .C   M  CY            7  8. W   7,        ,       . U +      . U +       . Y '                      . J   5 . P-    . T        ,  . Y      /        ROM,    .A W  N W   M   Y'     . T'          U +,      . I   RESTORE                 . I    ,  '       '  . T   ,     POKE 648,4  SYS 49152   U +       ,   CTRL-X  CTRL-D. I     ,        DATA     . S                   DATA       .E   U +A    DATA,          BASIC  . I     ,  DATA      . I         CTRL-D,      '  NEW    U +. T NEW              . T             ,    1     00,    4     11. W    SYS  U +,               TV   . Y           (          -   ,         ). Y          ,              . M    ,              . O        ,         . M            . I      .R  U +T  U +      ,  SHIFT-RUN/STOP. A '    BASIC,    U +   SYS 49152. Y'            ,       USE ROM S'    U +. I         DATA         ,  CTRL-X. T           '   READY  . I '  DATA, LIST   . I'          '          . Y   U +,  NEW    BASIC  ,    '   ,   SYS 49152  U +   DATA             . J    SHIFT             '  . Y     PRESS COLOR KEY. N         CTRL-1  CTRL-8   C -1  C -8. H              . T                 '      . T            . P     1, 2, 3,  4                   ,               . E         : 00, 01, 10,  11. E             0  10      ET? (Y/N). U , U +    ROM    RAM      . I   N, ,            . P   ,  RETURN,       ROM   CLR     BASIC           DATA  . O      : D'  RUN/STOP-RESTORE    U +. T             1024,   RUN/STOP- . T DATA        63000,         . I   CTRL-D  ,    DATA     ,         63000  . S        ,   , CTRL-D,      DATA      '  . U + '   DATA      ,     ' . A   CTRL-D, U +   DATA         , POKE 53270, PEEK(53270) OR 16. T       53281-53283. T         ,          CTRL   C                               :10 POKE 56,48: CLR50 READ A: IF A=-1 THEN 7060 FOR I=0 TO 7: READ B63 POKE 12288 + A * 8 + I, B66 NEXT: GOTO 5070 PRINT CHR$(147);"10 DOWN": REM TEN CURSOR DOWNS80 FOR I = 0 TO 7: FOR J = 0 TO 3183 POKI           ,                . Y                . P SHIFT-1              SHIFT-2            . Y   CTRL-9  CTRL-R (R)       (  1     4,   2     3,   3     2,    4     1). R (R)             ,   4 (     11,  3    )        8 CTRL  . A       C                    . I  , '        3 (   , ,   F - F    ROM L - L F   S - S F  T - E   :; RUN/STOP  7 - M    ( )8 - R   ()5 - S        .Q  R C C  - M   HOME - M       V - C   ; 0( ) - 9()1 - S      2 (SHIFT-1) - S  3 - S  4 (SHIFT-3) - S   E 1028 + J + I * 40, I * 32 + J86 POKE 55300 + J + I * 40, 1: NEXT:NEXT90 POKE 53272, (PEEK (53272) AND 240) OR 1295 END Y'                DATA  :63999 DATA -1 I             . U SHIFT-4            .H  U  DATA S T DATA       63000  ,    . E        . T                    . M (M )            2  3   . A        7  8 ( ).R   N  Y       4)                . T              1  2 (   53282  53283),        . W            6 - R     CTRL-D - M  DATA  SHIFT RUN/STOP - R U +CTRL-X - E  U +  BASIC ) - C       , ,    CTRL-F - C     R - R 90 ;    M - C M  CLR (SHIFT-CLR/HOME) - E CTRL-R  CTRL-9 - R   CTRL- ( ) - C       , ,    CTRL-F - C         ,     ROM   RAM   20 POKE 56334, PEEK (56334) AND 254:POKE 1, PEEK (1) AND 25130 FOR I = 0 TO 2047: POKE 12288 + I,PEEK (53248 + I):NEXT40 POKE 1, PEEK (1) OR 4:POKE 56334,PEEK (56334) OR 1 T          (     POKE    ). I          . T                       . H'           6 (SHIFT-5). I         ,              . M                      .        , '        4. S             '    . Y    1  2       ,          ,        CTRL  C       . I ,   ,           ,  . T     (    1,     )      16  . B         ! A0A1:"TEXT READER",8,1456,56:55,0:\F49153:FL49170:I8201023:I,0:r(N14:T$(N),A$(N)2I014:T$(I),A$(I):<SP$" "FA$"COMPUTE!'S POWER TOOLS DISK":CX20(A$)2 PZ$"":A$%H  U  D  G     64    14           G. T                    . S              . I'            .* "D  R  T "                       . I       1541   1571. Y          " $;0 "éšӬî";c ""; "----------------------------------------"; SCP8:ECP87:ENEN IS E:"";(177ICP8);"";T$(I); (SP$,36(T$(I)))  --   . I     1525  E      . (2  )* "1526 P S"               1526  MPS-802  .* "Q  !"   1541                1541  .* "U F+"     -       -- . Y                     .G  RA  '         R  T . O '        ,                   . Y                        . (S               14 --  . B          :* "B   M "     BASIC,               64'   . W       ,    .* "F A  "    -    ,  -        .* "MBASIC"  32         . T  G          .* "M M "           ID       . Y     T F  (      )       . B              .A  D  M P T         (SP$,CX)A$SP$:I1405 ZZ$Z$(((A$,I))128):H dNP(N8):CP0` n53280,15:53281,15 x53282,8:53283,1:53284,6 400 "":53280,15:53281,15:53265,(53265)64 (142)""; ""Z          . T             1571    1541 . (2  )* "S  D   "   RAM-              . M                     , '         . D  R  T ,       ,               (           ). T                              . (2  )* "C "               BASIC  .* "D  E "                '           64. I                .* "P S"     -            --        -     -,           .) T       BASIC,     OPEN15,8,15,"N0:   ,   ":CLOSE15       16          2 . B              . F    ,                  . T      ,    ,          . P.* "S  II"      BASIC      -    . M      BASIC       50   .* "T F "                 9.5 --8    ). T      . I          ,   SHIFT LOCK . P           . I         ,  RUN/STOP. A '        ,           $24;  -   ,  $45. T ,  1 (800) 727-6937. C --'      !L E --A  P D  H --M, D  PT T --P  A K S  , T  T    P--     C    (    4,   7). I             - . I      --,   -     - --    -C               . O        , '      . T     '          H  . D'        . Y    H  0: 6΅Ʌ m   LɌ ɍɍ Ѝ!Щ  $Ʃ 7` ݳLʊ HHHH`ɍ Ѝ!Щ؅ɅíɅĢ ɑ`         ,             --  ( ,               ). I             ,      M ( M). A    ,                      . ****I '     ,          COMPUTE!' G? E   Ġ Lɭ)`ɭ)ɍ`  x`8ɭ`  x` x qɭi 8ɭɰ` iɭi x`Ҡ ͠ ` m `̘0 kL`8J8ɨ ,  SHIFT-P         . W  SHIFT-P,            ,   ,   (     ),    ,      . O '        H. T     ,  RETURN   H  . T      ,     (Y'                .) I        '   ,  ,  K U --C E **********A            COMPUTE! P  , I. A    . N         ,       ,      --     . A ,     C   ,     . O '        ,            -- (                               ,    ,  ,   ,    ,   ,   . A              C  64  128. A -      ,   ,  ,  ,   --            .********** E --A  P D  H --M, D  PT T --P  A K S  , T  T `(爱 'ȄɑeÅåiĎɘɬɱ0ɑ( L?i(LÍɥč`ɩ`ɥ`ɅɅ`i΅iɅ``ɭ` ` `@Ɍ` \` !Щ      B  T,   . I       ,  CLR/HOME. Y'           . F         ,         . T    --   ,               . N                --  . T                . S kňL®ɩ7 ͽ6L© `Ɍ kň`L és 80i0 ǩ 80 i0 ǩ̠ 80i0 ǩ YN ȩ SC Cȩk YN Ȓ ISPLAY THIS ELP SCREEN ’ HANGE ACKGROUND COLOR Ԓ HANGE EXT COLOR RSR P CROLL TEXT DOWN RSR OWN CROLL TEXT UP /Œ O TO THE TOP OF TEXT -В HOOSE ARAMETERS ANDS ANY KEY TO TRY AGAIN OR / TO QUIT.- -`@ @KB:PBTPH 6L'­NGLE OR OUBLE PACING (1/2               BASIC  . F   , PRINT 'END       128,     BASIC   END. I            ,  ASCII                     RETURN. T           ,  AUTO  . Y                . T                1. T           BASIC    .BASIC M     E T          BASIC :S  . S                 L7  0éɩɩɩ 8080   ĩ͠ ƥ?б` ɍɱ,Gɭͪɐ댗ɱ ΙɈLȱ ɘ8ei Y íɍɩGɅ ŭͭɐ 8Ʌ$"   RINT В RINT WITH DEFAULT PARAMETERS͒ ETURN TO ENU PROGRAM RESS Β FOR TEXT & TO USE COMMANDS ELECT RINTER ARAMETERS: EVICE UMBER (4-7)? 4 ECONDARY DDRESS # (0-9)? 7 INGLE OR OUBLE PACING (1/2     .OLDI      NEW,           . I       '     . I '           ,          .  /   . I      ,          . H         $       %. Y             . 'A      ASC("A"). Y                  . T  AUTO ,  AUTO          RETURN. T         . T          . T  AUTO ,  T   FA,   LOAD "FAST ASSEMBLER",8. T  RUN. T   SYS            . T    ,           ,     FA    . Y  L`LO8ɨ0 ňɍɩɅ  8C80 F 0â ɌɈ0 ň` )  L`80mɍ ň` k8 k`ɠ١ɰYɬ`LOADING...RESS: O: )? 1 END INEFEEDS (ْES/ΒO)? Ν INGLE-PAGE OR ONTINUOUS EED (Ӓ/Ò)? ÝNSERT NEXT SHEET, PRESS Β RE THESE CORRECT (ْ/Β)? ٝ DISK ERROR. PRESS RETURN TO TRY AGAIN. RINTING... HECK YOUR PRINTER, THEN PRES           RETURN. K   RETURN  '            . I    RETURN     ,    POKE 650,128     RETURN  '   . T                   .L  . Y            SHIFT     SHIFT-LOCK. T            SHIFT .ASCII       REM  DATA              BASIC . F   , 10 REM AB         10 REM     BASIC   .N BASIC C AUTO   T         ST ( )         0         . A      -                     . K. B            REM  . I               . F   :10 X=0:REM SET X TO ZERO     10 X=0;SET X TO ZEROT        PRINT  INPUT      REM     ! ,        1        ,            . F  ,                                   ; TARGET OF BRANCH IN 6090 DISPLAY1=* ; THIS LABELS THE CURRENT PROGRAM COUNTER100 ;110 LDA #65: JSR $FFD2: RTS R                   ,   REM,    FA. T     90       . A    :ORGORG ORG ,  D        : = 49152 (=$C000)  = 0  = 0     I               '                  . I         ,              . O        LABELNAME=*. T   (*)       ASCII           . I      0,      0.A   C A                      ,   '   ILLEGAL DIRE       (   )     (   ML        ). B FA '     . Y             BASIC  :10 FOR PASS=1 TO 3(I     . M            . Z  '    ,         ,  '                 . O              ('    , '         ):50 JSR DISPLAY1; JUMP TO LABELED SUBROUTINE (LINE 90)60 LDA $FF: BNE SKIPIT ; CONDITIONAL BRANCH AHEAD TO SKIPIT70 TYA80 SKIPIT: LDX #4: STA $8000,X: RTS   ML  . I            . I        ,      0        1       . ORG            (  ). N    .U  L   V    AL               . T                . Y        ,     .: Y      '  ILLEGAL DIRECT ERROR. A     I   A ,                          0-255. O         ,                                . A ,      DISPLAY1    LDA #65,              90  110.T P  A  T       ORG, '  UNDEF'D LOCATION COUNTER ERROR. T          . U ,              . O                                 . T                . Y         *. Y              *=. H'        CT ERROR . A            .ORG , , , T            . I    . F ,       (ORG),           )90 NEXT PASS:END I           LSR (), '  ILLEGAL ADDRESSING MODE ERROR. M          ,  ,        RUN. I          , !    . Z        . B                   ($0801-$121B)    BASIC     ($A000-$BFFF). A        8-11   "     TEXT    ,       1. I  2    ,     ,         140. T         -  ,  TEXT       . I  3  !    BASIC   DEF, RETURN, CLR,  NEW,        SEND  INCLUDE. T               9. I            . T        '   ,   !  49152 (  $C000). L  200            (*). Y            RUN. T         :PASS 1 0 49165PASS 2 49165 49166PASS 3 !     . I                  . A                 256. T         . E          !   BASIC       . I      , '    MISSING LINE NUMBER ERROR. I        ,    SEND   ,            . Y  !       INCLUDE        10-  . L'  '                             K   SETLFS, !     3        . T           -  . I  1 TEXT       256,  -     . T    -     . T !                             . T        PRG        BASIC              . A    !UNSEND                BASIC .E   P  L  110  120        ORG. I  ,  110   0. B   3,  120   1. T      !        . I     1        PRG                . T         8.BYTE  , ,...T              !   OPEN                  .SEND  T   SEND                 . I'         BASIC  . S   !      8-11 ( 8         ). I                  ,   ()     INCLUDE               . A          ,   ! 49166 49166 T          . T            TEXT     LDA TEXT,X   140. T                      . Y   !    .WORD  , ,...T         BYTE                    65536. T           /   .INCLUDE  , T!               . T    ORG        BASIC RAM (2049).UNSENDI          BASIC  ML,        BASIC  . ! SETNAM,  OPEN. Y            K              "OPEN"    . T,      ,  INCLUDE "OPEN",8. W       ,      "                 . A            BASIC                 . U          :100 POKE 56,PEEK(" MOB MAKER,MOB MAKER.A& ULTRAFONT+,ULTRAFONT+.A> QUICK!,QUICK155.A] DISK EDITOR,DISKEDITOR.A& BASICALLY MUSIC,BAS MUSIC.A0 PRINTSCREEN,PRINTSCREEN.A: 1526 PRINTSCREEN,1526 PRTSCR.AD SMART DISASSEMBLER,DISASSEMBLER.A N" ADDRESS,1P 1   90 INCLUDE "PART 2",8100 INCLUDE "PART 3",8110 NEXT PASS:END T          INCLUDE         ,                 ":KER,MOB MAKER.A& ULTRAFONT+,ULTRAFONT+.A> QUICK!,QUICK155.A] DISK EDITOR,DISKEDITOR.A& BASICALLY MUSIC,BAS MUSIC.A0 PRINTSCREEN,PRINTSCREEN.A: 1526 PRINTSCREEN,1526 PRTSCR.AD SMART DISASSEMBLER,DISASSEMBLER.A N",        . D               0. M 0                 . T            TOPOFME"";+ "A$:A$(13)(A$"1"A$"8"A$"X")290_ ,A$"X""":53265,27:65409:56,160:55,0:: 6A$(13)CPCP1:CPNPCP0 @A$(13)140 JFV((A$)48):FVFV7(FV8) TCFVCP81:C0370 ^CN290 h"":53265,27 rI1"HEN ORG ADDRESS,1S 90 LOAD "SECONDPROGRAM",8SECONDPROGRAMS 90 LOAD"FIRSTPROGRAM",8 N       . Y'          . T    ,       "" INTO THE TEXT READER, SELECT OPTION 1"<" ON THE NEXT SCREEN."k"  "MT$:MT$""460 HOW TO USE THE DISK,README METABASIC,METABASIC.A DISK RAPID TRANSIT,RAPID TRANSIT.A"   1K            .L P I    '     ,            INCLUDE. F   :10 FOR PASS=1 TO 320 ORG ADDRESS30 IF PASS=3 THEN ORG# ,           . F BASIC,     PEEK  POKE (       )       . T            . "B   M "   "56)-4:CLR110 TOPOFMEM=PEEK(55)+256*(PEEK(56)+4)120 ADDRESS=0:MODE=0130 FOR PASS=1 TO 3140 ORG ADDRESS150 IF PASS=3 THEN ORG ADDRESS,MODES 900 NEXT PASS910 IF MODE=1 THEN END920 ADDRESS=TOPOFMEM-*930 MODE=1:GOTO 130 I    " COMPARATOR,COMPARATOR.A0X FAST ASSEMBLER,FAST ASSEMBLER.ALb SPRINT II,SPRINT II.Aol TURBO FORMAT, TURBO FORMAT.Av53265,27:"";FF$"LOADING "(34)D$(34)(40(FF$))2)FF$" PLEASE STAND BY"  . A          ,    '   FOR-NEXT    . Y         . F   :FIRSTPROGRAM10 PASS=PASS+1:IF PASS=4 THEN END20 ORG ADDRESS30 IF PASS=3 T";0 "----------------------------------------";:X "THIS IS PAGE #";CP1;"OF";NP1 "PRESS  FOR NEXT PAGE" "Ӡ"(184(CP1)); "ϠĠΠŠ"; "ӠؠϠԠϠà"M. T                   . MODE    1                        (         ). L  100  "(A$(C)):IF,((A$(C),I,1)):2 |FL,(A$(C))2:D$T$(C)U "":D$A$(C):630:49171:140 (14)(8)" EFORE ATTEMPTING TO RUN ANY PROGRAMS" " ON THIS DISK, PLEASE READ THE FILE" " . O LOAD THIS FILE"    . I             . T                ,         . PASS=PASS+1:IF PASS=4 THEN END20 ORG ADDRESS30 IF PASS=3 T#- E,   - G. T    , 4,      . I  ,        1    , 2    , 4   ,   . T           MUS  #. U  #          - ( )             - (  ). I     ,             --   : MUS,,G3#,2.C   SS # 0  15. T ATT               . U  0        2 . U  15      8 . T DEC           . A    0  #             ( SID           --    ). B   ,                               #      , "FUR ELISE.DEMO,"    BASIC,      B   M  . T    ,      B   M    . T  LOAD"FUR ELISE.DEMO",8   RUN   RETURN.T M  C T# , VOL,  SPEED. E                 . F         SID  '  ,   P ' R M  COMPUTE! B ' M   64. F      # . T             : MUS,,, . T                     . MUS X,X,X,         ,        . A    # B   M '             . T              SID  . T          ADSR  --ATT, DEC, SUS,  REL (ATT , DEC, SUS ,#    6 . A    15       24 . T SUS                          . V     0 (    )  15 (   # .G  SA          , B   M       BASIC  . T    ,  LOAD"BAS-MUS",8 (  128,     64 );   RUN   RETURN. A   RUN,#       MUS. I               . I   MUS 1,2,3, . H'      :10 MUS C4,E4,G4,4T            -- - C,          SID    '       , A A  64, V   2,    COMPUTE! B ,    . T VOICE             SID'   . H     #  MUS      . H'    :MUS C4,X,,4W      ,   1    - C ,   2   ,    3    . T MUS            #  REL). T ADSR          (   )     . T          COMMAND      1,      2,      3. F   ,      #  ). F  ,  REL                 . A    0       6 ,    15       24 . T      VOICE, PULSE, RING, SYNC#              . S        BASIC,         ,       SID  '  . W '        ,      -  #         BASIC,      SID  ,      -    ,      . A    ,       BASIC      -   . I