PSEUDO BAS> PSEUDO COM INIT COM INIT2 COM PARAM DAT  X  i{ X  i ii : :PART: -ij : "<1> CHANGE DRIVE" j 7j : "<2> CHANGE NUMBER OF DIRECTORY"Kj  : "BLOCKS"Sj jj : "<3> EXIT"j : " WHICH OPTION";ZjH1 : cCH1 c SL ,,,,,,c    BK,CH1: d 2  BK,CH1: 3d 2  BK,CH1: Rd 2 BK,CH1: qd  BK,CH1: d G BK,CH1: gO gY Igc : : : gm " ";gw A$g ",h ) hh -)h I  >h P(I,) Oh J  mhSL I:BK J:CH P(I,J)xh [h Jh Ih ieU @,v: ie_ @,wei es STOP FLASHf} SL ,,,,,,f ,: 3f +,: Lf +,: ef +,: f  ,: f @d G BK,CH1: d G  BK,CH1d dd SL #,-,7,A,K,U,_e ,p: i/e# +,q: iHe- +,r: iae7 +,s: izeA ,t: ieK @,u: I  hN P(I,):W Ih h  Ih : h! : i+ : "<1> CHANGE SLOT CONTENTS" i5 9i? : "<2> CHANGE DISK PARAMETERS": PiI : "<3> EXIT"\iS : xi] " WHICH OPTION";Xig X  aiqb P(,),CRD1(),CRD2()bM: ()@ M 0b CH()b b) c3 O  c= O  #cG O  +cQ 1c[Mce CH y,,,acoCH1 : ucyCH1 : cCH1 : cC,: f @,: f @,f f START OF LISTER ROUTINEf -g I  g P(I,) 1.g  J  LgSL I:BK J:CH P(I,J)Wg [`g' Jig1 Izg; I  gEN P(I,):W I Z  j Z  9j Z  j j : "NEW DRIVE FOR PSEUDO DISK";DRIVE$kDRIVE$(DRIVE$,)Ik% DRIVE$"F" DRIVE$"B" "TRY AGAIN";: Tk/ \k9 kC : "NUMBER OF DIRECTORY BLOCKS";BLOCKSkM BKBKye CRD1(P)BKI:CRD2(P)Iyo yy y y  Uz PP: P : "ERROR - PSEUDO DISK CAN NOT HANDLE MORE THAN 256K RAM": "PRESS SPACE TO CONTINUE>";: A$: )[z hz I%()z I :I%(I)( IM):z) :CH() sm JtwC  :CH() :CH() :CH() :CH() :CH() :CH() :CH() :CH() :CH() :CH( ) :CH( ) :CH( ) :CH( ) qt W ,,,,,,tK : tK - :P(W,I) mG [mQ In[J : W  M " BANK 1 SAVED FOR CP/M": SL W:BK :CH :P(,) :J ne [ EMPTY (NOT RAM)";r : " <4> 32K RAM CARD"+r " <2> 128K RAM CARD";Mr : " <5> 16K RAM CARD"ir " <3> 64K RAM CARD";qr r LABELLERr  N  BLOCKS BLOCKS "TRY AGAIN";: CkW ka kk : : ku " WHICH SLOT";Wl W  W  u!lSL W,l 4l :l`l "PARAMETER FILE FOR THIS SLOT:"kl sl:l ",(I): # SYSTEMS, INC."u& " COPYRIGHT 1982, KENNETH ROE"u+ : NPT NPT:: "NO PARAMETER TABLE": : v5: /v? "<1> LOOK AT PSEUDO DISK SET-UP" SET-UP THE PSEUDO DISK"mv] : vg "<3> SET UP INIT.COM AND I: tK -: tK -: tK : tK B: tK B: uK B%u JK C: KJK,CH(JK):+u3u Eu: : : hu " CP/M PSEUDO DISK"pu  u! "COPYRIGHT 1982, SATURN "Y" P(W,I) : nP(W,I) nSL W:BK I:CH P(W,I)n [n In s: o o I : P(W,I): I(oSL W3o s>o No ",Yo  do )wo END SET-UPo# N  o-I,)  x TP(I,)x TYPEP(I,)x J  (TYPE)x P(I,J) y y) TYPE  :CRD1(P)I:CRD2(P)CRD1(P)/y3 TYPE G ay=  :CRD1(P)I(J):CRD2(P)CRD1(P)tyG TYPE o ~yQ  y[ BKJ: BK,',;,O,c,wrC: X C:CH(X):: r r'C :CH() :CH() :CH()  s1 5s;C :CH() :CH() :CH() @sE ksOC :CH() :CH() :CH() vsY scC :CH() :CH(,(I)l "ENTER 1-5";Nl N  N  l l #,: ",: mP(W,) Nm N  =)m  N  = EXIT"v : : " WHICH OPTION";O w O  O  w "w  ;w "I",#,"PARAM.DAT"Iw dw #,LGS,DRIVE$,BLOCKSw I  : J : #,P(I,J):: : "0";: : "4": ps : "1";: : "5": p} : "2";: : "6": q : "3";: : "7"q "----------------------------------------";:: "Y";::"-USED ";:: "N";::"-NOT USED ";:: "C";:: "-RESERVED FOR : : "CP/M PSEUDO DISK"o7 pA "DRIVE ";:: DRIVE$":";::" DIRECTORY BLOCKS ";:: BLOCKS;:pH: " "1pK PART PART: :VpU : "BANK";: #: "BANK"p_ " SLOT 12345678 SLOT 12345678";pi "R",#,"PSEUDO.COM",z #, AS A$z H z #,z H,(A$):HHz H Kz #{ H,(A$){ HH{ { #){# /{- ={7 D$DRIVE$m{A D(D$)A: [,D: x,D: 3,D: ?,D{F LGS 3, p{K  *O"QÉy_!~2S!#F:C2UVy2Dm!:DŽ :M!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M*O"QÉy_!~2S!#F:C2UVy2Dm!:DŽ :6 # L!zw͌j# X:z 0 ͘=N#Fy}80*z{¯#z+++ ¥ z#½# · 9!`͠ y9!rͷ K}c A$(( FB))}m #,FB}w FBFB} } #}  } ,P} X P ~ X,CRD1(X) : "X,CRD2(X)(~ X4~ ,PR~ M,  : M, p~ M, : M, ~ "M,  : #M,  Î`iޓښ:ޓڦJޓڲZޓھjޓz3` / !~ `66= !; !{g1:Q!͢گ22>2!"2!"͎>2:O*:P/{U "R",#,"INIT.COM",{_ #, AS A${i A$(D){s #, W{t M A$( ) : A$( ) |u #,|} FB%| FBC| A$(( FBM))Q| #,FB]| FBFBc| n| FB| FB K| A$((~ M, : M, ~ (M, : )M, ~ +M,  : ,M,  M, 3 : M, # : M, `: M, 4 8,PM LGS 8,PW! U h+ DEBLOCKS t5 DEDE? DE DE tW ;.o  :D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"MtW ;. :D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M FB))| #,FB| FBFB| | #| "R",#,"INIT2.COM",| #, AS A$} M A$( ) : A$( ) } #,+} FB;} FBY}' A$(( FBM))g}1 #,FBs}; FBFBy}E }O FB}Y FB1!!J!>w#|$J K_{1z1\>2\>?2]2^2_2`2a2b2c2d2e2f2gM,I%(I):  M + 퀪 ^, : {, : , : -, : 6, : B,  a, : ,  9, 0 +  M + 퀪 ^, : {, : , : -, : 6, : B,  a, : ,  9"TRY AGAIN": + I DE DEDE:DD: DE DE:DDS :,DE : ;,DD] DEDEDDg C:I: X DE  Eq AL(C)AL(C)I:II: I C:IK{ g <,AL(): =,AL()q - w I : I1!!J200 ORG 200H 0200 VECT DS 100H 0300 ORG 300H 0300 DRV DS 100H 040*O"QÉy_!~2S!#F:C2UVy2Dm!:DŽ :M!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M Î`i`ޓښ:ޓڦJޓڲZޓھjޓz3` / !~ `66= !; !{g1:Q!͢گ22>2!"2!"͎>2:O*:P0,"C",1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0  0 0 0 0 0 0 0 0 0 0 tW ;.o :D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M