}* FREE TUTORIAL EXAMPLE PROGRAM IN LISA GJ2 FIC3 WRITTEN BY }* }* ARISTO W.LAH, NORMAL YOGA4D CFDL, -- THIS ONE SHOWS HOW }* }* THE SIMPLE RECTANGLE FILL ROUTINE WORKS BY DRAWING VERY }* }* SIMPLISTIC DIGITS BY MEANS OF GIGANTIC LINES. 2011:3:3 }* (LET DRAW-IT BE (( >N4 >N3 >N2 >N1 )) (( (( N1 ; 18 => MUL ; N2 ; 60 => MUL ; N3 ; 18 => MUL ; 10 => ADD ; N4 ; 60 => MUL ; 10 => ADD ; 128 => RECTFILL )) )) OK) (LET LINE-A BE 1 1 8 1 DRAW-IT OK) (LET LINE-B BE 1 1 1 8 DRAW-IT OK) (LET LINE-C BE 1 3 8 3 DRAW-IT OK) (LET LINE-D BE 1 8 8 8 DRAW-IT OK) (LET LINE-E BE 8 1 8 8 DRAW-IT OK) (LET LINE-F BE 8 1 8 3 DRAW-IT OK) (LET LINE-G BE 1 3 8 3 DRAW-IT OK) (LET LINE-H BE 1 1 1 3 DRAW-IT OK) (LET LINE-I BE 1 3 1 8 DRAW-IT OK) (LET LINE-J BE 8 3 8 8 DRAW-IT OK) (LET HUGE-FUN-DIGIT BE (( >N1 )) (( (( N1 ; 1 => T = LINE-B == 2 => T = LINE-A LINE-F LINE-G LINE-I LINE-D == 3 => T = LINE-A LINE-E LINE-G LINE-D == 4 => T = LINE-H LINE-G LINE-E == 5 => T = LINE-A LINE-H LINE-G LINE-J LINE-D == 6 => T = LINE-B LINE-D LINE-J LINE-C == 7 => T = LINE-A LINE-E == 8 => T = LINE-A LINE-B LINE-E LINE-D LINE-G == 9 => T = LINE-A LINE-E LINE-C LINE-H == 0 => EQN = LINE-A LINE-B LINE-D LINE-E === === === === === === === === === === )) )) OK) (( LOOKSTK )) (LET HUGEDIGS BE (( )) (( (( GJ-ON )) (( :9 ; )) (( ; GOLABEL4: ; )) (( ; => >N1 )) (( CLS )) (( N1 => HUGE-FUN-DIGIT )) (( }DIGIT:} ; 50 ; 710 => B9-POP )) (( 1 ; 350 ; 710 => B9-READLN ; )) (( ; => LENGTH => ISDANCE = ; GOUP4 ; === ; )) (( ; RM )) (( GJ-DONE )) )) OK) (( LOOKSTK )) (LET AUTOSTART BE HUGEDIGS OK)