10 '*******************************************
20 '********** S U P E R S C R I P T **********
30 '********** Basiclader  und  Demo **********
40 '********** (c)  1987  M.  Uphoff **********
50 '*******************************************
60 '
70 GOSUB 720 'Superscript Maschinencode laden
80 script=&HF000
90 cls$=CHR$(27)+"E"+CHR$(27)+"H"
100 normal$=CHR$(27)+CHR$(0)
110 light$=CHR$(27)+CHR$(1)
120 fett$=CHR$(27)+CHR$(2)
130 ustr$=CHR$(27)+CHR$(4)
140 invers$=CHR$(27)+CHR$(8)
150 breit$=CHR$(27)+CHR$(16)
160 hoch$=CHR$(27)+CHR$(32)
170 expo$=CHR$(27)+CHR$(64)
180 index$=CHR$(27)+CHR$(128)
190 breithoch$=CHR$(27)+CHR$(48)
200 expobreit$=CHR$(27)+CHR$(80)
210 titel$=CHR$(27)+CHR$(255)
220 '
230 PRINT cls$;
240 text$=breithoch$+"DMV pr{sentiert:"
250 x%=4:y%=8:CALL script(x%,y%,text$)
260 text$=titel$+"SUPERSCRIPT"
270 x%=2:y%=20:CALL script(x%,y%,text$)
280 text$=normal$+"(c) 1987 Matthias Uphoff"
290 x%=60:y%=22:CALL script(x%,y%,text$)
300 text$=breit$+"Weiter mit einer beliebigen Taste..."
310 x%=8:y%=28:CALL script(x%,y%,text$)
320 WHILE INKEY$="":WEND
330 '
340 PRINT cls$;
350 text$=fett$+"SUPERSCRIPT"+normal$+" stellt auf dem Joyce verschiedene Schrifttypen und -gr|~en zur Verf}gung:"
360 x%=1:y%=2:CALL script(x%,y%,text$)
370 text$=normal$+"normal   "+ustr$+"unterstrichen"+light$+"   light   "+fett$+"fett   "+invers$+"invers"
380 x%=20:y%=5:CALL script(x%,y%,text$)
390 text$=hoch$+"doppelte H|he   "+expobreit$+"doppelte Breite "+breithoch$+"und beides zusammen"
400 x%=1:y%=9:CALL script(x%,y%,text$)
410 text$=normal$+"Weiterhin sind "+fett$+"Exponenten "+normal$+"und "+fett$+"Indizes "+normal$+"m|glich."
420 x%=20:y%=12:CALL script(x%,y%,text$)
430 text$=normal$+"Hier zum Beispiel ein Polynom 3. Grades:"
440 x%=20:y%=14:CALL script(x%,y%,text$)
450 text$=breit$+"Y = "
460 FOR grad=3 TO 1 STEP -1
470 grad$=MID$(STR$(grad),2)
480 text$=text$+"A"+index$+grad$+breit$+"X"+expo$+grad$+breit$+" + "
490 NEXT grad
500 text$=text$+breit$+"A"+index$+"0"
510 x%=20:y%=17:CALL script(x%,y%,text$)
520 text$=normal$+"Nat}rlich lassen sich auch verschiedene Schriftformen mischen:"
530 x%=15:y%=22:CALL script(x%,y%,text$)
540 text$=breit$+"Ende mit einer beliebigen Taste..."
550 x%=15:y%=28:CALL script(x%,y%,text$)
560 text$="------------>"
570 x%=15:y%=25:CALL script(x%,y%,text$)
580 '
590 WHILE INKEY$=""
600 text$=expo$+SPACE$(30)
610 x%=45:y%=25:CALL script(x%,y%,text$)
620 text$=index$+SPACE$(30)
630 CALL script(x%,y%,text$)
640 typ=INT(RND*255)
650 text$=CHR$(27)+CHR$(typ)+"Schrifttyp"+STR$(typ)
660 CALL script(x%,y%,text$)
670 FOR warte=1 TO 1000:NEXT
680 WEND
690 PRINT cls$
700 END
710 '
720 MEMORY &HEFFF
730 FOR adr=&HF000 TO &HF1C9
740 READ byte$:v=VAL("&H"+byte$):s=s+v:POKE adr,v
750 NEXT
760 IF s<>55722! THEN PRINT"DATAFEHLER !!!":END
770 RETURN
780 '
790 DATA 6E,1A,67,2D,25,22,BD,F1
800 DATA 69,60,7E,B7,C8,4F,06,00
810 DATA 32,BC,F1,23,7E,23,66,6F
820 DATA 11,E9,F1,ED,B0,01,26,F0
830 DATA CD,5A,FC,E9,00,C9,3A,BC
840 DATA F1,47,21,E9,F1,7E,FE,1B
850 DATA 20,0B,23,05,C8,7E,32,BB
860 DATA F1,23,05,C8,7E,C5,E5,6F
870 DATA 26,00,29,29,29,11,00,B8
880 DATA 19,11,C9,F1,01,08,00,ED
890 DATA B0,21,01,01,22,BF,F1,3A
900 DATA BB,F1,FE,FF,28,29,1F,DC
910 DATA BC,F0,1F,DC,CE,F0,1F,DC
920 DATA B6,F0,1F,DC,DE,F0,1F,DC
930 DATA EC,F0,1F,DC,17,F1,1F,DC
940 DATA 3D,F1,1F,DC,3A,F1,CD,66
950 DATA F1,E1,C1,23,10,A7,C9,21
960 DATA C9,F1,06,08,ED,5B,BD,F1
970 DATA 7A,90,57,14,C5,D5,E5,06
980 DATA 08,4E,CB,01,21,C9,F1,38
990 DATA 03,21,C1,F1,CD,92,F1,1C
1000 DATA 7B,10,EF,E1,D1,C1,23,10
1010 DATA E2,32,BD,F1,18,CB,21,D0
1020 DATA F1,36,FF,C9,F5,21,C9,F1
1030 DATA 06,08,7E,CB,3F,A6,77,23
1040 DATA 10,F8,F1,CB,87,C9,F5,21
1050 DATA C9,F1,06,08,7E,CB,3F,B6
1060 DATA 77,23,10,F8,F1,C9,F5,21
1070 DATA C9,F1,06,08,7E,2F,77,23
1080 DATA 10,FA,F1,C9,F5,3E,02,32
1090 DATA BF,F1,DD,21,C9,F1,0E,08
1100 DATA 06,08,DD,7E,00,1F,DD,CB
1110 DATA 00,1E,DD,CB,10,1E,DD,CB
1120 DATA 00,2E,DD,CB,10,1E,10,ED
1130 DATA DD,23,0D,20,E3,F1,C9,3E
1140 DATA 02,32,C0,F1,11,D0,F1,CD
1150 DATA 2A,F1,3A,BF,F1,3D,C8,11
1160 DATA E0,F1,21,08,00,19,06,08
1170 DATA 1A,1B,77,2B,77,2B,10,F8
1180 DATA AF,C9,AF,18,02,3E,02,32
1190 DATA C0,F1,11,D8,F1,CD,50,F1
1200 DATA 3A,BF,F1,3D,C8,11,E8,F1
1210 DATA CD,5C,F1,21,FC,FF,19,01
1220 DATA 08,00,ED,B8,AF,12,1B,12
1230 DATA 1B,12,1B,12,1B,C9,21,C9
1240 DATA F1,ED,4B,BF,F1,ED,5B,BD
1250 DATA F1,D5,E5,15,05,05,CC,92
1260 DATA F1,14,CD,92,F1,14,04,04
1270 DATA CC,92,F1,E1,11,10,00,19
1280 DATA D1,1C,0D,20,E4,ED,53,BD
1290 DATA F1,C9,7B,FE,5A,D0,7A,FE
1300 DATA 20,D0,C5,D5,E5,16,00,07
1310 DATA 17,17,17,6F,7A,CE,B6,67
1320 DATA 7E,23,66,6F,EB,29,29,19
1330 DATA 29,EB,E1,01,08,00,ED,B0
1340 DATA D1,C1,C9,00,00,00,00,00
1350 DATA 00,00,00,00,00,00,00,00
1360 DATA 00,00