File PC.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

?<2C8H80(L(8BA)T/ ==!6 =/T0P/0<K< =!+A%:PC<A=+A82M" <=16%T/=!PCTPC=1P/=!=
EZ=!+C%,2M$PG<B <6!=/A?T/P/ <4E2<K< =!+A%:2M0=A=1R<K <6%<KRA<K< =!<!PC<A<+A.2PPG<BPU=/BB<K< =!+A	-2P=A=1RC<K< =!2PA=A=1RD<K=!P]<J=1RE<K=!P\<J< <!2PD=A=1RF?=AUS ?:BEGINN?=BIS ?=BEI ?<DANN?<ENDE?:FUEHRE?;FUEHR ?<FUER?;FALLS ?:GLEICH?;MACHE ?<MACH?;SONST ?9S
LANGE ?4SCHRITTWEITE?9SCHRITT ?=VON ?<WENN?6WIEDERHOLE?7WIEDERHOL ?=DIM ?:DRUCKE?;DRUCK ?;DATEN ?>ED?7FUNKTION$ ?8FUNKTION?<LIES?:OEFFNE?8SCHREIBE?9SCHREIB ?7SCHLIESSE ?8SCHLIESS?=DIM ?8PRINT4:?8PRINT4:?<DATA?=END ?;INPUT ?<FILE?;PRINT ?;PRINT ?;CLOSE ?;C
OSE ?W***FEHLER ZWISCHEN DEN SCHLUESSELWOERTERN ?XAAAFAAAIBCBFBBBJBBBDBBBBBBBFEBBBHTELUNG:K(K0)=?^      6       0                       ?^                                7     ?^  ?^              FDF9                ?^              ADA9    A           ?^G
G G G G                         ?^E       EG  B1B2  B B   B4B     B ?^E     EG    B1    B B   B4B     B ?^E EG        B1B2  B B   B4B     B ?^E EGCGEGEG  B1B2  B B   B4B     B ?^EGEGEGEGEG  B1    B B   B4B         B ?^EGDLFBHHKNOIICJLLKQMM[AAB   B4B     B
?^BGCGBGBGCG                            ?%***FEHLE)=X-Y*INT(X/Y)?*PRINT"VERFEINERUNG ";"?+A  BDE   FG M   SV  W ?+AB  DEF   GM S   VW   ?----SYSTEMGRENZE:C1= ?.REM FILEV4:"LPT:"?0***FEHLER:MARKE ?1   MIT CODE C1= ?3   DE FLO   S ?3D   EF LOS    ?5SYS:PCWS
BA ?5REM CLOSE4 ?5IFEND3GOTO ?6PROGRAMM: ?6INPUT3:Z$?7KONTEXT:  ?7FUNKTION$ ?7DIMZ$(72) ?8GEHENACH?8FUNKTION?8ANFANG:?9UND C2= ?9RESTORE ?9GEHNACH ?9FILE3: ?9CLOSE3 ?9ANFANG ?:   L3=?: FEHLT?:RETURN?:K(K0)=?;:;,"& ?;(==FN ?;TEILT ?;PRINT ?;NICHT ?;GOSUB ?
DEFFN ?<SYS:?<STOP?<STEP?<READ?<ODER?<NEXT?<INT(?<GOTO?<FNZ(?=.PC ?=.KO ?=)=0 ?=UND ?=MOD ?=L7= ?=FOR ?=END ?=DIV ?=C2= ?>==?>:=?>:?>  ?>TO?>IF?>F=?>FN??= ??; ??: ??7 ??6 ??4 ??3 ??0 ??/ ??. ??, ??) ??( ??& ??$ ??" ??! ??  ??
 ??] ??[ ??Z ??K ??J ??I ??H ??G ??F ??E ??D ??C ??B ??A ?? Q^29?^SM)29?4L29?8NK29?0KH%29?8
