?. A52201:20: = CB-SKIPS =  DIM UND A= IMMER AN+1 !!! VM(VE2):HM(HO2) V0VE:H0HO:AN200:FR1:280!A$(201),B$(201),C$(201),D$(201)+!IA1:LL$" "J!$L2$" "f!.100:HOHM11:VE1:110l!8}!B HAUPTMENUE!L!VSR$"CB-Funk Skipliste":150!`HOHM17:VEVM7:110!j"Skips erfassen .................. A""tHOHM17:VEVM5:110/"~"Skips ausgeben .................. B"I"HOHM17:VEVM3:110t""Skips sortieren ................. C""HOHM17:VEVM1:110""Skips suchen .................... D""HOHM17:VEVM1:110""Skips aendern ................... E"#HOHM17:VEVM3:110C#"Skips loeschen .................. F"]#HOHM17:VEVM5:110#"Laden & Speichern ............... G"#HOHM17:VEVM7:110#"Programm beenden ................ H"#HOHM19:VEV01:110$ SR$"(c) 1990 REBO-Soft Version 1.0":150"$2507$200:IN0 1310Q$((IN65)(IN72)1310^$2ININ64$<IN 3000,2000,4000,9000,11000,8000,7500,7000$$ SKIPS AUSGEBEN$$100$HOHM11:VE2:110$SR$"AUSGABE SKIPLISTE":150%IA1 10000%HOHM9:VEVM1:1103%"1 = BILDSCHIRM"L% HOHM9:VEVM1:110g%"2 = DRUCKER (80x55)"% 200:(IN$"1")(IN$"2")2080%*IN$"2" 2370%4 === BILDSCHIRM ===%>100:Z0%HHOHM11:VE2:110%RSR$"AUSGABE SKIPLISTE":150&\HO0:VE5:110&fI0 2.&pZIIA 2260B&z" Nr.:";ZI1_&" Skip : ";A$(ZI);}&L(A$(ZI)):(L2$,20L)&" Vorname : ";B$(ZI);&L(B$(ZI)):(L2$,10L)&" QTH : ";C$(ZI);&L(C$(ZI)):(L2$,20L)'" Stamm : ";D$(ZI);" "'!'IA'ZZ3:HOH019:VEV01:110S'"(X=MENU) ";h'SR$"TASTE":150}'200:IN0 2300' IN88 1070' HOH010:VEV01' 110:" "'$ ZIA 2140'. 1070'8 === DRUCKER ==='B 100 (L HOHM11:VE2:110,(V SR$"AUSGABE SKIPLISTE":1502(` J(j HOHM13:VEVM:110n(t "Drucker fertig, dann RETURN!"(~ 200:IN13 2430( L1$" ":PA1:Z0:Z11( HOHM13:VEVM:110( " Ich drucke... "( SRPA:300:HP$SR$) DRUCKER OHNE AUTO-LF siehe REMT) NAECHSTE ZEILE SCHALTET PAPER-OUT=OFF FUER XMM801}) SR$=CHR$(27)+CHR$(48):SR$=SR$+....) SR$" CB-FUNK ") SR$SR$"SKIPLISTE Seite : ") SR$SR$HP$:350:360 * 360:360:3609* SR$" Nr. Skip "U* SR$SR$" Vorname "{* SR$SR$" QTH "* SR$SR$" Stamm":350:360* SR$" --------------------------"*( SR$SR$"----------------------"+2 SR$SR$"----------------------"+< 350:360<+F HP$"":(Z1)100 HP$"0"W+P (Z1)10 HP$HP$"0"w+Z SRZ1:300:SR$L1$HP$SR$+d SR$SR$" "A$(Z)+n L(A$(Z))+x L20 SR$SR$(L2$,20L)+ SR$SR$" "B$(Z)+ L(B$(Z)), L10 SR$SR$(L2$,10L), SR$SR$" "C$(Z)*, L(C$(Z))I, L20 SR$SR$(L2$,20L)k, SR$SR$" "D$(Z):350:360}, ZZ1:Z1Z11, (Z151)(IAZ)2630, NAECHSTE ZEILE, 360, IAZ 2830, HOHM13:VEVM:110:" Ausdruck beendet ! "- 28408- HOHM13:VEVM:110:" Neues Blatt einlegen."R- HOH010:VEV01:110g-" SR$"TASTE":150|-, 200:IN0 2840-6 HOH010:VEV01:110-@ " "-J NAECHSTE SEITE-T Z11:PAPA1:IAZ 2450-^ 1070- . SKIPS ERFASSEN. . 100%. HOHM9:VE2:110C. SR$"Skips erfassen":150T. IAAN 3070l. HOHM10:VEVM:110. "Speicher voll !!!". SD20:450:1070. HO0:VEVM3:110. A$(IA1)"". " SKIP :";A$(IA1). A$(IA1)"" 1070 /& (A$(IA1))20 A$(IA1)(A$(IA1),20)>/0 :" Vorname :";B$(IA1)k/: (B$(IA1))10 B$(IA1)(B$(IA1),10)/D :" QTH :";C$(IA1)/N (C$(IA1))20 C$(IA1)(C$(IA1),20)/X :" Stamm :";D$(IA1)/b (D$(IA1))2 D$(IA1)(D$(IA1),2)0l ::120: POITION MERKEN60v " Daten OK? (J/N)"W0 200:(IN74)(IN78)3200k0 IN74 IAIA10 110: UEBERSCHREIBEN0 " RETURN=weiter, X=Menu"0 200:(IN13)(IN88)32400 IN13 30000 10700n0x SKIPS SORTIEREN11IA1 1070110011HOHM8:VE2:110J1SR$"SORTIEREN":150c1HOHM8:VEVM1:110y1"1 - nach Skips"1HOHM8:VEVM1:1101"2 - nach QTH"1200:(IN49)(IN50)40801IN49 K1: SKIP1IN50 K2: QTH 2100:HOHM9:VE2:110"2SR$"SORT SKIPS"=2"K2 SR$" SORT QTH "F2,150^26HOHM16:VEVM:1102@"Noch Datensaetze zu sortieren."2JJ0 IA2TZ$"ZZZZZZZZZZZZZZZZZZZZ"2^IJ IA2hK2 42302rA$(I)Z$ Z$A$(I):ZI2|42403C$(I)Z$ Z$C$(I):ZI3I03HOHM12:VEVM:110:3IAJT3HOHM13:VEVM3:110f3"-> ";Z$;L2$3 EINTRAEGE WECHSELN3A$(AN1)A$(J):B$(AN1)B$(J)3C$(AN1)C$(J):D$(AN1)D$(J)3A$(J)A$(Z):B$(J)B$(Z)3C$(J)C$(Z):D$(J)D$(Z)4A$(Z)A$(AN1):B$(Z)B$(AN1)?4C$(Z)C$(AN1):D$(Z)D$(AN1)F4Jj4 AN+1 IST EIN ZWISCHENSPEICHERt41070z4V4` DATEN LADEN4j41004HOHM8:VE2:1104SR$"DATEN LADEN":1504HOHM18:VEV02:1105IA0 " Gespeicherte Daten gehen verloren!"35HOHM9:VEVM3:110G5"1 - Diskette"`5HOHM9:VEVM1:110}5"2 - Kassette BASICODE"5HOHM9:VEVM1:1105"3 - Kassette STANDARD"5HOHM9:VEVM3:1105"4 - Zum Menue"6 200:(IN49)(IN52)51306 Wandle in um*6ININ48:6(IN3 NF2J62IN1 NF4Z6<IN2 NF0j6FIN4 1070s6P1006ZHOHM9:VE2:1106dSR$"DATEN LADEN":1506nHO2:VE6:1106x"Filename ";NF$6HO2:VE8:1107"Eingabegeraet fertig, dann RETURN"7200:IN13 527027HO2:VE8:110[7"Daten werden gelesen... "d7500t7IN0 53507:" Dateiname falsch!"75807SD40:450:10707IA175407IN$"END OF FILE" 53907580:1070: ENDE8A$(IA1)IN$8540*8"IN1 5500: FEHLER;8,B$(IA1)IN$D86540U8@IN1 5500f8JC$(IA1)IN$o8T5408^IN1 55008hD$(IA1)IN$8rIAIA1:5360: NEXT SATZ8|:"Lesefehler! - Bitte wiederholen!"85330: ENDE8>9H DATEN SPEICHERN 9R9p100,9zHOHM10:VE2:110K9SR$"DATEN SPEICHERN":150e9HOHM12:VEVM3:110{9" 1 - Diskette"9HOHM12:VEVM1:1109" 2 - Kassette BASICODE"9HOHM12:VEVM1:1109" 3 - Kassette STANDARD":HOHM12:VEVM3:110:" 4 - Zum Menue"=:200:(IN49)(IN52)6110Z: Wandle in umg:ININ48w:IN3 NF3:IN1 NF5:IN2 NF1:IN4 1070:$100:.HOHM10:VE2:110:8SR$"DATEN SPEICHERN":150:BHO2:VE6:110;L"Filename ";NF$!;VHO2:VE8:110J;`"Ausgabegeraet fertig, dann RETURN"a;j200:IN13 6250t;tHO2:VE8:110;~"Daten werden geschrieben... "; DATEI EROEFFNEN UND DATEN SCHREIBEN;500;I0 IA;SR$A$(I):560<SR$B$(I):560<SR$C$(I):560)<SR$D$(I):5600<IK<SR$"END OF FILE":560T<580^<1070d<&w<0 PROGRAMMENDE}<:t"1 - Daten laden">~HOHM9:VEVM1:1108>"2 - Daten speichern"W>200:(IN49)(IN50)7570s>ININ48:IN 5000,6000y>> SKIPS LOESCHEN>">@100:R0>JHOHM9:VE2:110>TSR$"SKIP LOESCHEN":150>^IA1 10000>hHO0:VE7:110?r120:" Skip :";HP$'?|HP$"" 1070H?110:" Skip : ";HP$LL$e? SKIP IN TABELLE SUCHENm?I0?A$(I)HP$ 8180?II1:IAI 8100?HOHM11:110?R1 1070: NUR EINEN SKIP!?"Nichts weiter gefunden!"?SD20:450@1070"@ GEFUNDEN! -> ANZEIGEN...5@HO0:VE8:110P@" Vorname : ";B$(I);l@ L(B$(I)):(L2$,10L)@ " QTH : ";C$(I);@ L(C$(I)):(L2$,20L)@& " Stamm : ";D$(I);" "@0 ::120:HOHM9:110@: "Satz loeschen (J/N)"AD 200:(IN74)(IN78)82601AN IN78 8110: NEIN!7AX ZAb Geloescht wird, indem der zuAl loeschende Datensatz durch denAv letzten gueltigen DatensatzA ersetzt wird und die AnzahlA der gueltigen Saetze um 1 ver-A mindert wirdB B A$(I)A$(IA):B$(I)B$(IA)=B C$(I)C$(IA):D$(I)D$(IA)ZB IAIA1:IIA1:R1:8110`B"sB# SKIPS SUCHENyB #B(#100:T0: NORMALE SUCHEB2#HOHM9:VE2:110B<#SR$"SKIPS SUCHEN":150BF#IA1 10000BP#HO0:VE6:110:I0 CZ#120:" Skip :";HP$Cd#HP$"" 1070@Cn#110:" Skip : ";HP$LL$^Cx#(HP$)20 HP$(HP$,20)rC#HP$A$(I)9140C#II1:IIA 9090C#HOHM13:VEVM:110C#" Ende der Datei... "C#SD20:450:1070C#HO0:VE7:110D#" Vorname : ";B$(I);!D#L(B$(I)):(L2$,10L)+A$(AN1)"":" Skip :";A$(AN1)FH+(A$(AN1)"")A$(I)A$(AN1)FR+110F\+" Skip : ";A$(I)LL$Ff+120Gp+B$(AN1)"":" Vorname :";B$(AN1)5Gz+(B$(AN1)"")B$(I)B$(AN1)>G+110\G+" Vorname : ";B$(I)LL$eG+120G+C$(AN1)"":" QTH :";C$(AN1)G+(C$(AN1)"")C$(I)C$(AN1)G+110G+" QTH : ";C$(I)LL$G+120H+D$(AN1)"":" Stamm :";D$(AN1)+H+(D$(AN1)"")D$(I)D$(AN1)4H+110RH+" Stamm : ";D$(I)LL$lH+HOH010:VEV01:110H,SR$"TASTE":150H,200:IN0 11280H,1070H0u -----------------------------H:u VERWENDETE VARIABLENIDu -----------------------------,INu HM,VM = MERKER FUER HO/2,VE/2LIXu H0,V0 = MERKER FUER HO,VEgIbu A$-D$ = DATENSTRINGSIlu L1$ = LEERSTRING(20 Z.)Ivu L2$ = LEERSTRING(6 Z.)Iu HP$ = HILFSSTRINGIu AN = MAX. DATENSAETZEIu IA = VORH. DATENSAETZEJu PA = DRUCKSEITE5Ju Z = ZAEHLER GESAMTXJu Z1 = ZAEHLER ZEILEN/SEITErJu HP$ = HILFSSTRINGJu K,T = HILFSVARIABLENJu L = STRING-LAENGEJu I,J = LAUFVARIABLENJu -----------------------------Ku Das Programm stellt eine Da-/Ku tenverwaltung dar, die demOKv CB-Funker eine Hilfe seinqK v soll. Das Programm soll zumKv Experimentieren anregen.K v An Verbesserungen ist derK*v Autor stets interessiert.K4v -----------------------------L>v Der Druck ist auf Einzelblatt)LHv ausgelegt.MLRv ACHTUNG! Paper-Out-Sensor istqL\v zu desaktivieren; Auto-LiningLfv (LF=CHR$(10)) muss aktiv seinLpv (eventuell Steuerzeichen inLzv Zeile 2480-2500 einfuegen)!Lv Drucker, die kein Auto-LF be- Mv sitzen, brauchen in den Zei-DMv len 2540, 2580, 2620 und 2750hMv ein zusaetzliches "GOSUB360"!M} ------------------------------M } Autor: Rene BollingerM} Beethovenstr. 3M} O-1597 POTSDAMM(} N2} geschrieben: 14.-16.11.1990+N<} Rechnertyp: ATARI 800XLGNF} getestet auf: KC 85/4pNP} ----------------------------------NZ} Erstausstrahlung: Deutschlandsender KulturNd}-spezial 910529 auf: KC 85/4pNP} ----------------------------------NZ} E