1 REM ***********************
2 REM *     DEVISEN 64      *
3 REM *     WRITTEN BY      *
4 REM *    THOMAS KNOOP     *
5 REM *   HIRSCHGRABEN 15   *
6 REM *   2000 HAMBURG 76   *
7 REM *      FEB. 1987      *
8 REM ***********************
10 PRINT"[147]";
11 DIM A$(18),A(18),B(18),B$(18)
12 POKE 53280,0:POKE 53281,0
15 PRINTCHR$(142);:PRINT CHR$(8);
20 FOR X=1 TO 18:READ A$(X),A(X),B(X),B$(X):NEXT:READ T$,M$,J$
25 T$(1)="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
26 T$(2)="[221] DEVISEN 64[182] WRITTEN BY[182] THOMAS KNOOP [221]"
27 T$(3)="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
29 D=1
30 GOSUB 2500
31 PRINT"[145]";
32 PRINT TAB(13)" M E N U E [146]"
33 PRINT
34 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
35 PRINT"[221]";SPC(2)"1[146] = DM BETRAG IN AUSL.WAEHRUNG";SPC(6)"[221]";
40 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
45 PRINT"[221]";SPC(2)"2[146] = AUSL.WAEHRUNG IN DM BETRAG";SPC(6)"[221]";
50 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
55 PRINT"[221]";SPC(2)"3[146] = AUSL.WAEHRUNG IN AUSL.WAEHRUNG";SPC(2)"[221]";
60 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
65 PRINT"[221]";SPC(2)"4[146] = KURS-UEBERSICHT";SPC(17)"[221]";
70 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
75 PRINT"[221]";SPC(2)"5[146] = KURSE AENDERN";SPC(19)"[221]";
76 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
77 PRINT"[221]";SPC(2)"6[146] = KURSE DRUCKEN";SPC(19)"[221]";
80 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
85 PRINT"[221]";SPC(2)"7[146] = KURSE LADEN";SPC(21)"[221]";
90 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
95 PRINT"[221]";SPC(2)"8[146] = KURSE ABSPEICHERN";SPC(15)"[221]";
100 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
105 PRINT"[221]";SPC(2)"9[146] = PROGRAMM - ENDE";SPC(17)"[221]";
110 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
114 POKE 55296,1
115 POKE 2023,125
120 GET X$
125 X=VAL(X$)
130 IF X<1 OR X>9 THEN 120
135 ON X GOTO 145,240,355,515,745,1155,855,960,1065
140 GOTO 120
145 REM ** DM-AUSL. **
150 GOSUB 2525
155 GOSUB 2500
160 ZA=VAL(BE$)
165 PRINT"EINZUWECHSELNDER DM BETRAG ?";
168 GR=6
170 GOSUB 2665
175 DM=VAL(BE$)
180 AU=DM/A(ZA)
185 AU=AU*B(ZA)
187 AU=INT(100*AU+.5)
189 AU=AU/100
190 PRINT:PRINT:PRINT
195 PRINT TAB(8)"SIE BEKOMMEN FUER"DM"DM"
197 PRINT
198 PRINTTAB(10)">>"AU;B$(ZA)" <<"
200 FOR X=1 TO 9:PRINT:NEXT
205 FOR X=1 TO 40:PRINT"[192]";:NEXT
210 PRINT"[181]  M[146] = MENUE [194] W[146] = DM - AUSL.WAEHRUNG  [182]";
215 FOR X=1 TO 40:PRINT"[192]";:NEXT
220 GET X$
225 IF X$="M"THEN 30
230 IF X$="W"THEN 145
235 GOTO 220
240 REM ** AUL.-DM **
245 GOSUB 2525
250 GOSUB 2500
255 ZA=VAL(BE$)
260 PRINT"EINZUWECHSELNDEN "B$(ZA)" BETRAG ?";
263 GR=6
265 GOSUB 2665
270 BE=VAL(BE$)
275 AU=BE*A(ZA)
280 AU=AU/B(ZA)
285 AU=INT(100*AU+.5)
290 AU=AU/100
295 PRINT:PRINT
300 PRINT TAB(4)"SIE BEKOMMEN FUER"BE;B$(ZA)
305 PRINT
310 PRINT TAB(12)">>"AU"DM <<"
315 FOR X=1 TO 9:PRINT:NEXT
320 FOR X=1 TO 40:PRINT"[192]";:NEXT
325 PRINT"[181]  M[146] = MENUE [194] W[146] = AUSL. - DM BETRAG   [182]";
330 FOR X=1 TO 40:PRINT"[192]";:NEXT
335 GET X$
340 IF X$="M"THEN 30
345 IF X$="W"THEN 240
350 GOTO 335
355 REM ** AUSL.-AUSL. **
360 ZZ=1
365 GOSUB 2525
370 PRINT"VON LAND (NUMMER) ?";
375 GR=2
378 GOSUB 2665
380 A=VAL(BE$)
381 Y=VAL(BE$)
384 GOSUB 2810
385 PRINT"[145]                                       ";
390 PRINT:PRINT"[145]";
395 PRINT"NACH LAND (NUMMER) ?";
400 GR=2
403 GOSUB 2665
405 B=VAL(BE$)
407 Y=VAL(BE$)
408 GOSUB 2810
410 ZZ=0
415 GOSUB 2500
420 PRINT"UMZURECHNENDER "B$(A)" BETRAG ?";
423 GR=6
425 GOSUB 2665
430 BE=VAL(BE$)
435 AU=BE*A(A)/B(A)
440 AU=AU/A(B)*B(B)
445 AU=INT(100*AU+.5)
450 AU=AU/100
455 PRINT:PRINT
460 PRINT TAB(8)"SIE BEKOMMEN FUER"BE;B$(A)"
465 [153]
470 [153] [163]12)">>"AU;B$(B)" <<"
475 [129] X[178]1 [164] 10:[153]:[130]
480 [129] X[178]1 [164] 40:[153]"TAN";:[130]
485 [153]"INT  MWAIT = MENUE PEEK WWAIT = AUSL.-AUSL.WAEHRUNG ABS";
490 [129] X[178]1 [164] 40:[153]"TAN";:[130]
495 [161] X$
500 [139] X$[178]"M"[167] 30
505 [139] X$[178]"W"[167] 355
510 [137] 495
515 [143] ** KURS-UEBERSICHT **
520 [141] 2500
525 [153]"ONON";
530 [129] X[178]1 [164] 40:[153]"AND";:[130]
535 [129] X[178]1 [164] 18
540 [153]"INT";[166]38)"ABS";
545 [130]
550 [129] X[178]1 [164] 40:[153]"USR";:[130]
555 [153]""
560 [153]
565 [129] X[178]1 [164] 18
570 [153] [166]14)"PEEK";[166]12)"PEEK";[166]12)
575 [130]
580 [153]""
585 [153]
590 [129] X[178]1 [164] 18
595 Y[178][195](A$(X))
600 Y[178]39[171]Y
605 [153] [166]1);A$(X);[166]Y)
610 [130]
615 [153]""
620 [153]
625 [129] X[178]1 [164] 18
630 Y[178][195](B$(X))
635 X$[178][196](B(X))
640 Z[178][195](X$)
645 Y[178]Y[170]Z[171]1
650 Y[178]23[171]Y
655 [153] [166]15)B(X);B$(X);[166]Y)
660 [130]
665 [153]""
670 [153]
675 [129] X[178]1 [164] 18
680 X$[178][196](A(X))
685 Y[178][195](X$)
690 Y[178]11[171]Y
695 [153] [166]28);A(X);[166]Y)
700 [130]
705 [153]""
710 [153]
715 [129] X[178]1 [164] 18
720 [153] [166]36);"DM";[166]2)
725 [130]
730 [153]"STAND : ";T$;".";M$;".";J$
732 [139] ZZ[178]1 [167] [142]
735 [151] 198,0:[146] 198,1
740 [137] 30
745 [143] ** KURSE AENDERN **
750 ZZ[178]1:[141] 515
755 ZZ[178]0
760 [153]""
765 [153]
770 [129] X[178]1 [164] 18
775 [153] [166]29);
778 [151] 19,64
780 [133] X$
782 [153]
783 [151] 19,0
785 X$[178][200](X$,6)
790 BE[178][197](X$)
795 A(X)[178]BE
798 [139] [181](X[173]2)[179][177]X[173]2 [167] [153]"ON";
800 [130]
805 [153]
810 [153] [166]8)"ON";
815 [151] 19,64
820 [133] X$
825 [153]
830 [151] 19,0
835 T$[178][200](X$,2)
840 M$[178][202](X$,4,3)
845 J$[178][201](X$,4)
850 [137] 30
855 [143] ** KURSE LADEN **
860 [141] 2500
861 [153]"ON";
862 [153] [163]14)"(null)TANTANTANTANTANTANTANTANTANTANTANRIGHT$"
863 [153] [163]14)"(null)DATEN LADEN(null)"
864 [153] [163]14)"MID$TANTANTANTANTANTANTANTANTANTANTAN(null)"
865 [153]:[153]
867 [139] D[178]1 [167] [153]"DATENTRAEGER : DISKETTEWAIT / KASSETTE"
868 [139] D[178]2 [167] [153]"DATENTRAEGER : DISKETTE / KASSETTEWAIT"
869 [153]:[153]
870 [153]" BITTE LEGEN SIE DIE DATEN-DISKETTE EINWAIT"
875 [153]
880 [153] [163]6)"UND DRUECKEN DANACH 'RETURN'WAIT"
885 [161] X$
890 [139] X$[178][199](13)[167] 900
891 [139] X$[178][199](32)[167] 30
894 [139] X$[178][199](29)[167] [141] 2865
895 [137] 885
900 [139] D[178]2 [167] 904
903 [141] 2740
904 [151] 214,16:[151] 211,10:[158] 58640
905 [153]"DATEN WERDEN GELADEN"
908 [139] D[178]2 [167] [159] 3,1,0,"KURSE":[137] 915
910 [159] 3,8,5,"KURSE,S,R"
915 [129] X[178]1 [164] 18
920 [132]3,A(X)
925 [130]
930 [132]3,T$
931 [132]3,M$
932 [132]3,J$
935 [160] 3
940 [151] 214,16:[151] 211,10:[158] 58640
945 [153]" DATEN SIND GELADENWAIT "
950 [129] X[178]1 [164] 2000:[130]
955 [137] 30
960 [143] ** KURSE SPEICHERN **
965 [141] 2500
966 [153]"ON";
967 [153] [163]12)"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
968 [153] [163]12)"(null)DATEN SPEICHERN(null)"
969 [153] [163]12)"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
970 [153]:[153]
973 [153]"DATENTRAEGER : DISKETTEWAIT / KASSETTE"
974 [153]:[153]
975 [153]" BITTE LEGEN SIE DIE DATEN-DISKETTE EINWAIT"
980 [153]
985 [153] [163]6)"UND DRUECKEN DANACH 'RETURN'WAIT"
990 [161] X$
995 [139] X$[178][199](13)[167] 1005
997 [139] X$[178][199](32)[167] 30
998 [139] X$[178][199](29)[167] [141] 2865
1000 [137] 990
1005 [139] D[178]2 [167] 1009
1008 [141] 2740
1009 [151] 214,16:[151] 211,8:[158] 58640
1010 [153]"DATEN WERDEN GESPEICHERT":[153]
1012 [139] D[178]2 [167] [159] 3,1,1,"KURSE":[137] 1020
1015 [159] 3,8,5,"@:KURSE,S,W"
1020 [129] X[178]1 [164] 18
1025 [152]3,A(X)
1030 [130]
1035 [152]3,T$
1036 [152]3,M$
1037 [152]3,J$
1040 [160] 3
1045 [151] 214,16:[151] 211,8:[158] 58640
1050 [153]" DATEN SIND GESPEICHERTWAIT "
1055 [129] X[178]1 [164] 2000:[130]
1060 [137] 30
1065 [143] ** PROGRAMM - ENDE **
1070 [141] 2500
1075 [153]:[153]:[153]:[153]:[153]:[153]
1080 [153]"HABEN SIE ALLE DATEN GESICHERT ?  ";
1085 [161] X$
1087 [153]"CMDSTOP ";:[129] X[178]1 [164] 200:[130]
1088 [153]"CMD ";:[129] X[178]1 [164] 200:[130]
1090 [139] X$[178]"J"[167] [153]"CMDJAWAIT":[137] 1115
1095 [139] X$[178]"N"[167] [153]"CMDNEINWAIT":[137] 1105
1100 [137] 1085
1105 [129] X[178]1 [164] 1000:[130]
1110 [137] 30
1115 [129] X[178]1 [164] 1000:[130]
1120 [141] 2500
1125 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]
1130 [153] [163]6)"ONCMDSTOP P R O G R A M M  -  E N D E "
1135 [129] X[178]1 [164] 200:[130]
1140 [153] [163]6)"ONCMD P R O G R A M M  -  E N D E "
1145 [129] X[178]1 [164] 200:[130]
1150 [137] 1130
1155 [143] ** KURSE DRUCKEN **
1160 [141] 2500
1165 [153] [163]3)"BITTE LEGEN SIE DAS PAPIER EIN UND"
1170 [153]
1175 [153] [163]8)"SCHALTEN DEN DRUCKER AN"
1180 [153]
1185 [153] [163]15)"T A S T EWAIT"
1190 [151] 198,0:[146] 198,1
1200 [141] 2770
1205 PO$[178][199](16):SR$[178][199](14)
1207 [141] 2500
1208 [153]"";[163]13)" ICH DRUCKE ! WAIT"
1210 [159] 3,4
1215 [157] 3
1218 [152]3,SR$;"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1220 [152]3,"(null)";PO$;"05";"LAND";PO$;"30";"(null)";PO$;"35";"WAEHRUNG";PO$;"54";"(null)";
1224 [152]3,PO$;"57";"DM KURS";PO$;"78";"(null)"
1225 [152]3,"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
1230 [129] X[178]1 [164] 18
1235 [152]3,"(null)";PO$;"03";A$(X);PO$;"30""(null)";PO$;"33";B(X);B$(X);PO$;"54";"(null)";
1240 [152]3,PO$;"57";A(X);PO$;"73";"DM";PO$;"78";"(null)"
1245 [130]
1250 [152]3,"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1255 [152]3
1260 [152]3,PO$;"05";"STAND : ";T$;".";M$;".";J$
1265 [152]3
1270 [160] 3
1275 [153]"ON";[163]12)" F E R T I G  ! WAIT"
1280 [129] X[178]1 [164] 2000:[130]
1285 [137] 30
2500 [143] ** TITEL **
2505 [153]"LOAD";
2510 [129] X[178]1 [164] 3:[153]T$(X);:[130]
2515 [153]:[153]
2520 [142]
2525 [143] ** DATEN AUSGEBEN **
2530 [141] 2500
2531 Z[178]0
2532 [153]"ONON";
2535 [129] X[178]1 [164] 40:[153]"AND";:[130]
2540 [129] X[178]1 [164] 18
2545 [153]"INT";[166]38)"ABS";
2550 [130]
2555 [129] X[178]1 [164] 40:[153]"USR";:[130]
2560 [153]""
2565 [153]
2570 [129] X[178]1 [164] 18
2575 Y[178][195](A$(X))
2580 [139] X[178]10 [167] Z[178][171]1
2585 Y[178]26[171]Y
2590 [153][166]2);X;[166]2[170]Z)"PEEK      ";A$(X);[166]Y)
2595 [130]
2598 [139] ZZ[178]1 [167] [142]
2600 [153]"WELCHES LAND (NUMMER) ?";
2605 GR[178]2
2608 [141] 2665
2610 X[178][197](BE$)
2612 [129] Y[178]1 [164] 18
2615 [139] X[178]Y [167] 2630
2620 [130]
2625 [137] 2635
2630 [142]
2635 [141] 2500
2640 [153] [163]10)"FALSCHE NUMMER !!!!"
2645 [153]:[153]:[153]:[153]:[153]
2650 [153] [163]15)"T A S T E"
2655 [151] 198,0:[146] 198,1
2659 [151] 198,0
2660 [137] 2525
2665 [143] ** EINGABE **
2669 BE$[178]"":Z[178]0
2670 [153]"  WAIT";
2675 [161] X$
2680 [139] X$[178][199](13)[167] [153]"CMD ":[142]
2683 [139] X$[178][199](20)[167] 2720
2684 [139] X$[178][199](32)[167] ZZ[178]0:[137] 30
2685 [139] X$[178]"0"[176] X$[178]"1"[176] X$[178]"2"[176] X$[178]"3"[176] X$[178]"4"[176] X$[178]"5"[167] 2705
2690 [139] X$[178]"6"[176] X$[178]"7"[176] X$[178]"8"[176] X$[178]"9"[167] 2705
2700 [137] 2675
2705 [139] Z[178]GR [167] 2675
2708 BE$[178]BE$[170]X$
2710 [153]"CMD"X$;" WAIT";
2714 Z[178]Z[170]1
2715 [137] 2675
2720 [139] Z[178]0 [167] 2675
2724 [153]"CMD CMDCMD WAIT";
2725 BE$[178][200](BE$,Z[171]1)
2730 Z[178]Z[171]1
2735 [137] 2675
2740 [143] ** FLOPPY AN **
2743 [151] 768,185
2745 [159] 1,8,15,"I":[160] 1
2748 [151] 768,139
2750 [139] ST[178][171]128 [167] [153]:[153] [163]10)"FLOPPY NICHT BEREIT !WAIT"
2755 [139] ST[178][171]128 [167] [129] X[178]1 [164] 2000:[130]
2760 [139] ST[178][171]128 [167] 30
2765 [142]
2770 [143] ** DRUCKER AN **
2775 GN[178]4
2779 [151] 768,185
2780 [159] 127,GN
2785 [152]127:[160] 127
2789 [151] 768,139
2790 [139] ST[178][171]128 [167] [153]:[153] [163]9)"DRUCKER NICHT BEREIT !"
2795 [139] ST[178][171]128 [167] [129] X[178]1 [164] 2000:[130]
2800 [139] ST[178][171]128 [167] 30
2805 [142]
2810 [143] ** FALSCHE ZAHL **
2815 [129] X[178]1 [164] 18
2820 [139] X[178]Y [167] [142]
2825 [130]
2830 [141] 2500
2835 [153] [163]10)"FALSCHE NUMMER !!!!"
2840 [153]:[153]:[153]:[153]:[153]
2845 [153] [163]15)"T A S T E"
2850 [151] 198,0:[146] 198,1
2855 [151] 198,0
2860 [137] 365
2865 [143] ** DATENTRAEGER **
2870 [139] D[178]2 [167] 2895
2875 [151] 214,9:[151] 211,15:[158] 58640
2880 [153]"DISKETTE / KASSETTEWAIT"
2885 D[178]2
2890 [137] 2910
2895 [151] 214,9:[151] 211,15:[158] 58640
2900 [153]"DISKETTEWAIT / KASSETTE"
2905 D[178]1
2910 [151] 214,12:[151] 211,27:[158] 58640
2915 [139] D[178]1 [167] [153]"DISKETTEWAIT"
2920 [139] D[178]2 [167] [153]"KASSETTEWAIT"
2925 [142]
3000 [131] USA,1.89,1,DOLLAR
3005 [131] KANADA,1.44,1,DOLLAR
3010 [131] ENGLAND,2.91,1,PFUND
3015 [131] IRLAND,2.72,1,PFUND
3020 [131] HOLLAND,89.25,100,HFL
3025 [131] SCHWEIZ,120.00,100,SFRS
3030 [131] BELGIEN,4.87,100,BFRS
3035 [131] FRANKREICH,30.75,100,FF
3040 [131] DAENEMARK,27.25,100,DKR
3050 [131] NORWEGEN,27.00,100,NKR
3055 [131] SCHWEDEN,29.00,100,SKR
3060 [131] ITALIEN,1.45,1000,LIRE
3065 [131] OESTERREICH,14.33,100,OES
3070 [131] SPANIEN,1.47,100,PTAS
3075 [131] PORTUGAL,1.50,100,ESC
3080 [131] FINNLAND,41.00,100,FMK
3085 [131] GRIECHENLAND,1.55,100,DRA
3090 [131] JUGOSLAWIEN,0.45,100,DIN
3095 [131] 24,FEB,1987