EX29?8)	921>83^(29>8"M29?^*S29?^(C29?^)]29?^*729?^*A29?^(U29?^+I29?^)K29?^(	29?^)/29?^&;29?^&W29?^	129?^(929?^	M29?^	
29?^*%29?^&)29?^!B29?X%/29?X
M29>8 [29>8
429?>
229??!29??!W29??
629>8"29?,"K29??"
29??!Y29??![29>8-R29?5+*29?(-329?71+29-	29?60+29??/^29?<0929??/929?=1	29??1Q29??1K29??0;29??^C29>8]^29>81O29??1E29??1I29??0	29??0)29??0?29??,O29?+,C29?+-J29?3-B29?30Y29?>1!29??/N29?;/B29?;1G29??1A29??1M29??0]29?>0529??1%29??129??1
29??1]29??1[29??1Y29??0329??0129??0-29??0/29??1W29??1U29??1S29??0729??/<29\929>80%29?>1)29??.^29?9.E29?8.O?=0Q29?=/029?<0=29??/629?</R29?;29?=/F29?;,&29?..:29?:-Y29?5/!29[/29>8-?29?7.29?9--29?6- 29?5.(29?9/V29?;+729?*,029?0.629?:0N29?=%Y29?W,929?1.T29?9,[
9?-0T29?=.>29?:.229?:0H29?=029?>&D29?\+[29?%ZR29
XW29)W629KWU29KV429KAPBPBXCPCTCXC\DPDRDTDVDXDZD\D^EPEQFQEUETFYEYE\E^YZXCW!S7L0??N
^ R
R R!*W2C.VHN%>6>G1!2B"GHG?&2C.?D"9[ 2LJ=[^2AN<8H2I>X+Q2B"G(HW<B2B"GFHK<B(P2B"GHHW<B2C/"\"X"X"X"X"X!0!0PXRP&ND		\ZKXVW3TIM1">2$PB/\PCTESTBA??N
^ R
R R!*W2C.VHN%>6>G8P8P8Q8R8S2B"GHG?&2C.?D"9[ 2LJ=[^2AN<8H2I>X+Q2B"G(HW<B2B"GFHK<B(P2B"GHHW<B2C/A"]"X"X"X"X"X!0!0PX+C&K*!9&0GDP=1PWD%=!*&9&+AGB0IAPC=1QQTP]=!=OT0IBPDX+F)0ICPCXTPC=1P]=!=
T]=!0IEPC=1P	TP]=!=ODD+C<0IF=1P(]T]=!0IGPC=1P)TP]=!=ODD+CAO0IH=1P]ART]=!0IPPE<B=1P]<,=!0I PE<B=1HV=!0I0PE<B/E^0IAPC=1QSTPV=!=OT30IAPPDX3+FBH0IA PCWTW0IA0P4XW+D&$=!=ODC+FB10IDPPC=1QUTPV=!=ODC+F+AAW0IH=1QVT[=!0IHAPC=1P-TPV=!=!=
.T/=!PC5T/=1PV=!<?TP/=1PVH0PC=1P3TPV=!=OCT/=1PV=!<?TP/=1PV=!=
TV=!0IIPCVTV0IIPP6XV+D&$0II PV<
T/QW/[T0=!PC=1P6TPV=!=OT/=1PV=!<?TP/=1PV=!=
UXP0AXT!=!0II!PG<BPU=/!<K< =!0II%PCUTU0II0PC=1P6TPV=!=OTPC=1PV=!=
ASAYT/=!PV<
T0P/0[6TV=!+AA40IPPE<B<\*!+	0ITPPWT/PDD/+DG/T$0ITU $=16&T/=!PC=1QSTP/=!=OT30IP&=1P0TPV=!=OD&+CF;0IT0 $=16&T/PW0TW=!0IUP3&DCT&*!/4PC<A$+A=!+CG\0PT=1P^D,=!+DMW+A	$0PX=1+F".0P0=1P^ED=!+FH+0PA0PC=1Q[TPW=!=ODD+FHR0PA1PRTPK=1PW=!=
TW=!+A"90PBPC=1Q\TPW=!=ODD+FMW0PBAPSTPL=1PW=!=
TW=!+A"90PL PI=1Q]TPW=!=ODI+FJO0PL0PI=1Q^TPW=!=ODI+FIQ0PMPI=1Q
TPW=!=ODI+FJ1+AMW0PPPP=1P	TPW=!=ODCTPO=1PW=!=
T/Q /T!=!0PPEPG<BPU=/!<K< =!0PPPPCUTU0PP PHTPC=1PW=!=
T/PW=!<?TPO=1PW=!=
T0P/0TW=!+AMW0PTPG<BPU=/A <K< =!0PTEPCUTU0PTP=1PW=!<?TPQ=1PW=!=
T/Q!/TW=!+AMW0PX=1PW=!<?TPK=1PW=!=
T/Q!/TW=!+AMW0P\EPC7T1=1PW=!<?TP1=1PW=!=
T\=!0P\PPC=1Q"TP\=!=OT80P\ PDX8+CL&0P\0PC=1QTP\=!=OT80P]PDX8+FM	0P]PP7TPC=1PW=!=
A$TW=!0P]UPCX8TPC=1P\=!=
T/PW/AQT0=!PF8T1=1P\=!<?TP1=1P\=!=
UXP0AXA%TW=!+AM	0P]0P7TPC=1PW=!=
A&TW=!0P]5PCX8TPC=1P\=!=
T/PW/.T0=!PF8T1=1P\=!<?TP1=1P\=!=
UXP0AXA%TW=!+AM	0P$APC=1P4TPW=!=OT70P$BPDX7+CKD0P$DPG<BPU=/W<K< =!0P$E=1P,T^=!0P$P=1P%TW=!0P$ PCUTU*!9&0QP=1PWD%=!+F&K0QDPPC=1Q	TPW=!=OT80QDQPDX8+FO&0QD PH8T1=1PW=!<?TP1=1PW=!=
T/Q(/A)T0=!PEU=/UXP0AXT!=!0QD%PG<BPU=/!<K< =!0QD0PFU=/T/Q)/T!=!0QD5PG<BPCU=/!<K< =!0QEPEUTU0QEE=1P%TW=!0QEP<D0QHPPC=1Q*TPW=!=OT80QHQPDX8+FQ0QH PCX8TPC=1PW=!=
T/Q(/A)T0=!PEU=/UXP0AXT!=!0QH%PG<BPU=/!<K< =!0QH0PFU=/T/Q)/T!=!0QH5PG<BPCU=/!<K< =!0QIPF8T1=1PW=!<?TP1=1PW=!=
T/Q(/A)T0=!PGU=/UXP0AXT!=!0QIEPG<BPEU=/!<K< =!0QIPPFUTU0QIU=1P%TW=!0QI <D0QLPPC=1Q+TPW=!=OT80QLQPDX8+FS-0QL PCX8TPC=1PW=!=
T/Q(PU=/!<K< =!0QL0PG8T1=1PW=!<?TAXT!=!0QL5PG<BPCU=/!<K< =!0QMPU=/A(WA)T/=!PEU=/T0P/0<K< =!PC=1Q,TPW=!=OT80QTQPDX8+FSK0QT PH8T1=1PW=!<?TP1=1PW=!=
T/Q&/.T0=!PCX8TPC=1PW=!=
UXP0AXA-TW=!+ASK0RDPPCVTV0RD P6XV+D&$0RD0PCWTW0REP4XW+D&$0REP=1PWA.T/=!PV<
T0P/0^6 W7F=!0RE PV<
T/QW/^6TW=!0RE0=1P1T^=!*!//0SP=1P D+=!*9&0SAPG<BPU=/A/<K< =!0SAP=1QDT =!0SA PCUTU*!9&0STPPCX^X PG<BPU=/A0<K< =!0SX%PCUTU*!9&< =!0SYPPCUTU0SY =1QET =!*!9&0 D PG<B ^6=/A)T/=!PU=/T0P/0<K< T0P/0<K< =!0 H0PU ^7C0 H1PCUTU*!9&0!0PU ^7D0!A+ND0!APPU ^7C0!AQPCUTU*!
&0!D PG<BPU=/A)T/ ^=!6$=/T0P/0<K< =!0!D0PCUTU0!EPPG<B ^6=/A)T/=!PU=/T0P/0<K< =!*!<30"0PU ^7C*!9&0"HP+ND0"H0PG<BPU=/A)T/ ^=!6=/T0P/0<K< =!0"IPCUTU*!<300PC=1P4TPW=!=OT80APCX8+G&K0APPCX8TPC=1PW=!=
 ^7C=!0A =1Q3WT!=!0A0=1P%TW=!0BPDT]*!/40DP=1P!A4WT!=!0D =1P%TW=!*!9&0HP=1P!A5WT!=!0HU=1P%TW=!*!9&0LPPG<BPU=/!<K< =!0L PCUTU*!9&0P PG<BPU=/A6T/P/ ^4C<K< =!0P%PCUTU0P0=1P% ^7C=!*!<30$0PG<BPU=/A)T/=!PEU=/T0P/0<K< =!0$APCU ^7C0$APPEUTU0$A =1PW4 ^7C=!0$A0=1P%T
