10REM >TelProb 20REM by Steven Flintham 30REM 40REM Demonstrate the problem with co mbining single and double height text 50REM 60REM Monday 7th September 1992 70: 80MODE 7 90VDU 23;8202;0;0;0; 100PROCdisable 110PROCinit 120PROCdemonstrate 130MODE 7 140PROCenable 150END 160: 170DEF PROCdisable 180*FX229,1 190*FX4,2 200ENDPROC 210: 220DEF PROCenable 230*FX229,0 240*FX4,0 250ENDPROC 260: 270DEF PROCinit 280ON ERROR MODE 7:REPORT:PRINT " at l ine ";ERL:PROCenable:END 290ENDPROC 300: 310DEF PROCdemonstrate 320PROCproblem`demo 330PRINTTAB(0,0);"Vers. 1.00";TAB(32,0 );CHR$135;"(C) SGF" 340PRINTTAB(0,3);"This shows the style of combined heading"; 350PRINT "which works. The important p oint is that"; 360PRINT "the single height text is on the same" 370PRINT "line as the TOP of the doubl e height" 380PRINT "text." 390PROCspace 400CLS 410PROCproblem`demo 420PRINTTAB(0,1);"Vers. 1.00";TAB(32,1 );CHR$135;"(C) SGF" 430PRINTTAB(0,3);"This shows that the same style does not" 440PRINT "work if the single height te xt is on the"; 450PRINT "same line as the bottom half of the" 460PRINT "double height text. Examinat ion of the" 470PRINT "program will show that the t ext is still"; 480PRINT "being printed, even though i t does not" 490PRINT "appear." 500PROCspace 510ENDPROC 520: 530DEF PROCspace 540PRINTTAB(6,24);CHR$131;"Press SPACE to continue..."; 550*FX21 560REPEAT UNTIL GET=32 570ENDPROC 580: 590DEF PROCproblem`demo 600PRINTTAB(10,0);CHR$141;CHR$132;CHR$ 157;CHR$131;"Problem Demo ";CHR$156;CHR $140; 610PRINTTAB(10,1);CHR$141;CHR$132;CHR$ 157;CHR$131;"Problem Demo ";CHR$156;CHR $140; 620ENDPROC