I'm having great fun playing with the grappler plus.

I wrote a simple CODE 128 barcode generator:

[Linked Image from i.imgur.com]

ctrl+reset after boot and paste this in from the applesoft prompt:

Code
        10 REM SIMPLE CODE 128 GENERATOR
        20 REM BY GOLDEN CHILD
        30 REM ALL INFO NEEDED FROM WIKIPEDIA ARTICLE ON CODE 128

        90 DIM BA$(110) : REM BA$ = ARRAY TO HOLD BARCODE BAR PATTERNS
        100 I=0
        110 READ A$ : ? I,A$  : REM READ DATA INTO BA$ ARRAY
        120 IF A$="END" THEN 140
        130 BA$(I)=A$ : I=I+1: GOTO 110
        135 REM FOR J = 1 TO I :? J,BA$(J) : NEXT 

        140 ? : X0 = 20 : X = X0 : Y0 = 5 : Y1=20 : XW = 1 : Y2 = Y1 + 20 : Y = Y0-Y2
        141 REM X0, Y0 IS XORIGIN, YORIGIN : REM Y1 = Y BAR WIDTH : REM Y2 = Y BAR GAP : REM XW = X BAR WIDTH

        150 INPUT "BARCODE: ";A$
        151 IF A$="P" THEN GOSUB 1000 : GOTO 150
        152 IF A$="" THEN A$="1234567890123456" : ? A$" ENTER P TO PRINT SCREEN"
        160 B$=CHR$(104) : REM START CODE B
        170 FOR I=1 TO LEN(A$) : B$=B$+CHR$(ASC(MID$(A$,I,1))-32) : NEXT

        185 S = ASC(MID$(B$,1,1)) : REM INITIALIZE SUM TO START CODE
        186 FOR I = 2 TO LEN(B$) : S = S + (I-1) * ASC(MID$(B$,I,1)) : NEXT : REM ADD TO SUM (POSITION * CODE)
        187 IF S > 103 THEN S = S - 103 : GOTO 187  : REM MODULO 103
        188 B$=B$+CHR$(S)   : REM ADD CHECKSUM
        189 B$=B$+CHR$(108) : REM STOP CODE

        190 IF SF=0 THEN HGR : FOR I = 0 TO 191 : HCOLOR=3:HPLOT 0,I TO 279,I:NEXT : SF=1 : REM CLEAR SCREEN TO WHITE
        200 X = X0 : Y = Y + Y2
        205 REM ? "LENGTH OF BARCODE OUTPUT STRING ="LEN(B$)
        210 FOR I = 1 TO LEN(B$) : C = ASC(MID$(B$,I,1)) 
        220 FOR J = 1 TO LEN(BA$(C))
        225  W = VAL(MID$(BA$(C),J,1)) : REM W IS WIDTH
        226  X1 = X : X2 = X + W * XW   : REM X1 IS START OF BAR, X2 IS START OF NEXT BAR
        228  REM ?"I="I" J="J" W="W  : REM UNCOMMENT FOR DEBUGGING INFO
        230  IF (J/2)=INT(J/2) THEN X = X2 : GOTO 250 : REM EVEN IS SPACE
        240  HCOLOR = 0 : FOR X = X1 TO X2-1 : HPLOT X,Y TO X,Y+Y1 : NEXT : X = X2 : REM ODD IS BAR SO DRAW BAR
        250 NEXT 
        260 NEXT

        350 IF Y > 160-Y2 THEN ? "END OF PAGE":SF=0 : Y=Y0-Y2  : REM CHECK TO SEE IF WE ARE AT BOTTOM
        400 GOTO 150

        1000 PR#1
        1010 PRINT CHR$(9)"GEI"  : REM GRAPHIC DUMP FROM GRAPPLER PLUS
        1020 PR#0
        1030 PRINT "PRINT CHR$(9)"+CHR$(34)+"GDEI"+CHR$(34)        
        1040 RETURN

        2000 DATA 212222, 222122, 222221, 121223, 121322, 131222, 122213, 122312, 132212, 221213
        2001 DATA 221312, 231212, 112232, 122132, 122231, 113222, 123122, 123221, 223211, 221132
        2002 DATA 221231, 213212, 223112, 312131, 311222, 321122, 321221, 312212, 322112, 322211
        2003 DATA 212123, 212321, 232121, 111323, 131123, 131321, 112313, 132113, 132311, 211313
        2004 DATA 231113, 231311, 112133, 112331, 132131, 113123, 113321, 133121, 313121, 211331
        2005 DATA 231131, 213113, 213311, 213131, 311123, 311321, 331121, 312113, 312311, 332111
        2006 DATA 314111, 221411, 431111, 111224, 111422, 121124, 121421, 141122, 141221, 112214
        2007 DATA 112412, 122114, 122411, 142112, 142211, 241211, 221114, 413111, 241112, 134111
        2008 DATA 111242, 121142, 121241, 114212, 124112, 124211, 411212, 421112, 421211, 212141
        2009 DATA 214121, 412121, 111143, 111341, 131141, 114113, 114311, 411113, 411311, 113141
        2010 DATA 114131, 311141, 411131, 211412, 211214, 211232, 233111, 211133, 2331112, END