=!*!9&0$DAPCT:0$DBPDT80$DCPC8=1P.TPW=!=OT80$DDPDX8+F\/0$DEPC:T:+A\W0$DGPU:CT:0$DHPCX: ^7D0$DPPC=1P.TPW=!=OT80$D PDX8+F^F0$D0PG<BPU=/A(T/P/ ^4CT0=!PCX8TPC=1PW=!=
UXP0AXA)U7=!P:=/U8Q7A8<K< =!0$EPPCUTU0$E PC8T1=1PW=!<?TP1=1PW=!=
TW=!+A\;0$FPG<BPU=/A(T/P/ ^4CWA)T0=!P:=/UXP0AX<K< =!0$HPEUTU0$HE=1P%TW=!*!9&0$LPPG<BPU=/A)T/ ^=!6=/T0P/0<K< =!0$L PCUTU0$L%PG<B ^6$=/A)T/=!PU=/T0P/0<K< =!0$L0PRT]*!/40$PPPG<B ^6=/A)T/=!PU=/T0P/0<K< =!0$P PG<B ^6$=/A)T/=!PU=/T0P/0<K< =!0$P%PCX^T^*!9&0%D0PG
BPU=/A9<K< =!0%EPG<BPCU=/A:T/PW=!<?TPI=1PW=!=
T0P/0<K< =!0%EPPG<BPEU=/A;<K< =!0%E PEU ^7D0%E0PFU ^7C0%FPGUTU0%FE=1P%TW=!*!9&0%HPPG<BPU=/A)T/ ^=!6$=/T0P/0<K< =!0%H PCUTU0%H0PG<B ^6=/A<T/=!PU=/T0P/0<K< =!0%IPG<BPU=/A=<K< =!0%IP2EPP;X +B&$2E PC T 2E!=1PW  HQPKTPC=1PW=!=
TW=!2JPC!T!2=!2JQPCUTU*!9&2LB=1PWD%=!+F)+D%?1T<2L P T2PDD2+D%H2T=2L0=1 =6$ <4%=!+C%C2L2 ==16$T/=!PCTPC=1P/=!=
EZ=!+C$.2L4PG<B <6!=/A>T/ ==!6 =/T0P/0<K< =!+A%:2MPG<B <6!=/A)T/ ==!6 =/T0P/0<K< =!+A%:PC<A=+A82M" <=16%T/=!PCTPC=1P/=!=
EZ=!+C%,2M$PG<B <6!=/A?T/P/ <4E2<K< =!+A%:2M0=A=1R<K <6%<KRA<K< =!<!PC<A<+A.RC<K< =!2PA=A=1RD<K=!P]<J=1RE<K<K=!P\<J=1RH<K=! ^6"<J< 2PDA=A=1<J< <!2PD =A=1RL<K=! ^6"<J=1RG<KPE<B<\2QAPG<B<\<!0BP=1PBTA=!0H=1PC D7=!0HA=1PD C7=!0HB=1PE E7=!0HC=1PF F7=!0HD=1PG G
=!0HE=1PH H7=!0HF=1PF I7=!0HG=1PI J7=!0HH=1PJ K7=!0HI=1PK L7=!0HP=1PL M7=!0HQ=17=!0HT=1PP Q7=!0HU=1PQ R7=!=1PUTT=!0ZAPG<B=1P"<<=!0ZBPETUPC<CTW0ZH=A=1P$<K=!0ZP=A=1H]=!\Q=A=1H]=!0\ PC=1P	TP]=!=ODD*,G0\0=1P(]T]=!0]PC=1P)TP]=!=ODD*,Z0]P=1P]*T]=!0] PE<B=1P]<,=
0  PYTZPCDZ*$,8ZTX0 !=1<1 X7A=!PC<AX*!,	0 0PPT[PCD[*$-N[TX0 1=1<1 X7B=!PC<AX*!,=0!0PCT\0!1PCT]0!2=1P+T =!0!3=1P,T^=!0!4PDT^0"BPC<CT
0"CPC<CT 0"DPC<CT!0"EPDT"0"FPDX*&.Z0"GPWT%PDD%*$.W%T$0"H=A=1 $6&<K< =!PC<A$*!.D=A< < 0$PPE<B=1HV=!0$ PE<B/W0$0=A=1PV<K< =!0APPDT&0AQ=1PV=!<?T	0ARPC=1P-TPV=!=OT(0ASPDX(*&/)0ATPCX(TPC=1PV=!=
.T/=!PC(T)=1PV=!<?TP)=1PV=!=
T0P/0TV=!0A PCX"*&8)0A0PC&T&0AAP	X&*$.Z0AAPP&TP&=1PV=!=
T
=!0ADP=1P
D1=!*&8)0AD =1P
D2=!*&6H0AD0=1P
D3=!*&//0AE=1P
D	=!*&4&0AEE=1P
D4=!*&5,0AE0=1P
D5=!*&3$0AHP=1P^D3=!*%1O0AHU=1P D+=!+D	$0AH =1P
D6=!*1O+AT"0ALE=1P
D,=!*$3M0ALPPC=1P
TP7=!=OT*0AL PDX**&2Q0AL0PC=1P
TP8=!=OT+0AMP+T)P*D)*$2Q)TX0AMP X=16!T/=!P&=1P/TPV=!=OD&*&3/PC<AX*!160APPC=1P
TP9=!=O,T*0APPPDX**&3U0AP PC=1P
TP:=!=O,T+0AP0P+T-P*D-*$3M-TX0AQ X=16!T/=!P&=1P/TPV=!=OD&*&4FPC<AX*!220AQ =1P^D+=!*&7*0ATPPDXW+BE%0AUP=1PW
TW=!*!//0AU0PCT\0AU5PC&T&*!9I0AXPPXTPX=1PA=!=
=!<OT\0AX  X=16!=!<?&T&*!9I0A\PXTPX=1PA=!=
T^=!0A\P X=16!=!<?&T&0A\ P,XX=1PW<F4BTW=!*!/40A PP&=1P;TPV=!=OD&*&5L0A  =1P^D<=!*%3[0A 0PJ ^4B+C"D0A 1PST\0A 2PC&T&*!9I0A!PMX]+F&K0A!PPGX]+F&K0A! PTX]+F&K0A!0=1PW4TW=!0A"PE&T&*!/40A$PMX]*&3[0A$PPGX]*&3[0A$ PTX]*&3[0A6<0BUP	X&+F&K0B PC&=1P2TPV=!=
T/PW/TW=!0BAPPC.T&*!/40BTP=1TP/=1PW=!=
T/=!PC=1P/TP>=!=ODD=!*7;0BXP=1PW5TW=!*!//0BX0=1P
D.=!*&3U0BY=1PW=!<?T/=1PW=!<?TP/=1PW=!=
D2=!*3U0BYE=1P
E=!*&3U0BYP=1PW5TW=!*!3U0CPPCT"0C PC&=1QATPV=!=OT.0C0PDX.*&.Z0CAPC.T&0CAEPDT"*!/40D$P ]=16 T/=!P\HEDCT/P\HETP/=1P/=!=
TX=!0D$ =1PXEB=!+F&K0EP=1PXD%=!*&<-0E PCTPC=1PX=!=
TY=!0E0=1PYD3=!PYEC=!*";U0EAP=1PYD+=!+FZU0EAQ=1PYD<=!+FZ50EA!=1PYEF=!+FGB0EA"=1PYEI=!+F\O<!0EHPPC^T^0EH P0X^+D D0EIP=1PYEJ=!+EU\0EIU=1PYEJ=!+FV>0EI =1PYEK=!+FYA0EI0=1PYEL=!+F["0EJ=1PYEM=!+FY%0EJPPMX]+FXA0ELPCX^T^0ELP=1PY=!=? ^7B+AZ50ETP\T]*!/40FPPCX^T^0FU
C^T/PD /4B*&9&0F PC^T/PH /4B*&9&0F0PC^T/PI /4B*&9&0FDPDX^*&9&0FDBPDX^+E	R0FDPPK ^4B+FXV0FD PL ^4B+F[F0FD0PM ^4B+FWN0FEPN ^4B+FYH0FHPCX\HKT/ ^6"/CT1PCX\HKT2 ^6"2CTP1=1PT=!=
TZ=!0FL=1PZD+=!*&9&0FLA=1PZED=!+F&K0FLB=1PZEE=!+FU;0FLE=1PZEG=!+FWN0FLF=1PZEH=!+FXV0FLG=1PZEI=!+F[F0FLH=1PZEN=!+F^*0FLI=1PZEO=!+F
Y0FL5=1PZEP=!+F!J0FL6PJ ^4" ^7B0FL7=1PZD<=!+FW"0FL8=1PZEF=!*&9&<!0G =1PWD%=!<H*-K?XHK>XI2I\H\H\H2A2J	=HLI<(*
ZV:A2J	<B	;JV8A2I\H2A*N:A2J	<B9G*(J8A2I+12J	<I2IO:2A
9/8878;8?9CBRTSSVBASICAFBASICSFBASICFFBASICUFO7C
9H8J< /K2AK08F8DC
K*[Y2AO.8[YK[
.8O.<K!K/> +*KY
.S0+R2A: K0/K9!LA\H2A**?0>O7Y??:I:N>G;GB?81>CH(ZF	?\?9.S!*P	?\P2ISKO>C=K<2A>(O;K:> +K">(GKUZ2QO(Z29O([GJ
(2QKG
(S(* 2A9VJ
;8AJ
9O9
8SK	7JG?HGO
^OS
ROS *;K6
5K6
4
3/22J	1GA/4K!>("K0
5K/
4/5299F812G1+2)()%X"  A;U?6??AK.C^K-[^*6><B<B<B<BP A2K"G?BC]>E>-19K?W?QM->"=8G8?0>G

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search