@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr 44)?Ң794q484 4 \`).(8 @ ҩb \Lb`hKc!^}zB~zx"U~^ 40 i`ϣ߳ϣ߳H J3xj2h2000 REM MS2010 DIM BMS$(763)2020 BMS$="hhhhمh؅h݅h܅Reԅ֩eՅl#hh}IHD"2030 B}MS$(75)="E B Viq֥iHHi֥ilȱ`ȱڅiڥiۤ)"2040 BMS$(150)="8ڪi֥iHHi}֥ileڅڥiުi֥iHH"2050 BMS$(225)="i֥ͅileޥihh i+֥ }iHHi֥il"2060 BMS$(300)="ȱ0ȱڅiڥiۥ))i!eڥiЭ؅ڥمۥ܅ޥ݅ "2070 BMS$( }375)="IIDEBIH V `eԅ֩"2080 BMS$(450)="eՅl~  } ȱ઱ވފ ޤ0㈈ު"2090 BMS$(525)="ɜ! ީueԅ֩eՅli }᪥)A"2100 BMS$(600)="[&).0:)  0)@Ьޥ) i֥iHHi֥ͅi"2110 BMS$(675 })="leޅީe߅eԅ֩eՅl `ɀɠi@8 `"2120 BMS$(750)="eXȱeY`":BMS$(371,371)}=CHR$(155):BMS$(430,430)=CHR$(155)2130 BMS=ADR(BMS$):SENDMAP=ASC("S"):RECVMAP=ASC("R")2140 POKE 752,1:CHANNEL=5:OPEN #CHANN}EL,4,0,"K:"H`Q R!!  % !   / .   FȑF! /GF \H"+0+*  /d;'Basic Mapping Support.'n$X********************************x X* BMS.SRCX* C.F.Fogarty IIIX* 06/02/87X* Ve}rsion 07/15/87X*X* Description:#X* Basic Mapping Support (BMS).)X* SEND or RECEIVE a Full Screen Map.X*X* C}all from BASIC with: CIOVVH SAVMSCXRGET.A.BYTE\PUT.A.BYTE fX*p$X********************************zX* Misc. Equates.}$X********************************IS.IT.RECVMAP RIS.IT.SENDMAP SX*#X*******************************X* Bra }nch Macro.X* An Unconditional branch.#X*******************************B ,D X*#X*******************!}************X* Branch And Link macro.#X* A Relocatable JSR instruction$ X* Format:.X* BAL 16.bit.register,label8#X**"}*****************************B BAL L,V/QBASE.ADR;;Set up return address (for RTS).`O>4@RETURNCSECTjP tQ#}BASE.ADR~O>5@RETURNCSECT5Q 5+QBASE.ADR;;Set up address to branch to.O>4 CSECTP QBASE$}.ADRO>5 CSECT P '@RETURN!@ :;;Now Branch And Link.X*$X******************************** X* BR%}anch Macro.$X* A relocatable JMP instruction. X* FORMAT:(X* BR 16.bit.register,label2$X*******************************&}*<BR F,PQ>4 CSECTZ OBASE.ADRdP nQ>5 CSECTxOBASE.ADR P $!@ :;;JMP to Base+Displacemen'}t.X*;;RELOCATABLE. CSECT $X********************************X* Entry Point.$X************************(}********X*7>;;NUMBER OF PARMS PASSED.77"?;;OPERATION - SEND OR RECEIVE.7"PSAVE.MAP,PWORK.MAP6)}7@ PSAVE.MAPJ PWORK.MAPT7^PSAVE.DAThPWORK.DATr7| PSAVE.DAT PWORK.DATX*)>IS.IT.RECVMAPHI*}TS.SEND.MAPBR R14=ITS.RECEIVE.MAPX*ITS.SEND.MAP #X*******************************X* Processing for SENDMA+}P.#X*******************************(>HSEND.THE.MAP77X*CLEAR.THE.SCREEN &#X*************************,}******0X* ERASE Option for SENDMAP.:#X*******************************DQ>}N PSCREENXQ>b>l PICBLH9vQ> PI-}CBLL9 Q>4SCREEN PICBAL9 Q>5SCREEN PICBAH9Q>PUT.A.BYTE PICCOM9 CIOVX*SEND.THE.MAP $X*********.}***********************X* SENDMAP Mainline.$X********************************"BAL R14=GET.SCREEN.LOCATION 3!Q@/}WORK.MAP7;;LENGTH OF FIELD. "HCONTINUE;;Done when LENGTH=0.*:4X*>CONTINUE H$X********************************R!X0}* Save LENGTH and ATTRIBUTES.\$X********************************f PLENGTHp "LENGTHz3Q@WORK.MAP7PATTRIBUTESX1}*$X********************************X* Jump over the map header.$X********************************, QWORK.MAPO2}> PWORK.MAPQWORK.MAPO>PWORK.MAP X* $X******************************** 'X* Is this a Constant or a3} Variable?$ X* A=0 Constant use MAP.. X* A=1 Variable use DAT.8 $X********************************B %LENGTHL QATTRIBUTE4}SV M>VARIABLE.BIT` HUSE.DATj X*t USE.MAP ~ $X******************************** !X* Put the Constants (text) on X* t5}he Screen. $X******************************** Q@WORK.MAP7 > BAL R14=CONVERT.TO.SDC P@SCREEN7 1 IUSE.MAP 6} #LENGTH X* NEXT.MAP.LINE $X******************************** !X* Point to the next Map Line. $X*******************7}************* ,( QLENGTH2 OWORK.MAP< PWORK.MAPF QWORK.MAPP O>Z PWORK.MAPd X*n JUMP.BACK x $X********8}************************ #X* Loop back to process the next X* line of the MAP. $X******************************** B 9}SEND.THE.MAP X* USE.DAT $X******************************** #X* Use DAT Record for Variables. $X********************:}************ Q@WORK.DAT7 > BAL R14=CONVERT.TO.SDC P@SCREEN7 1 IUSE.DAT #LENGTH" X*, NEXT.DAT.FIELD ;}6 $X********************************@ $X* Point to the next field withinJ X* the DAT Record.T $X****************************<}****^ ,h QWORK.DATr OLENGTH| PWORK.DAT QWORK.DAT O> PWORK.DAT $X******************************** #X*=} Loop back to process the next X* line of the MAP. $X******************************** B JUMP.BACK X* ITS.RECEIVE>}.MAP $X******************************** X* Processing for RECVMAP. $X******************************** 7 7 T?;;CHA?}NNEL * 16& T?0 T?: T?D PCHANNELN X*X RECEIVE.THE.MAP b $X********************************l X* RECVMAP Mainline.v $X@}******************************** "BAL R14=GET.SCREEN.LOCATION X* $X******************************** "X* Get the LengA}th of the Field. $X******************************** 3 #Q@WORK.MAP7;;LAST ENTRY ON MAP? #FRESTORE.MAP;;YES - RESTORE ITB}. PLENGTH;;ELSE- CONTINUE... X* $X******************************** X* Get the ATTRIBUTE byte. $X********************C}************ 3 Q@WORK.MAP7 PATTRIBUTES X** $X********************************4 X* Jump over the map header.> $X***D}*****************************H QWORK.MAPR O>\ PWORK.MAPf QWORK.MAPp O>z PWORK.MAP X* $X***************E}***************** X* Now check the ATTRIBUTES. $X******************************** QATTRIBUTES %M>VARIABLE.BIT;;Is it F}a Constant? #FJUMP.OVER.TEXT;;Yes - Skip it. &QATTRIBUTES;;No - Its a Variable. 3M>PROTECTED.FIELD.BIT;;Is this Field G}Protected? FBOUNCE.NEXT;;Yes - Skip it. 'HRECEIVE.A.FIELD;;Else- Receive it. X* JUMP.OVER.TEXT $X***************H}*****************#X* Jump over the text to get theX* next MAP line.$$X********************************.,8 QWORK.MAPI}B OLENGTHL PWORK.MAPVQWORK.MAP`O>jPWORK.MAPtHRECEIVE.THE.MAP~X*RESTORE.MAP $X****************J}****************"X* Restore to the first line ofX* the MAP.$X******************************** QSAVE.MAP PWORK.MAK}PQSAVE.MAPPWORK.MAP QSAVE.DAT PWORK.DATQSAVE.DATPWORK.DAT HRECEIVE.THE.MAPX*RECEIL}VE.A.FIELD ($X********************************2#X* Receive a Field from the MAP.<$X********************************F%>M}PX*ZCURSOR.ON d$X********************************nX* Turn the Cursor on.x$X******************************** Q@SN}CREEN7N> P@SCREEN7X*SCAN.THE.KEYBOARD $X********************************X* Check for User Input.$X****O}****************************QR>FSCAN.THE.KEYBOARDX*CURSOR.OFF $X********************************P}X* Turn the Cursor off.$X********************************" Q@SCREEN7,N>6 P@SCREEN7@X*JGET.KEYPRESS T$X******Q}**************************^X* Get ATASCII Input.h$X********************************r $CHANNEL| Q>4BUFFER PICBAL9 R}Q>5BUFFER PICBAH9Q>GET.A.BYTE PICCOM9Q> PICBLH9Q> PICBLL9 'SAVE.Y CIOV %SAVE.Y QBUFFES}RX*$X******************************** X* Keypress Editing Routines:&$X********************************0X*:CMP.RET}TURN D$X********************************N R>RETURNX HCMP.TABb:lX*v CMP.TAB $X********************************U} R>TABFBOUNCE.NEXTR>DOWN.ARROWHCMP.BACKSPACE$BOUNCE.NEXTBR R14=NEXT.FIELDX*CMP.BACKSPACE $X***V}*****************************R>BACKSPACEHCMP.CTRL.DELETEX* 'SAVE.YC FDELETE.CHAR1  "SAVE.Y*,4DDW}ELETE.CHAR>X*HCMP.CTRL.DELETE R$X********************************\R>CTRL.DELETEfHCMP.CTRL.INSERTpX*z 'SAVE.YX}NEXT.MOVE3 Q@SCREEN7>Q@WORK.DAT71P@WORK.DAT7A P@SCREEN73 )LENGTHHNEXT.MOVEDELETE.CHAY}RQ> P@SCREEN7Q> P@WORK.DAT7 %SAVE.Y$,. DBOUNCE8X*BCMP.CTRL.INSERT L$X*****************************Z}***VR>CTRL.INSERT`HCMP.SHIFT.DELETEjX*t 'SAVE.Y~ %LENGTHNEXT.INSERT11Q@WORK.DAT7> Q@SCREEN73[} P@SCREEN7AP@WORK.DAT7 )SAVE.YHNEXT.INSERTFDELETE.CHARX* CMP.SHIFT.DELETE $X********************\}************R>SHIFT.DELETE(HCMP.RIGHT.ARROW2X*< 'SAVE.YFERASE.EOFQ> PP@WORK.DAT7ZQ>d P@SCREEN7n3x ]})LENGTHHERASE.EOF %SAVE.YBOUNCEBR R14=CURSOR.ONX*CMP.RIGHT.ARROW $X********************************^}R>RIGHT.ARROWFRIGHT.1.CHARX*CMP.LEFT.ARROW $X********************************R>LEFT.ARROWHCHECK.DAT_}ATYPEX*C FNO.MORE"1, NO.MORE,6 DBOUNCE@X*JCHECK.DATATYPE T$X********************************^#X* Accep`}t or Reject the KeypresshX* based on the ATTRIBUTES.r$X********************************|>X*ALPHA.OR.NUMERIC? $a}X********************************QATTRIBUTESM>ALPHA.VS.NUMERIC.BITHNUMERIC.TESTX*ALPHA.TEST (> ADNb}UMERIC.TEST (> ZDACCEPT.INPUTX*NUMERIC.TEST QATTRIBUTESM>WHOLE.VS.DECIMAL.BIT&HWHOLE.NUMBER.TEST0c}X*:DECIMAL.NUMBER.TEST D(> .NFACCEPT.INPUTXX*bWHOLE.NUMBER.TEST l(> 0vDSPECIAL.CHARACTER? (> 9Dd}ACCEPT.INPUTX*SPECIAL.CHARACTER? $X********************************QATTRIBUTESM>SPECIAL.CHAR.BITHATASCe}II.CHARACTER?X*SPECIAL.CHAR.TEST (> ;;A BLANK SPACEDATASCII.CHARACTER? (> /DACCEPT.INPUT X*ATAf}SCII.CHARACTER? $X*********************************QATTRIBUTES4M>ATASCII.CHAR.BIT>REJECT.INPUTHBOUNCEHX*RACg}CEPT.INPUT \$X********************************fAp0P@WORK.DAT7;;Store character in Data Record.zX*QATTRIBUTES/M>h}BLIND.VS.DISPLAY.BIT;;Display this field?"HRIGHT.1.CHAR;;No - Skip it.BAL R14=CONVERT.TO.SDC-P@SCREEN7;;Storei} character on the Screen.X*RIGHT.1.CHAR $X********************************3 )LENGTHFNEXT.FIELDX*NEj}XT.CHARACTER $X********************************HREJECT.INPUTX*$NEXT.FIELD .$X********************************8k}$X* Point to the next field in theBX* DAT Record.L$X********************************V,` QLENGTHj OWORK.DATt PWORKl}.DAT~Q>OWORK.DATPWORK.DATBR R14=RECEIVE.THE.MAPX*$X********************************X* SUBROUm}TINES:$X********************************X*CONVERT.TO.SDC $X********************************"X* Convert an ATASCn}II characterX* to Screen Display Code.$X******************************** ,AR> ( DADD.642R>`<DSUBTRACT.3o}2FR>P DO.K.ZR>d ECMP.224nADD.64O>@x HO.K.CMP.224R> EO.K.SUBTRACT.32;S>  O.K.:X*Gp}ET.SCREEN.LOCATION $X********************************X* Position the Cursor.$X********************************%>q}Q@WORK.MAP7 OSAVMSC PSCREEN3Q@WORK.MAP7"OSAVMSC,PSCREEN6:@X*U/@@g/@]10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.16 REM BOTMDOT1210 REM FILENAME = BOTMDOT1.LS s}T220 REM CHARACTER SET DATA FOR: GEMINI SG10/15 AND EPSON FX80/100 (PRINTHEAD BOTTOM DOT VALUE=1)230 DATA 33,8,0, t}0,0,8,0,8,0,8240 DATA 34,0,0,0,0,0,0,20,0,20250 DATA 35,20,0,20,107,20,107,20,0,20260 DATA 36,8,119,8,1,126,0,72,54,8270 u}DATA 37,70,9,102,18,8,36,51,72,49280 DATA 38,61,66,4,66,57,4,32,4,24290 DATA 39,0,0,0,0,0,0,8,0,8300 DATA 40,2,4,8,0,8,0,8 v},4,2310 DATA 41,32,16,8,0,8,0,8,16,32320 DATA 42,0,34,20,8,119,8,20,34,0330 DATA 43,0,8,0,8,119,8,0,8,0340 DATA 44,16,8,0 w},32,0,0,0,0,0350 DATA 45,0,0,0,0,127,0,0,0,0360 DATA 46,24,0,24,0,0,0,0,0,0370 DATA 47,0,64,32,16,8,4,2,1,0380 DATA 48,28 x},34,81,8,65,8,69,34,28390 DATA 49,28,0,8,0,8,0,8,16,8400 DATA 50,127,0,64,32,30,1,0,65,62410 DATA 51,62,65,0,1,2,28,2,1,12 y}6420 DATA 52,6,0,127,0,34,16,10,4,2430 DATA 53,124,2,1,0,65,62,64,0,127440 DATA 54,28,34,65,0,97,30,64,32,30450 DATA 55,1 z}6,0,16,8,4,2,1,0,127460 DATA 56,62,65,0,65,28,34,0,34,28470 DATA 57,62,1,0,1,60,67,0,65,62480 DATA 58,24,0,24,0,0,24,0,24, {}0490 DATA 59,16,8,0,24,0,0,24,0,24500 DATA 60,2,4,8,16,32,16,8,4,2510 DATA 61,0,0,127,0,0,127,0,0,0520 DATA 62,32,16,8,4, |}2,4,8,16,32530 DATA 63,8,0,0,8,4,2,0,66,60540 DATA 64,63,64,0,78,17,78,1,66,60550 DATA 65,65,0,65,62,65,0,65,34,28560 DAT }}A 66,126,1,64,3,124,2,65,2,126570 DATA 67,30,33,64,0,64,0,64,33,30580 DATA 68,124,2,65,0,65,0,65,2,124590 DATA 69,127,0,64 ~},0,120,0,64,0,127600 DATA 70,64,0,64,0,124,0,64,0,127610 DATA 71,31,32,65,0,79,0,64,33,30620 DATA 72,65,0,65,0,127,0,65,0, }65630 DATA 73,62,0,8,0,8,0,8,0,62640 DATA 74,28,34,1,0,1,0,1,0,3650 DATA 75,65,2,68,8,112,8,68,2,65660 DATA 76,127,0,64,0 },64,0,64,0,64670 DATA 77,65,0,65,0,65,8,85,34,65680 DATA 78,67,4,65,8,65,16,65,32,65690 DATA 79,62,65,0,65,0,65,0,65,6270 }0 DATA 80,64,0,64,0,126,1,64,1,126710 DATA 81,61,66,4,73,0,65,0,65,62720 DATA 82,65,2,68,0,63,1,64,1,126730 DATA 83,62,65, }0,1,62,64,0,65,62740 DATA 84,8,0,8,0,8,0,8,0,127750 DATA 85,29,34,65,0,65,0,65,0,65760 DATA 86,8,20,34,0,65,0,65,0,65770 }DATA 87,65,34,85,8,65,8,65,0,65780 DATA 88,65,34,20,8,0,8,20,34,65790 DATA 89,8,0,8,0,28,34,65,0,65800 DATA 90,127,0,32,16 },8,4,2,0,127810 DATA 91,14,0,8,0,8,0,8,0,14820 DATA 92,0,1,2,4,8,16,32,64,0830 DATA 93,56,0,8,0,8,0,8,0,56840 DATA 94,0,0 },0,0,0,0,34,20,8850 DATA 95,127,0,0,0,0,0,0,0,0860 DATA 97,61,66,0,70,56,2,124,56,0870 DATA 98,126,1,64,1,126,0,64,0,6488 }0 DATA 99,62,64,0,64,0,66,60,0,0890 DATA 100,63,64,1,64,63,0,1,0,1900 DATA 101,62,64,0,127,0,65,62,0,0910 DATA 102,16,0,16 },0,60,0,16,8,6920 DATA 103,30,1,0,1,30,33,0,33,30930 DATA 104,66,0,66,0,66,60,64,0,64940 DATA 105,28,0,8,0,24,0,0,0,24950 } DATA 106,56,68,0,4,0,4,0,12,0960 DATA 107,34,4,40,16,40,4,34,0,32970 DATA 108,28,0,8,0,8,0,8,0,24980 DATA 109,73,0,73,0,7 }3,54,0,0,0990 DATA 110,33,0,33,0,33,94,0,0,01000 DATA 111,28,34,65,0,65,34,28,0,01010 DATA 112,32,0,32,0,62,1,32,1,621020 } DATA 113,3,0,2,0,62,64,2,64,621030 DATA 114,32,0,32,0,34,92,0,0,01040 DATA 115,126,1,2,28,32,64,63,0,01050 DATA 116,4,10, }16,0,16,44,16,0,161060 DATA 117,60,66,0,66,0,66,0,0,01070 DATA 118,8,20,34,65,0,65,0,0,01080 DATA 119,54,73,0,73,0,73,0,0, }01090 DATA 120,65,34,20,8,20,34,65,0,01100 DATA 121,60,2,1,30,33,0,33,0,331110 DATA 122,94,32,16,8,4,122,0,0,01120 DATA 1 }24,24,0,24,0,24,0,24,0,24 9980,<~<?s0x DL 4"24(h(jV877208,,224,2 10 REM DEMO.LST20 GOSUB 2000:REM INITIALIZE BMS.30 GOSUB 1000:REM INITIALIZE YOUR MAP.40 X=USR(BMS,SENDMAP,ADR(TEST$),ADR(}DTEST$),ERASE)50 X=USR(BMS,RECVMAP,ADR(TEST$),ADR(DTEST$),CHANNEL)60 POKE 752,070 ? CHR$(125):? "IT WORKED"80 END 999 RE}M ENTER "D:TEST.MAP"1049 REM ENTER "D:TEST.DAT"1998 RETURN 1999 REM ENTER "D:BMS.LST"3000 RETURN 7,8,9,8,175,9,9,9,10,18f%&~PfLPENLPENSTRIGXMAYMACYMIXMIAdAe@"xW(@$8)xrAd} DRAWGUN.BASBY MATTHEW RATCLIFF(c)1988, ANTIC PUBLISHING('6-6-'6-Ad}<6-Ad6-AeP[+@%@'A IA@%@$@[A@Z 6}-F:,d+@',6-A'%n6-&@xSCALER -> (227-86+27)=168B6-A$'AhB86 <= LPENH }<= 227, PAST 227 THEN 0-27 6-!A6-A 6-F:,6-&@SCALER -> }(111-17)=94:6-A$'@:17 <= LPENH <= 111 IN MY TESTS 6-!A6-A}TR:,"@ 1*0,:@@,DJ,T @ @, @D1:DRA}WGUN.BAS=31999 REM SPIRAL DISSOLVE FOR BIT-MAPPED MODES(GR.3-11,14-15)s(@32000 DIM SPBTDIS$(417)nII(@ 10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.18 REM FX80LOAD.LST80 REM EPSON FX80/100 CHAR}ACTER LOADER100 ? "}":POSITION 5,5:? "Is printer DIP switch 1-4 off?"150 FOR I=1 TO 90:READ LTR:? #7;E$;"&";Z$;CHR$(LTR);CH}R$(LTR);CHR$(139);160 IF (LTR=103) OR (LTR=106) OR (LTR=112) OR (LTR=113) OR (LTR=121) THEN GOSUB 210:? #7;Z$;Z$;:NEXT I:GOT}O 180170 ? #7;Z$;Z$;:GOSUB 210:NEXT I180 ? #7;E$;"%";Z$;:REM SELECT DOWNLOADABLE CHARACTERS190 ? #7;E$;"0":? #7:REM 8 LIN}ES PER INCH210 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:NEXT J:RETURN II(@32035 SPCHDIS$=>:@4,7@<@E10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.18 REM G10XLOAD.LST80 REM GEMINI 10X/15X CHAR}ACTER LOADER150 FOR I=1 TO 90:READ LTR:? #7;E$;CHR$(42);CHR$(1);CHR$(LTR);Z$;160 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:NEXT} J:NEXT I180 ? #7;E$;CHR$(36);CHR$(1);:REM SELECT DOWNLOADABLE CHARACTERS190 ? #7;E$;CHR$(48):? #7:REM 8 LINES PER INCH920} DATA 103,60,64,0,124,2,64,2,124,0950 DATA 106,14,17,0,16,0,24,0,0,241010 DATA 112,2,0,2,60,64,2,64,62,01020 DATA 113,96,0},32,30,33,0,33,30,01100 DATA 121,30,32,64,60,66,0,66,0,0LL(@32070 SWPDIS$(86)=>:@4,7@<Ap,>::_tFNTEMPARDPLLA MAKEAUTO.BA }SBY ROBERT GRUNBOK (c) 1985, ANTIC PUBLISHING#66(CREATES AN "AUTORUN.SYS" FILE FOR PRNTLOAD.BAS)(GG(LINES 10 }-220 MAY BE USED WITH OTHER BASIC LOADERS IN THIS ISSUE.-##CHANGE LINE 70 AS NECESSARY.)2&&;@ ,;@ ,;@ },<$6-F:B,$BAUFI6. D:AUTORUN.SYSITHIS IS THE NAME OF THE DISK FILE TO BE CREATEDP3 + }3(! ANTIC'S GENERIC BASIC LOADERZ(BY CHARLES JACKSONdB Apn1( (( Creating 1(...p }lease stand by.x## "6-;,#6-@ 6.".-@B:,@.ARAUL6-&@ }#-@@L((Countdown...T-P:'@,) =!67<,.>:A:7<%@,,,/6-%@3 = A0 }SF:A,"@((8(TOO MANY DATA LINES!P(CANNOT CREATE FILE!SH %@(-(TOO FEW DATA LINES! }E(CANNOT CREATE FILE!H @@5Af@#(@5Af(@ }+(( Ġ 156cc25525500000614100616200018902600320106924000523223223220824423214210500618902600313 }3205169107cc157026003232189026003133206169006157026003160000162016177205153107006200202208247169067141111cc0061690061 }41112006169018141106006096172106006240009185123006206106006160001096138072174105006cc165205157026003232165206157026003104 }170169155160001096000000000000000000000000000000000000000cc00007600000000003408306506604606806507907608407808208005806803 }4078085082255255226002227002000$ 006D1:MAKEAUTO.BAS,. hН`#$:D**̠Š @10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.18 REM OKILOAD.LST80 REM OKIDATA 92/93 CHARAC$}TER LOADER100 REM DON'T REMOVE THIS LINE150 FOR I=1 TO 90:READ LTR:? #7;E$;"%A";CHR$(LTR);160 IF (LTR=103) OR (LTR=106) OR$} (LTR=112) OR (LTR=113) OR (LTR=121) THEN GOSUB 210:? #7;Z$;Z$;:NEXT I:GOTO 180170 ? #7;Z$;Z$;:GOSUB 210:NEXT I180 ? #7;E$;$}"2";:REM SELECT DOWNLOADABLE CHARACTERS190 ? #7;E$;"8":? #7:REM 8 LINES PER INCH210 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:N$}EXT J:RETURN `c$ ""РŠҠ̠ӛZZ6.Phhhhhhhؠ ͑i$JdX; RAMOSDAT.M65nX; BY MATTHEW RATCLIFFxX; (c)1988, ANTIC PUBLISHING' ========= = =' =(} =x====/=====' ===========' B===== ======'  ====(}=======' == ===== ====' ===== ======' ====@==(}==="==/' =====B=X==`== =' B== =V===`====B=' =S=====:===(}==' =E=====K===D==' ==J== =V======' ===X========(}' ===========' ==`========="' == =========,' =)(}==========6' =========`==@ =======,@'J A  '"(`The instructions in the other doc file should be enough to get you going. This is just a supplemental doc in case your like m,}e and don't have Sparta dos (grin). I've tested the board and the SX212 will work connected directly to the sio port (w/out i,}nterface). Unforutunatly I was'nt able to get the board to run at all with DOS 2.X. The board will however work perfectly wit,}h XEDOS! In fact I was even able to use the Sparta dos directory! This is no a big shortcoming when you consider the fact tha,}t XEDOs will give you twice as much disk space and stays memory resident! BOOTING UPFollow the instru,}ctions provided with oasis jr. when you start editing the SETUP.RES file refer to the other doc file in the arc package. Firs,}t boot XEDOS, then select (M)-machine lang access, (R)-run a binary file,then tell it to run SX]COM. This boots up quick and ,}you will get an unexpected end of file error. Do'nt worry about it just select (R)-run a binary file and run oasis.com. That',}s it your board should be up and running in no time! Have fun SYSOPING!Many thanks are deserved and sent to Jim Dillow for ,}writing another handy Atari 8-bit file! SX.COM! SX212-direct and oasis would'nt have been easy without him!If you had any p,}roblems or questions and can't find anyone else to turn to I can be reached at CIS ID# 73500,2050and on GEnie as: N.PAPPAS1,}h ?( L_?H+ h ? 0)̍LQ? ) ) `=?? ??I1L?,12BMSENDMASDFMAPSDFDATERASRECVMACHANNEFNAMESDFDAT0SDFMAPSDFDATSDFDAT1SDFDAT2FBASSDFMAP2SDFDAT2SD0}FMAP2SDFDAT2BPTLINEFOUNWORDHELVARIABLETESTDATTDATTESTMAPMANUCULHLATTSDFDAT4TEMPSDFMAPSDFDATSDFDAT6SDFM0}APSDFDATLANGUAGELINENUINCREMENLABELFNWORKDANTESTSAVFILEISPACETESTVARHEADERSDFMAP0SDFMAP1SDFMAP2FSDFMA0}P2BSDFMAP4SDFMAP6HELPFILEIOBMS 0} 0} !"#$%&'()*0}+,-./01234567890}:;<=>?@ABCDE堾 D:SDF.BAS0} C.F.Fogarty IIIPUBLIC DOMAIN 08/03/87 A0 ESTART A&0( AP027A0}@&6-?:<<<<,76-?:<<<<,<:6.7@<@,$ A0:67B:,%@,.:F<(67B:,%@,.70}@<@,2 A0< A`P AP1Z7AAv&6-?:<<<<,76-?:<<<<,d3 A 6-0}36-A:7@<@,,nUNCTIONSx??APAA0APAPA A @L0}L_FUNCTIONS5 A A0! AP+ AP5 A $EFINE_FIELDSE36.) 0} 01-19EAA($"A$67@7,.05-246-?:<<<<,6-?:<<:,/6-%@v A ES0}TB:, @$AA6.6-?:< NAMEHi0}6.7@<@ ,$ A0:67B:,%@,.:_67B:,%@,.7@!<@(,i A0R6.7@)<@70},\TRIP_LABELfD 6-B:,!7,4 *!@:6.7@<&@,D App&7@@<@@,4Y& A0}z&7@8<@8,4Y& A 0&7@9<@9,4Y& A`$ILE_MAP" 6."67B:,%@,.0}.MAP* AP*@@ 6-B:,6-@4AA` ASIC$$(@ DIM 0}()-@@t% 6-%6-%@s!%6-6.7<,6.7<,C ApC0}(@ ()=>:@4,>:@4, A   AP$ HR.7 6. 67@u,. +0}67@,.76-8) -6-&%@)6-@:7<,,BL#"@4)"AU)"AS367<,.7<,@67<0},. L6-@L   $VRITE_CHR`) -6-&%@)6-@:7<,,jF@26-%F(@ 0}(,)=CHR$()t   $~SSEMBLER(@ =*-@@t% 6-%6-%@0}s!%6-6.7<,6.7<,= Ap=(@ .BYTE >:@4,>:@4, 0}Ap LOSE_MAP3 B@$6-06-3$RITE_BYTE) -6-&%@)60}-@:7<,,1@26-%1(@ .BYTE     $ILE_SDFI 6."67B:,%@,..SDF, A@0}I@@())6-?:<@<@:,767@1}<@,.>:,T67@<@,.>:B:,,l\#67@<@,.>:,<7@<@,4 \67@<@1},.>:@,v$NITIALIZEGG;A ,;AB,;Au,;@y,;A!,;Ap,GG;@1},;@9,;@A,;A `,;@V,;@F,RR;@,;@,;@@,;@@,;@@,;@@1},;A,<<;@,;@,;@,;@,;@2,OO;A$@$,;A `,;A `,;@1},;@u,;@u,**6. hhh hhBhEhDhIhHLV MS;Ac,TT6.Jhhhhمh؅h݅1}h܅Reԅ֩eՅl#hh}IHD^^67@u,.KE B Viq֥iHHi֥ilȱ`ȱ1 }څiڥiۤ)^^67AP,.K8ڪi֥iHHi֥ͅileڅڥiުi֥iHH^^671 }A%,.Ki֥ͅileޥihh i+֥iHHi֥il ^^67A,.Kȱ0ȱڅiڥ1 }iۥ))i!eڥiЭ؅ڥمۥ܅ޥ݅ ^^67Au,.KIIDEBIH V1 } `eԅ֩ ^^67AP,.KeՅl~  ȱ઱ވފ ޤ0㈈ު*^^61 }7A%,.Kɜ! ީueԅ֩eՅli᪥)A4^^67A,.K[&).0:1})  0)@Ьޥ) i֥iHHi֥ͅi>^^67Au,.Kleޅީe߅eԅ֩eՅl 1}`ɀɠi@8 `Ha!67AP,.eXȱeY`A67Aq<Aq,.>:AU,a67A0<A0,.>:AU,R1}" 6-C:,6-@:S,"6-@:R,\;AR@!6-@;@K:f MAPSpz]]67@,.J1}&߯)&аנ]]67@u,.J{$SSSSSSSS DDDDDDD1}DDD FFFFFFFFFFFF%SSSSSSSSSS DDDDDDDD]]67AI,.JDDD FFFFFFFFFFFFSS SS DD DD FFSS S1}S DD ]]67A#,.J DD FFSS DD DD FFB$SSSSSSSSS DD DD FFFFFF]]67A,.JFFF1}FFk#SSSSSSSSS DD DD FFFFFFFFFFF SS DD DD FFSS ##67AA<AA,.>:AU,]]67Aq,.J1} SS DD DD FFSS SS DD DD FF SSSSSSSSSS DD]]67AE,.JDDDDDDDDD FF3SSSSSSSS DDDD1}DDDDDD FF]]67A,.J|A Screen Design Facility|( D1}EVICE ==//67A,.>4sx MAP NAME ==>s]]67@,.J&߯)&1}б]]67@u,.J젱zOPTION ==> All Functions.{ Define Fields.' I]]61}7AI,.Jnitialize Variables.w Define Attributes. Test. File.g Cr''67A#,.eate NEW Map.q&1} TT6.J&߯)&в ^^67@u,.K젲P==>S$Cx1}(....+....1....+....2....+....3....+....4Rows( --67AP,.Y) Columns(01-40)$ TT6.J((((@1}(h(((((0(X((((( (H(p. 67@u,.(8 ]]67@,.J&1}߯)&дB ]]67@u,.J젴#Variable# Position: , Length:yy1}yy(P L ]]67AI,.Jx  Protected= =UnprotecV ]]67A#1},.Jted{<Display= =BlindF{Alpha-Numeric= =Numeric{!D` ]]67A,.Jecimal Point= =Whole Num1 }bers{!#Special Characters= =NO Speciaj FF67Aq,.3l6{q#ATASCII Characters= =NO ATASCII{t ]]671!}@,.J&߯)&ж堠~ ]]67@u,.J젶 1"}Language:| | s  ]]67AI,.JStarting Line Number:| |0{W1#}Incremen ]]67A#,.Jt By:| |{  Device:| | Filen ]]67A1$},.Jame:| |s s9 o Label ]]67Aq,.J/Variable Name:| 1%}| S   !Outp ]]67AE,.Jut Types:| |MAP | |DAT | |SDFsss/  1&} M GG67A,.4r==>| | (FILE or CANCEL).vs ]]67@,.J 1'}  ]]67@u,.J B 1(}  ]]67AI,.J j UP.........Display Rows(01-19) DOWN.......Display Rows(05-24) ]]671)}A#,.J VARIABLE #.Change variable  character.  ]]67A,.J END........Finishe1*}d. 2 CANCEL.....Abort. Z  6667Aq,.# QUATES 1+}6-C:, ' 6-C:,6-C:,6-C:,'6-C:, ' 6-C:,6-C:,6-C:,'6-C:,( ' 6-C:,6-C:,6-C:,'6-C:,1,}2 $< ARM_STARTF + 6. 67A `,. +67@,.P 6. D1 Z  6.6.6.6.d  6.#61-}.6.n 6-@6-@x $ D:SDF.BAS#-@ ( -@@$0>`f` `Lb{c) |cҍҽ}cҍxsҩxҢbc hc )X`؊H ҮGccGcҍ I) LcL`5/}HIcHc )L`d Ic)hh@ؘHUcIUcTcӭIhh@x X`x,{c0X` `HcIc`x)50}ҢVc  X` Vc]c`e`؎Rc*Kc `Rc`Rc /a b `Rc`؎RcKc)51}ALaTcFcMGcJc FccFcOc ) Rc`؎RcKc)LaOc ɛ Nc@ a HcdHc52} `Rc`؎RcTc Uc Tc 0 Qc) JcLc8HcIc8GcFcLcȮRc`؎Rc*""$3&53}@(K`H ɀ QcQch)J s Lb{c+McLb) Oc)@NcLbKcJMc Uc Jc ` `Kc*R54}c`Fc` a b?c>c?c>cR RAcșBcș`elc`W`v55}`v```6aPadaaaWbLb LEo=.F nVV ` `Dc Ec b{cUcTc`8څ˥ۅ̥8օܥׅݥe܅56}e݅`H֑ۥ֥װh` )) " )@`H(ȱא57}ȥڐ8ˑȱ̑heڅڥiۥڥ۰` eҩ*ҩ /aҩ֩`ש̅ةe٭ڭ c c d d8ˍdc̍dL58}c`b8˅ԩc̅ՠbc8ˑȹbc̑ȹbc8ˑȹbc̑` BHI} VX˥Y̩XiP˥Yi̢}e59}i(˥iLOeLOeU T`(!.$,%238#opyrightc "y*ames$illow0/"ox5:}3arasota &,!nother3hare 7are0rogramd''''''''''''''''''''''''''''''''''''''''''''''''''5;}''''''''''''''''''''''''''''''''''''''' I@`hhhhhhhBB BHBBh BBکeڅeۅ$4' Oasis JR and OASIS IV run Atari SX212 Direct! This is a REVISED configuration that runs both programs perfectly,9=}including automatically hanging up the phone on the user at logoff. After so many questions and requests concerning r9>}unning Oasis boards withthe Atari SX212 modem, I had to invest(?) $80.00 in buying one for myself. From all that I was told9?}, no one could configure Oasis to run with the SX212directly connected by the SIO cable with no external RS232 inrterface. 9@}To beable to use the SX212 direct connect, can save a SysOp between $60.00 and$110.00 for an external RS232 interface, like9A} ICD's P:R Connection, or Atari's850 interface. In other cases, using the SX212 direct connect, enables someSysOps to use 9B}their interfaces and a second modem on another system. The following are instructions for configuring OASIS IV and OA9C}SIS JR withJames Dillow's SX212 R: handler, SX.COM. These configurations will allow theBBS to hangup the phone when the us9D}er logs off. Also the BBS willautomatically and immediately reset on all dropped carriers. Please follow theinstructions 9E}to the letter, if you want your system to function properly. OASIS JR + SX212 In SETUP.RES answer the fo9F}llowing questions: SEND +++; YES RESET STRING; ATH HAYES?; YES 2400?; YES MODEM TYPE; 3 Logon your board in local mod9G}e, go into term mode by pressing CONTROL-9. Press SELECT until you are in ASCII mode. Type this command to the modem: ATX49H}C1E0M1Q0V1S0=1S12=20 (hit RETURN) This modem command sets the SX212 to run OASIS JR. You do not need to issuethis comman9I}d to the SX212 again, unless you shut off the SX212, or send it anATZ reset string. OASIS IV + SX212 In M9J}ESS.DAT change the following line numbers: #180; ATX4C1E0M1Q0V1S0=1S12=20 (CONTROL-M,CONTROL-J) #179; ATH0 (CONTROL-M,CON9K}TROL-J) #178; +++ (delete the CTRL-M,CTRL-J) In SETUP.RES change the following question numbers: #87; Yes to Hayes? #9L}86; Yes to 1200 default, high baud 2400 #75; 4 for MIO/P:R #67; Yes to send +++ and reset string The above configur9M}ations are a testimony to the versatility of OASIS BBSsystems, both JR written in 1986/1987 and IV revised in 1988. Neither9N} programneeded to be revised to make them completely compatible with Atari's SX212modem connected directly. I heartily tha9O}nk James Dillow for providing the R:handler that is needed for these configurations, and also Mr. Leighton Toews,who resolv9P}ed the phone hangup problem with the S12=20 command! OASIS SUPPORT BOARDS: 617-767-0760 2400 (PC Pursuitable MABOS node9Q}) 508-580-8722 2400 508-559-6844 1200 AU--(%}Twice the pixels in half the time...",,($How about some mu8,hi8OCAADISLTPPRNTOUZERFILFNOWASTBINDEPBLFROFILESKIKEYBOARAXSCREEBREAKE=S} =T}=U} !"#$% TAPELESS BY ROBERT GRUNBOK$$(c)1987, ANTIC PUBLISHING INC.+ =V} B A ! AP+ APLOAD ARRAY(? @`-$&%$)0"AU<-$&%?$2"67=W}<,.>:,  B"$<! B$!TRAP EOF ERRORF PRINTP4 A  P:.+",*+!,46-Z=X}66-P:@&,'@(6-@6-@d ! 7@<,n( 7<%&@,!6-%% ($x =Y}F:A,"A8AP B6-$MAIN PROGRAMM AAR@%6-+6-16-76-<=Z}GM(}Y A@-@@ 0( SIZING ARRAYB-@@Y(PLEASE STAND BY...'-@A=[} 'AY, )6-%@,AUA6-%@6- 6- A9F=\}:A,"A6' B9AY@4f!@5(!}Form has too many to printB(clearly.E(^(See Do=]}cumentation...cf 6-$6-P:',* 6-'6-P:', *6-%@  6-r A@A=^}A%(}7-@@ I( LOADING ARRAY[-@@r(PLEASE STAND BY...7-@A 'AY=_},7FORM FITS"R @ A00-@6@: @@> H @R A ,DO=`}ESN'T FIT, MULTI-FILL6 6-6-&6-@2-@ A02-@6@J" !-@)=a}" T @@^" !-@)" h r 6-%|"&@6-%@ 6- !=b}6-&! @!  >:@,FORM FEEDKAY@4'AR@9A@8=c}K@wv (}-@@'(Choose:9-@@W(nother copy of same formi-@@=d}v(ew form;-@@(uit#1K:; ADA'A@d.):"@=e}eD A+"@x(}!6-@+ Ap$"@!AR$AdAU A`=f}8 @ @)(>:@,.8 A@ A01;@@,;@@,;@ ,;@,B67@=g},. Q67@,.`67@,.z6-P:I:,&A,;,W6-6-@'6-@36-@=q}?BAUTORUN SYSB BMS LSTBbBMS SRCBrBOTMDOT1LSTBDEMO LSTBDRAWGUN BASBFX80LOADLSTBG10XLOADLSTBMAKEAUTOBASBOKILOAD LSTBRAMOSDATM65B READ ME BeSDF BASB.SX COMB<SXOASISRTXTB.RTAPELESSBASBTITLE BASBTOPDOT1 LSTBXEGSMGR EXEBCXEGSMGR M65?6-@K6-@W6-@$&FILE MENU0@S::KAR@'A 9A=r}@KA@@Da-@@ 8(Insert data disk into Drive #1J-@@a(Then press =s}N0K: A')0(}XE-E((bF-=t}@F((|ӠŠϠԠӠ|lE-@E((|=u}Π|vE-@E((G-@@#--(|9-=v}@9C(|G E-@ E((|ݠ|E-@!E((=w}7@D:*.*+6-@76-@ Ap B..=x}7@<@,4 DOS SYSA ''7@<@,4FREEAp??7@<@,0TXT*7@<@=y},0 A[6.7@<@,367@ <@ ,..[67@<@,.7@<@,1-@=z}@$7<,4 167<,..   -d(7@<@,*6-%@6"@@B6-@P6-%@={}d"@"Ap AC6-@6-@'6-A(1 A CAd@% K:=|}FA'A@d.):6-F6- &"@E6-6@& A`*%"@a6=}}-@% A`4&"@C6-6@& A`>%"@B6-@% A`H"AUA R4"=~}@'!AdAU*(}4 A\3AdAU3"*"Af%%% @)%!@9=}Ap%%% @)%!@Az( -%%)("@2AJ6-6A( A &6-A(.6=}-%66-%@ A J A< --%@ )(6-%.-5*9 <$> --@@$)=}:67<,.>:&A(,> W67@<@,.D:)6-@=-@@J7<,4.M'W A P%67=}<,.7<,!6-%@% L67<,..6-%@2-@@?7<,4.B'L A p%67<,.7<,!=}6-%@% 7AdAU47@<@ ,4DOS.SYS7.+6.7@<&@,("+$ AP=}DISABLE [BREAK]'@A'B7tA$/67@,. 67,.,67@,./$e -A=}6@<2@@@ b2e$z B(}&-@@=}8AY@4JAR@h(z-@@$D ( Press when ready%=}3K::)D A@.""8""ӢB""=}L""렠V""D1:TAPELESS.BASu67B:,%@,.u<dASTARZEBREATAPELESSBY ROBERT GRUNBOK$$(c)1A}987, ANTIC PUBLISHING INC.filename = TITLE.BAS WWTRAP 20:FAST:REM REMOVE FIRST 'REM' IF YOU HAVE BASIC XE OR BASIC A}XL FROM O.S.S.u B+@96-F:A`,%F:Aa,$AVM%@ @a%@@u%@A}@oA@'A 9A@KA@]A@@oAR@(F&(A}@____________________F(@ the tapeless -O%(@spreadsheet printer0(@O(@ A} ٠ 2L(@0(@ prints spreadsheetsL(@ sideways<Q%(@________________A}____((G(Press Ԡ to continueQ APF F:B2y,@@pZ;@,;@,*6.>:,96A}.>:@',C+UAR@gA yA@A@@n-@@ )(TURN A}ON PRINTER;-@@Q(Then press \@|@@K: APx)@g (A}}-@@ >(DOWNLOADING PRINTER CHARACTERSP-@@g(PLEASE STAND BY...m A0@8A}@@P:C(@W-@A[ mAYo@@+AY@4A}1(}C-@@\(Loading Main Programo%D:TAPELESS.BASjEF:A,"A8*AY@41(}; BA}E Ath (}-@ @A(Error # F:A, Occurred!SAY@4eARh~)6-F:A}@,&A(& )$@B7t$ D1:TITLE.BAS&@!+3AR@EA@R10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.16 REM TOPDOT1210 REM filename = TOPDOT1.LSTE}220 REM CHARACTER SET DATA FOR: GEMINI 10/15X AND OKIDATA 92/93 (PRINTHEAD TOP DOT VALUE = 1)230 DATA 33,8,0,0,0E},8,0,8,0,8240 DATA 34,0,0,0,0,0,0,20,0,20250 DATA 35,20,0,20,107,20,0,127,0,20260 DATA 36,8,55,72,0,127,0,9,118,8270 DATAE} 37,49,72,51,4,8,16,102,9,70280 DATA 38,94,33,16,41,78,16,2,16,12290 DATA 39,0,0,0,0,0,0,8,0,8300 DATA 40,32,16,8,0,8,0,8,E}16,32310 DATA 41,2,4,8,0,8,0,8,4,2320 DATA 42,0,34,20,8,119,8,20,34,0330 DATA 43,0,8,0,8,119,8,0,8,0340 DATA 44,4,8,0,12,E}0,0,0,0,0350 DATA 45,0,0,0,0,127,0,0,0,0360 DATA 46,12,0,12,0,0,0,0,0,0370 DATA 47,0,1,2,4,8,16,32,64,0380 DATA 48,28,34,E}69,8,65,8,81,34,28390 DATA 49,28,0,8,0,8,0,8,4,8400 DATA 50,127,0,1,2,60,64,0,65,62410 DATA 51,62,65,0,64,32,28,32,64,634E}20 DATA 52,32,0,127,1,34,4,40,16,32430 DATA 53,31,32,64,0,65,62,1,0,127440 DATA 54,28,34,65,0,67,60,1,2,60450 DATA 55,4,0,E}4,8,16,32,64,0,127460 DATA 56,62,65,0,65,28,34,0,34,28470 DATA 57,14,16,32,64,62,65,0,65,62480 DATA 58,12,0,12,0,0,12,0,12E},0490 DATA 59,4,8,0,12,0,0,12,0,12500 DATA 60,32,16,8,4,2,4,8,16,32510 DATA 61,0,0,127,0,0,127,0,0,0520 DATA 62,2,4,8,16,E}32,16,8,4,2530 DATA 63,8,0,0,8,16,32,0,33,30540 DATA 64,126,1,0,57,68,57,64,33,30550 DATA 65,65,0,65,62,65,0,65,34,28560 E}DATA 66,63,64,1,96,31,32,65,32,31570 DATA 67,60,66,1,0,1,0,65,66,60580 DATA 68,31,32,65,0,65,0,65,32,31590 DATA 69,127,0,1E},0,31,0,1,0,127600 DATA 70,1,0,1,0,31,0,1,0,127610 DATA 71,124,2,65,0,121,0,1,66,60620 DATA 72,65,0,65,0,127,0,65,0,65630E} DATA 73,62,0,8,0,8,0,8,0,62640 DATA 74,28,34,64,0,64,0,64,0,96650 DATA 75,65,32,17,8,7,8,17,32,65660 DATA 76,127,0,1,0,1,E}0,1,0,1670 DATA 77,65,0,65,0,65,8,85,34,65680 DATA 78,97,16,65,8,65,4,65,2,65690 DATA 79,62,65,0,65,0,65,0,65,62700 DATA E}80,1,0,1,0,63,64,1,64,63710 DATA 81,94,33,16,73,0,65,0,65,62720 DATA 82,65,32,17,0,63,64,1,64,63730 DATA 83,62,65,0,64,62,E}1,0,65,62740 DATA 84,8,0,8,0,8,0,8,0,127750 DATA 85,92,34,65,0,65,0,65,0,65760 DATA 86,8,20,34,0,65,0,65,0,65770 DATA 87,E}65,34,85,8,65,8,65,0,65780 DATA 88,65,34,20,8,0,8,20,34,65790 DATA 89,8,0,8,0,28,34,65,0,65800 DATA 90,127,0,2,4,8,16,32,0E},127810 DATA 91,56,0,8,0,8,0,8,0,56820 DATA 92,0,64,32,16,8,4,2,1,0830 DATA 93,14,0,8,0,8,0,8,0,14840 DATA 94,0,0,0,0,0,0E},34,20,8850 DATA 95,127,0,127,0,0,0,0,0,0860 DATA 97,94,33,0,49,14,32,17,14,0870 DATA 98,63,64,1,64,63,0,1,0,1880 DATA 99E},62,1,0,1,0,33,30,0,0890 DATA 100,126,1,64,1,126,0,64,0,64900 DATA 101,62,1,0,127,0,65,62,0,0910 DATA 102,4,0,4,0,30,0,4,8E},48920 DATA 103,60,64,0,124,2,64,2,124,0930 DATA 104,33,0,33,0,33,30,1,0,1940 DATA 105,28,0,8,0,12,0,0,0,12950 DATA 106,1E}4,17,0,16,0,24,0,0,24960 DATA 107,34,16,10,4,10,16,34,0,2970 DATA 108,28,0,8,0,8,0,8,0,12980 DATA 109,73,0,73,0,73,54,0,0,E}0990 DATA 110,66,0,66,0,66,61,0,0,01000 DATA 111,28,34,65,0,65,34,28,0,01010 DATA 112,2,0,2,60,64,2,64,62,01020 DATA 113,E}96,0,32,30,33,0,33,30,01030 DATA 114,2,0,2,0,34,29,0,0,01040 DATA 115,63,64,32,28,2,1,126,0,01050 DATA 116,16,40,4,0,4,26,E}4,0,41060 DATA 117,94,33,0,33,0,33,0,0,01070 DATA 118,8,20,34,65,0,65,0,0,01080 DATA 119,54,73,0,73,0,73,0,0,01090 DATA 1E}20,65,34,20,8,20,34,65,0,01100 DATA 121,30,32,64,60,66,0,66,0,01110 DATA 122,61,2,4,8,16,47,0,0,01120 DATA 124,12,0,12,0,1E}2,0,12,0,127@,.`67@,.T)67@,.)67@,.L^)67@,.)67@,.sD 44 9 :L6 ;L14۱ Turn Π BASIC 4 :LS4۲ Turn BASIC ;4 :Lu4۳ Run ]I}4 :L4۴ ROM O/S to RAM 4 :L4۵ RAM O/S to ROM 4 :L4۶ Missile Command à4 : ; :R BI}D:E45HI V W:HR :h10)өj 9 :L@5àΠ45 :LU921 өj 9 :Lu5I}àƠh5 :LU93 N5  9)өDLP45 ) LtL; :L4STR ) 9L5͠ϯӠ䡛I}Ҡ5 :L656Ӡ塪5 :`L6R :SLH6̠ŠԠ*6 :Lk6CONVERT ROM OS I} RAM ?R6 :L6(Type 'Y' or 'N' and press RETURN) u6 : W:Y+N :L4 9LU9D1:*.FNTD1:FILENAME.EXTV=j<I} L7 ͠ϯӠ676 :L.7 㡠7 :LV7 8I}7 :Ly7 (1-8, 0=Exit, no load)`7 : W:ɛ0`9 :L571 :L576 B VBJKD6E V$L7Open I}error.Ѡ7 : B VL7857 y:0! BDEHI VL7 B VL:8Font file to load?&8 :LZ8( forI} new dir)D8 : W:ɛL57 n9BJKD6E VH BD6EHI VL8Can't open file!8 :I} B VL57BDE89HI V B VL9RAM O/S Font loaded.9 :LG9[1] Exit [2] Load different font?I}$9 : W:1  :`2 :L9L57:+:$D666:6 6ɛ6ɛ6.ɛI} 66`` B V`9:BS:EKDJLVR'S :L):Ġ٠: :LL:PRESS I} TO RESTART3: : W:`BDEHI V`BDEHI V`堣οDԌEI}HI HI BLVL: :;BޝD:EHI V`R : ;L#;Ӡ ; :LE;I}-; :Lg;O; :L;堠q; :L;̯ŠI}; : ;L:L;; :`L;;<ޠ; :`i<D<L Lt I}ӭ)ө***𠀙 R ll`V  x/ԍҍԅ۩B آ I}  ҩ@ԩ"/BX` B VD:SYSEQU.M65<>D:IOMAC.LIBFIPM}"AXEGS Manager By M. RatcliffAZ4dEKnFx TXPNTԂ RAMTOPjRAM copy"8FLAG;;Copy part1/part2 flag,:CASINI;;Vector we will steM}al6COLDSTD@ CSETJWARMSVtT PAGE6^"X; If Self-test selected, checkh$X; first byte here, definition ofM}r#X; space character. Try to write| X; nonzero value there. If it#X; changes then we're in RAM O/S$X; mode. Will crash M}if attempt to"X; continue. If RAM-based, tellX; user & return to DOS.!X; If ROM, continue with test.GINTLK;;ExM}t. Cart Flag BOOT !X; Good cass boot will give us X; control via CASINI vector. COPY IRQEN CRITICBM}GRACTLSDMCTL/ POKMSK NMIEN&DMACTL0 PRN0 :  D AINCORRECT PRN0 CALL!ANX !@M}SKPTX]X;b@TXT ==l@SKPTX$>4@TXTv %>5@TXT PRINTXTX; BEGIN= GRAF0;;GRAFCMD, set new M} RAMTOP, tooQ>;;Black bkgnd. PCLRBAK TITLE QGINTLKFINTBAS;;No ext. cart-OKX;?!RRONLY;;YesM}-ROM/RAM option only! INTBAS TOP#PRN0 A۱ Turn Π BASIC A#PRN0 A۲ Turn M} BASIC A#PRN0 A۳ Run A#PRN0 A۴ ROM O/S to RAM A #PRN0 A۵ RAM O/S to ROM A#PRN0 M}A۶ Missile Command A  BOT* CRLF4:Q>;;No editing prompt line>PLMARGN;;Fix marginHM}BPUT =PROMPT=R KEYINW GETKEY\5;;Save keyfQ>p PLMARGNz CRLF7KEY1R> 1;;Cart on?HKEY2;;NOPM}EX;9QPORTB;;Yes, current config?M>;;Enable BASIC PPORTBQ>;;New RAMTOP PRAMTOPM} GRAF0;;Normal screenQ>BASIC_ON PBASICF CRLFPRN0 AàΠA!CR5 X;KEY2R> 2;;Cart. off?HM}KEY3;;No.X;$ BASOFF)QPORTB;;Yes! Do it!.L>8PPORTB;;It's off. NowBQ>;;set new RAMTOPL PRAMTOPV GRAF0`M} CRLFjQ>BASIC_OFFt PBASICF~PRN0 AàƠA!CR5;;Back to DOS.X;KEY3R> 3;;Self-test? HKEY4;;NoM}X; BASOFF;;BASIC off firstQPORTB;;Enable OS RAML> PPORTB GRAF0QPORTB;; Self-test on.M>:PPOM}RTB;;Now remapped to $5000Q>;;Coldstart flagPCOLDST;;for 'RESET' X; Reboot after test!M}PX;KEY4#R> 4;;ROM O/S -> RAM?( FGROMRAM-X;2KEY57R> 5;;RAM O/S -> ROM?< HKEY6AX;F QBOOTPM>Z PBM}OOTd !WARMSViX;nKEY6s;!MISLCMD;;Enable Missile Commandx GOOF !BEGINX; GROMRAM QM}DOSIDR>SPARTAFLGHGOROMSRAMX; NORAMOSQ> PLMARGN QBOOTM>;;Disk boot OK PBOOT GRAF0$PRM}N0 A͠ϯӠA$PRN0 AӠ塪A:X; GOROMSRAM  !ROMSRAM X;$X;Copy ROM OS -> RM}AM then disableX;all interrupts, enable RAM"X;in place of ROM (OS),'X;copy RAM->RAM & enable., RRONLY1Q>6 PLMAM}RGN@ CRLFJ QDOSIDTR>SPARTAFLG^ FNORAMOScX;h)PRN0 A̠ŠԠAr$PRN0 ACONVERT ROM OS  M}RAM ?A|0PRN0 A(Type 'Y' or 'N' and press RETURN) A GETKEYR> Y FROMSRAMX;R> N FQUITX; GOOF !BM}EGINX;QUIT GRAF0!CR5X; DRVTX AD1:*.FNTA= FILENAME AD1:FILENAME.EXTA===X; ROM OS toM} RAM setup ROMSRAM$>;; Move RAM O/S%RAMGRLN;; MGR to Page6 RMOVLP QRAMGR9 PPAGE69&201: HRMOVLP?XM};D PAGE6;; Make RAM O/SN)PRN0 A ͠ϯӠAX)PRN0 A 㡠Ab REDIRg)PRNM}0 A Al$PRN0 A (1-8, 0=Exit, no load)Av GETKEYR>;; CR also exits FNOFNTX;R> 0M} HDIRITX; NOFNT: DIRITR> 9;; Valid drive #? DDIRIT2X; GOOF !REDIRX; DIRIT2R> 1 EDIM}RIT3X; GOOF!REDIR;; Try it again.X; DIRIT3 PDRVTX  CLOSE OPEN ===DRVTX C* IDIRIT4M}/X;4PRN0 AOpen error.A> CLOSE H !REDIRMX;R DIRIT4W GETFNAME\Cf GDIRIT5kX;pPRINT =STRBUF=zM} !DIRIT4X; DIRIT5 CLOSE PRN0 AFont file to load?A!PRN0 A( for new dir)A GETKEY QSTRBUFM}R> HDIRIT6X; !REDIRX; DIRIT6 EDITFNAMEOPEN ===FILENAME IDIRIT7X;PRINT =FILENM}AME=PRN0 ACan't open file!A CLOSE  !REDIR X; DIRIT7 BGET =CSET=$ CLOSE . DIRIT7A3 !M}PRN0 ARAM O/S Font loaded.A8 .PRN0 A[1] Exit [2] Load different font?AB GETKEYL R> 1V HDIRIT8[ X;` CR5e Q>j M}PTEMPt XTRALFy CRLF~ "TEMP HXTRALF X; : X; DIRIT8 R> 2 FDIRIT9 X; GOOF !DIRIT7A X; DIRM}IT9 !REDIR X; X; Edit strbuf to filename X; with defaults EDITFNAME QSTRBUF;; D: or Dn:? R> : >FCOPYASIM}S;; Yes, no edits on front QSTRBUF R> : FCOPYASIS X; Q> D;; Set default( PFILENAME;;M} drive spec2 QDRVTX< PFILENAMEF Q> :P PFILENAMEZ $> d %>n COPLPs =QSTRBUF8;; Move rest M} of fnamex PFILENAME8 R> FEXTST X; 3 0 HCOPLP X; FEXTST X; COPYASIS $> %>M} COPLP1 QSTRBUF8 PFILENAME8 R> FEXTST X; R> FEXTST X; 3 0" HCOPLP1' X;, EXTST1 $>6 EM}XTST1; QFILENAME9@ R> .;; Extender here?J FGOTEXT;; Yes, done editO X;T R>^ FADDEXT;; Add extensionc X;h R>r M}FADDEXTw X;| 2 9(>;; Done all possible? HEXTST1 X; ADDEXT %> ADDEXT1 QDRM}VTX8 PFILENAME9 2 3 )> HADDEXT1 X; GOTEXT : X; X; Execute a GR.0 to restore X; E: S: and K: hanM}dlers X; after ROM->RAM function. GRAF0 $>`;;CL.# 6 - Screen Q>CCLOSE& PICCOM90  CIO: $>`D Q>COPN;;OPEN S:M}N PICCOM9X Q> S;; S: temporarilyb PSTRBUF;; on CASBUF pg 4l Q> :v PSTRBUF 5Q>;;Point to S: M} page 4 PICBADR9 Q>;;GRAPHICS 0 PICAUX29;;For S: handler PICBADR9;;Rest of S: adr >Q>;;Flip bit 4 & M} allow READ/WRITE PICAUX19 !CIO;;Open & return X; GOOF Q>;;Left margin PLMARGN Q>'M};;Right margin PRMARGN CRLF PRN0 AĠ٠A GOOF1 $PRN0 APRESS TO RESTARTA GETKEY :% XM};* GETKEY/ INPUT =STRBUF=4 QSTRBUF> :C X;H GETFNAMEM INPUT =STRBUF=R :W X;\ PROMPTa  A堣M}οAf PRINTXTk &ICBADR;;Print to #0p &TXPNTz @'ICBADR;;X-lo byte, Y-hi byte. N} 'TXPNT %> 'ICBLEN 'ICBLEN LEN Q@TXPNT7;;Length? R>;;ETX-End of text FOUTPUT X; #ICBLEN N}HMORE X; #ICBLEN MORE 3 HLEN;;256 chars max. X; OUTPUTQ> ;;PUT record$>;;Ch #0 PICCOM!CN}IOX;$X; Print a blank line.CRLF3 PRINT 8:=X;B TITLEGQ>L PLMARGNV CRLF` TOPj#PRN0 AN}ӠAt#PRN0 AA~#PRN0 AA#PRN0 A堠A#N}PRN0 A̯ŠA BOT!CRLF;;CR and [RETURN]X;TOP#PRN0 AA:X;BN}OT#PRN0 AA:X; MISLCMD %MISLLEN$> &COLDST MISLPUT QMISLCOM9 PPAGE69N}2 1 HMISLPUTX; !PAGE6#X;( MISLCOM2 =====< ===== F L=t====P  ===N}==Z ==)===d ====*=n =====x =====* ==*=== ===N}== ==== =R ===== =====  =l===l= =` MISLLEN MISLCON }M RAMGR>D:RAMOSDAT.M65 RAMGRLN RAMGREI BEGINLU67@4,.>:@4,s6-?:',A@P'/A0F+}@P@9/A0@`'/A@`9/A@PD$F @H',@P@U'/A@UF,}J$P-@R-@T0@U!!2@ @@&V X w$xF-} +@.-@@.(HOW ABOUT THIS...$ +@0@0F.}@@-@A@@#,@ #/@$A@ -@0@F/}"-@ , .-@0-@@20@&3-@ 4 6F0} ;0@?$@J +@O 0T#-@@#(SOUND!Y-@P F1}^-@c2@@%@h 0m-@ r |-@62@ F2}-@  $ +@(-@((YOU HAVE A CHOICE%-@%(F3}OF 8 DIFFERENT-@('VOICES'-A (-@((HIT IT MAESTRO...$F4}Š 6-@ A   6- A   6- A -@P  6-Q:,2@&F5}(S:,)(T:,A0 Ab 2k$lv +@" -"(YOU CAN EVEN HAVE+F6}-@@+(UP TO 4 VOICES(-@((AT THE SAME TIME!-A 2AP@F7}-A 2@@@@-A 2@@@-A F8}%%2@A@@-A -@ %%2AP%@%'@!!2@@F9}&@@!!2@@ %@//2@A%@$@@(S:,)(T:,AF:}  AR 2 22@2@$+-F;}@( ( THANK YOU( ( ((,)(! ANOTHER WRIGHT-ON PRODUCTION,(-@6 F<}2@ @-@@   "-@@6$ 0& * 6-3$ D:F=}SLIDSHOW@-@@   "-@@6$ 0& * 6-3$ D:D DISK CONTENTS - Front Side of Disk1. DISSOLVER CRE. Creates BASIC sub-routines for spiral or sweep dissolvesof any graJ?}phics mode screen. Excellent!Refer to magazine for "how to use".(Fred Pinho, ANTIC 1/86, p18)2. DISSOLVER DEM. A clever J@}demo of the"Dandy Dissolver". (Fred Pinho, ANTIC,1/86, S*P*A*C*E mods)3. FACE. "Face of the Galaxy" - Musicwith graphicJA}s. (Gary Gilbertson)4. FADER II. An enhanced ML Hi-Res picloader with dot-by-dot "lapse-dissolve"effects. To use: TransfJB}er to a picturedisk & rename AUTORUN.SYS. Compressedpictures (ie, KoalaPad, Micro Illustr.)must use a ".PIC" fn extender. JC}Normalpictures (ie, Micro Painter, any 62sector pic) use ".*IC" fn extenders.Reboot with this pic disk to view your"slideJD} show". Press OPTION to hold apicture on the screen; START to skipthe pause between pics; or SELECT to goto DOS. (PatrickJE} Dell'Era, ANTIC 5/85)5. FADER MOD. Use to change FADER II'spausing rate. Self prompting. BASIC.(Patrick Dell'Era, ANTICJF} 5/85)6. 3D GRAPHICS. A 3-D graphics editor.(Paul Chabot, ANTIC 10/85, JC mods)7. G.U.P. The Graphics Utility PackageJG}is a ML program which will speedup yourBASIC graphic commands & adds ten newones: circles, squares, patterned fills& more!JH} Read the magazine article forfull tutorial/instructions. For bestresults rename to AUTORUN.SYS & rebootto load. If loadedJI} from this menu, youmust press RESET upon load completion.(Darek Mihocka, ANTIC, 6/85, p45)8. G.U.P. DMO. A demonstratioJJ}n of someof G.U.P.'s capabilities. Load G.U.P.(per above) prior to running this demo.(Darek Mihocka, ANTIC, 6/85)9. HORSJK}E. A galloping horse demo usingcharacter graphics. (B.R.A.C.E.)10. MILOADER. Loads/displays Micro-Illustrator (KoalaPadJL}) pics. (ANTIC&JC)11. MUSICIAN. A "Music construction"program. Integral command list. Allowsediting of last note only! TJM}his versionis not compatable with the original!(A.Giambra, ANTIC, 6/85, pg37, JC mods)12. LAURA. Demo tune for The MusicJN}ianabove. Load "LAURA" to hear it play orto edit. (ANTIC disk, 6/85, JC mods)13. PENCILS. A sharp GTIA demo! (GreggTravJO}ares, ANTIC disk, 6/85, JC mods)14. SLIDE SHOW. A BASIC demo using theAtari to present computer "slides".(Steve Wright, JP}from B.R.A.C.E. disk) DISK CONTENTS - Back Side of Disk(NOTE: These programs should be loadedw/o BASIC to insure propeJQ}r operation.)1. FUJIBOINK. Famous Atari demo with abouncing multi-color "Fuji" logo.(Park '86)2. MCP. Multi-Colored PJR}layers demo.Brilliant colors. ML. (ANTIC 2/86)3. SPLASH. Splash colors on a Gr.7+screen. ACTION. (ANTIC, 4/85)4. SWAN.JS} Another sharp Atari demo withflying swan & twirling Fuji. (Park '86)5. VIEW 3D. Create 3-D wire frame picsin Gr 8/7+. JT}Magnify, shrink, rotate, &shift viewing position fairly fast. Seemagazine article for details. ACTION.(Paul Chabot, ANTIC JU}6/85, p37)6. HOUSE.V3D. A sample VIEW 3D image.(Paul Chabot, ANTIC 6/85)rticle for details. ACTION.(Paul Chabot, ANTIC HM