Computerclub Deutschland e.V. • Postfach 11 0411 • D-6000 ...

Weitere Magazine

Empfehlungen

Info

812 GETI SWAP DROP DUP 814 816 RCLALARM SWAP DELALARM DUP BEG IF 1 FC? THEN STOALARM 013 ELSE DROP END 1 CF 16.1 828 822 END DUP 12.1 == THEN DROP SNOSRV 12.1 END DUP 13.1 = = 824 THEN DROP DALARM 16.1 826 END DUP 14.1 == THEN DROP DSTR 828 838 T"n I M0 E 4 1 0+LIST 0 * I P BEG 1 0 8 1 / C-F 16.1 END DUP 15.1 == 832 834 836 THEN DROP PRVW PGX 15.1 END END * B y t e s : 4 8 5 Checksum : # 6A4h 48SX R G X « MHEAD SETU3 DEPTH 882 POSTX * Bytes "• 33 884 Checksum : # D65Ch 48SX OflL+MSG « DUP 5 GET SWAP 882 DUP 3 GET SWAP 2 GET DUP IP DUP 884 IF 10 < THEN "O" SWAP + 886 END ":" + SWAP FP 188 * IP DUP 888 IF NOT THEN DROP "88" 818 END + " " + SWAP + SWAP 2 +LIST 812 » B y t e s : 1 5 8 . 5 Checksum : # 68AAh ; " " * ' i i " r \ r \ " 48SX 3 E X N O 882 884 ■ >: ■ H n n q "" ""RTN" j- MENU * B u t e s : 5 3 . 5 checksum : ft~5ABCh 48SX N O H E R O * DSTR DOW DSTR 802 004 006 808 010 TIME TSTR 4 12 SUB + " " S W A P + Keine Termine a m" CLLCD 1 DISP 1 FREEZE 3 DISP 3 FREEZE » B y t e s : 11 6 Checksum : # 8C78h 4 3 S X 882 R O 3 X X , Bytes : 115 Checksum : # 72D5h 43SX RRS-^MS « DEPTH 1 SWAP 882 START OAL+MSG DEPTH ROLL 884 NEXT * B y t e s : 3 3 886 Checksum : # 55D4h 43SX RLRM-* « 'NXTALRM' STO 882 DO NXTALRM IFERR RCLALARM 884 THEN DROP DSTR 1 + 1 +LIST 006 ELSE 0BJ+ DROP NXTALRM 5 +LIST 008 NXTALRM 1 + 'NXTALRM' STO 010 END UNTIL DUP 1 GET 812 DSTR * END DROP 014 s> Bytes : 162.5 Checksum : ft B5C3h 48SX 3 E X U 3 « •:. "EDIT" "ACK" 882 "DEL" "ADD" "VIEW" "RTN" } MENU 884 Bytes : 67.5 Checksum : # DED7h 48SX F R R R X 3 « DSTR FINDALARM 882 DUP IF 884 THEN ALRM+ ELSE DROP 886 END DEPTH * B u t e s : 4 6 888 Checksum : ft 5S83h 4SSX N O R R R X 3 802 DO NOHEAD SETNO -1 WAIT D0K3 884 UNTIL 16.1 == END 886 » Bytes : 61 Checksum : # AEBAh 48SX C> V W K « "[" DY8 DSTR 882 DDAYS NDOY OVER - FI3 SWAP FI3 "/" + 884 5WAP + + "!" + WK*> FI3 + 1 +GROB £ 886 # 58h # 33h } SWAP REPL 888 », Bytes : 141.5 Checksum : # 5El5h 48SX W K ? * MOFRST DSTR DDAYS 882 7 / FLOOR 1 + CASE DUP 8 == 884 THEN DROP WKFRST 886 END DUP WKLST > THEN DROP 1 888 END END 818 » B y t e s : 11 8 Checksum : # 38i6h 48SX W K 3 E X « 1 DSTR XT Fp 101 882 + 1 X DUP FMOY DUP 'MOFRST' STO OVER 884 .888801 + FMOY DDAYS 7 / 'WKLST' 886 STO .888881 - FMOY MOFRST DDAYS 7 / 808 'WKFRST' STO Butes : 173.5 010 Checksum : ft 3DClh 48SX E M O V •« DUP NDOW DUP 882 IF 3 4 THEN 1 SWAP - 884 DATE+ ELSE 8 SWAP - 886 DATE+ END 008 2- Bytes : 67.5 Checksum : ft 4588h 48SX NC-OW * 1.81199 SWAP 002 DDAYS 7 MOD 1 + 3> Bytes : 35.5 004 Checksum : # BE88h 43SX O- V 3 E X « 1 OVER XT FP 3112 882 + 1 X DUP .880881 - DUP 'DY8' STO SWAP 884 DDAYS 'NDOY' STO » B y t e s : 9 8 886 Checksum : # l6E5h 48SX E I S * +STR " " SWAP + 882 DUP SIZE DUP 2 - SWAP SUB 884 :* Bytes s 42 Checksum : # lC36h 43SX BLKMENU a y r 1 1 I I I I I I [ 1 I I I I I I I I I I 802 """} MENU s> Bytes '• 47,5 004 Checksum : # CEilh 43SX REREEX « BLKMENU 882 "Repeat #. Then ENT er/' 884 "" input obj+ •;: "Week" "Day1" "Hour" 886 " M i n " " s e c f f " N o n e " > MENU 888 " N o w p r e s s r e p e a t u nit" 818 3 DISP 3 FREEZE -1 WAIT 812 CASE DUP 11.1 == THEN DROP 56 Computerclub Deutschland e.V. PRISMA 1/92
814 45R45216O0 * END DUP 12.1 == 816 THEN DROP 787733388 * 818 END DUP 13.1 == THEN DROP 020 25451288 * END DUP 14.1 = = 822 THEN DROP 824 826 * 451528 * END DUP 15.1 = = THEN DROP 8152 END DUP 16.1 == 828 THEN 8 * END 838 END SWAP DROP 4 SWAP PUT 832 » B u t e s : 4 1 4 Checksum : # 2F88h 48SX QRLRRM « 2 GET DELALARM 802 s - B y t e s : 1 7 . 5 Checksum : # SBEEh 48SX £> O K -4 002 CASE DUP DUP 17 > SWAP 51.3 * AND 004 THEN 1888 .2 BEEP 006 END DUP 51.3 == THEN OFF 088 END DUP 11.1 == THEN DROP DATTE 010 11.1 END DUP 12.1 = = 012 THEN DROP HOUR 12. 1 814 END DUP 13.1 == THEN DROP MSSG 816 13. 1 END DUP 14.1 == 818 THEN REPEET 14. 1 828 END DUP 15.1 == THEN DROP 822 STOALARM DROP 1 SF 15. 1 END DUP 16.1 == 824 THEN 1 CF SWAP 826 DROP END 82S END » e y t e s : 3 3 1 838 Checksum : # 48C5h 48SX SETU4 « { "DATE" "TIME" 882 "MSG" "PPT" "SET" "ABRT" } MENU 884 :* But ps : f-.-R.F, Checksum : ft SFDAh 48SX 882 884 886 M 3 3 G « BLKMENU 3 GETI SWAP DROP a 2 +LIST "Meldungs dann ENTER." SWAP INPUT 3 SWAP PUT * B y t e s : 7 7 . 5 888 Checksum : ft 7435h 48SX HOUR « BLKMENU 2 GETI 882 SWAP DROP +STR -1 2 + LIST 884 "Zeit (HH.MM): dann ENTER. " 886 SWAP INPUT HRJ+ 2 SWAP PUT 888 3- Ryte=: : P,F,,F, Checksum : ft FF54h 48SX 48SX t>RXXE 882 DC BLKMENU 1 GETI SWAP DROP +STR -1 2 884 + LIST "Datum (DD.MMYYYY): 886 dann ENTER." SWAP INPUT OBJ+ 888 UNTIL DUP DUP DUP IP DUP 8 > SWAP 32 818 < AND SWAP FP 180 * IP 13 < AND SWAP 812 100 * FP 10000 * 1550 h AND DUP 814 IF NOT THEN SWAP DROP 816 yLLCD , Falsches Datum. Re 818 qel:" 1 DISP 1 FREEZE 828 "8 < DD < 32" 3 DISP 3 FREEZE 822 "8 < MM < 13" 4 DISP 4 FREEZE 824 "1558 i YYYY" 5 DISP 5 FREEZE 826 Obere Taste drucke n" 828 7 DISP 7 FREEZE -1 WAIT DROP 038 END END 1 SWAP PUT 832 » B y t e s : 3 9 7 . 5 Checksum : # BlEDh 43SX R E 3 H « CLLCD 1 GETI 882 "Datum " SWAP + 1 DISP 1 FREEZE GETI 884 "Zeit " SWAP + 2 DISP 2 FREEZE GETI 886 "Msg. " SWAP + 3 DISP 3 FREEZE DROP 888 "erst Soft key druck en" 818 5 DISP 5 FREEZE 3ETU4 812 » B y t e s : 1 4 6 . 5 Checksum : ft S869h 4SSX B E G 882 DO RFSH -1 WAIT DOM 884 UNTIL DUP 15.1 == SWAP 16.1 == OR 886 END * B y t e s : 7 1 888 Checksum : ft 8ABFh 48SX XORC « CLLCD 882 " ALARME «-+ PC" 1 DISP 1 WAIT SETU6 884 * B y t e s : 4 9 Checksum : ft 56Flh 48SX O V E R A L L « DR0P2 882 DO TOPC Di~iK6 UNTIL 16.1 == 884 END 'ALARME' PURGE 886 3> Bytes : 65 Checksum : # CSBCh 4SSX o oks. 882 DO -1 WAIT CASE DUP 91.3 884 =.= THEN OFF 886 END DUP 12.1 888 THEN DROP 'ALARME' 818 IFERR CLLCD SEND 812 THEN DROP "NAME-FILE-I/O Prob 814 lem" 1 DISP 1 FREEZE 816 "Check + retry" 2 DISP 2 FREEZE" 818 , ELSE CLLCD CK" 2 DISP 2 828 FREEZE END 12.i 822 END DUP 11.1 824 THEN DROP AL+LI .1 1508 BEEP 826 CLLCD "File: ALARME ok !" 828 2 DISP 2 FREEZE i 1 i 830 END DUP 14.1 832 THEN DROP RECV CLLCD 834 "Liste OK !" 2 DISP 2 FREEZE 14.1 836 END DUP 15.1 838 THEN DROP LI+AL .1 1588 BEEP 848 CLLCD "ALARME OK !" 2 DISP 2 FREEZE 842 15.1 END 844 END 1 WAIT UNTIL 16.1 == 046 END 16.1 Bytes : 528.5 848 Checksum : ft AD58h 48SX 3 E X U ■£- « £ "AL+LI" "SEND" 882 " " " R E C V I + A L " "ABRT" } MENU 884 » B y t e s : 6 9 . 5 Checksum : ft 37CDh 43SX RL-S-L I « 1 'NA' STO 882 DO NA IFERR RCLALARM 884 THEN 8 ELSE NA 1 + 886 END DUP 'NA' STO 888 UNTIL 8 == END 1 - +LIST 818 'ALARME' STO 'NA' PURGE 812 * B y t e s ; 1 2 7 checksum : # 2E86h 48SX l_ I -*-RI_ * "NAME" £ £ i 8 > 882 ot } INPUT 0BJ+ OBJ* 1 SWAP 884 FOR i STOALARM DROP 886 NEXT '•*■ Bytes : 65.5 888 Checksum : ft E87Fh 48SX CHKfiLRM « 1 GETI time TSTR 882 1 12 SUB 4 DISP 4 FREEZE DROP 3 GETI 884 SWAP DROP DUP TYPE 886 IF THEN SRCSTR POS 888 ELSE DROP 8 END 818 TF THEN 1 'FNDALRM' 812 STO ELSE DROP 814 END > B y t e s : i - * 3 816 checksum : # FA96h PRISMA 1/92 Computerclub Deutschland e.V. 57
Seite 1 und 2:
n PRJSKlfl Computerclub Deutschland
Seite 3 und 4:
Inhalt Magazin Protokoll der Mitgli
Seite 5 und 6: Wer auBer dem 48SX noch einen Compu
Seite 7 und 8: Schnittstelle werden gewahlt und de
Seite 9 und 10: Bedienungsanleitung keine weitere U
Seite 11 und 12: pression sogar in einen Sektor ge s
Seite 13 und 14: SEARCH « SWAP DUP TYPE ROT C > + t
Seite 15 und 16: evorzugt Komponenten zweiter Wahl a
Seite 18 und 19: 48SX Schnelle Telefonliste von Giin
Seite 21 und 22: AuBere Planeten, Kleinplaneten, wie
Seite 23: 48SX 002 004 006 008 010 012 814 81
Seite 26 und 27: Datum junger als das 2. Datum ist.
Seite 28 und 29: 71B ODE: D131 E214 C161 UBA 7B 117:
Seite 30 und 31: einem Schaltrelais auf einer Lochra
Seite 33 und 34: 33 XEQ 00 34 "QTX" 96 97 t 35 XEQ 0
Seite 35: 41Cx Belastungsglieder und Volleins
Seite 38: 41Cx 38 Computerclub Deutschland e.
Seite 43: m Ich fange am besten mit dem an, w
Seite 46: Stelle, an der spater ein String st
Seite 49 und 50: W = 1 1 . 1QHNF" « £ } 'SDIS' STO
Seite 51 und 52: 2B5 ?1. *3. iggg ■ ■ ^ m M " "
Seite 53 und 54: "Schon wieder" werden sich einige d
Seite 55: 038 END DUP 14.1 *= THEN DROP 032 O
Seite 59: SERVICELEISTUNGEN BEST OF PRISMA Sc
Alle anzeigen

Computerclub Deutschland e.V. • Postfach 11 0411 • D-6000 ...

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?