| Author |
Message |
Tormentor
|
|
Post subject:
 Posted: Dec 18, 2010 - 12:32 PM
|
|
Darth Vaddi
Joined: Oct 20, 2006
Posts: 1.309
Status: Offline
|
|
|
|
|
 |
|
pYRo
|
|
|
Post subject:
Posted: Dec 18, 2010 - 02:25 PM
|
|
Retromeister
Joined: Jan 01, 2006
Posts: 1.047
Location: Deutschland
Status: Offline
|
|
|
|
|
|
|
basic-boy
|
|
|
Post subject:
Posted: Dec 27, 2010 - 06:46 PM
|
|
Retroanfänger
Joined: Oct 22, 2010
Posts: 68
Status: Offline
|
|
| Die Seite ist fertig! appleii-progs.jimdo.com |
|
|
| |
|
|
|
|
|
Ragnarok
|
|
|
Post subject:
Posted: Jan 04, 2011 - 08:43 PM
|
|
Jinxed
Joined: Dec 12, 2006
Posts: 5.397
Location: 기정동
Status: Offline
|
|
Dein Programm funktioniert einwandfrei:
Mit W A S D kann ich den Cursor steuern, und mit F kann ich Sternchen setzen.  |
|
|
| |
|
|
|
|
|
basic-boy
|
|
|
Post subject:
Posted: Jan 04, 2011 - 08:51 PM
|
|
Retroanfänger
Joined: Oct 22, 2010
Posts: 68
Status: Offline
|
|
Zükunftige Funktionen bei PAINT15
-Speichern/Laden einer Skizze
-Drucken einer Skizze(Keine Ahnung wie man den Drucker was Befehlen kann, HILFE!) |
|
|
| |
|
|
|
|
|
basic-boy
|
|
|
Post subject:
Posted: Jan 05, 2011 - 08:08 PM
|
|
Retroanfänger
Joined: Oct 22, 2010
Posts: 68
Status: Offline
|
|
Hey PAINT15 hab eine einfachere Steuerung (ab v2.1)!
appleii-progs.jimdo.com |
|
|
| |
|
|
|
|
|
basic-boy
|
|
|
Post subject: Ähmmmm...
Posted: Jan 06, 2011 - 02:33 PM
|
|
Retroanfänger
Joined: Oct 22, 2010
Posts: 68
Status: Offline
|
|
[quote:21de6a79cb="Ragnarok"]Dein Programm funktioniert einwandfrei:
Mit W A S D kann ich den Cursor steuern, und mit F kann ich Sternchen setzen.
basic-boy sagt:
Ähhhm...Jetzt steuert man Coursor mit Pfeiltasten.Ab v2.1
Ich übersetze PAINT15 ins C64 Basic! |
|
|
| |
|
|
|
|
|
Tormentor
|
|
|
Post subject: Ähmmmm...
Posted: Jan 06, 2011 - 02:51 PM
|
|
Darth Vaddi
Joined: Oct 20, 2006
Posts: 1.309
Status: Offline
|
|
| Wieso nun auf einmal für den C64, ich dachte du magst den C64 nicht ? |
|
|
| |
|
|
|
|
|
basic-boy
|
|
|
Post subject: Ähmmmm...
Posted: Jan 07, 2011 - 10:24 AM
|
|
Retroanfänger
Joined: Oct 22, 2010
Posts: 68
Status: Offline
|
|
| Ja, ich hab durch Google herausgefunden, wie man Sachen drucken kann.Aber für C64 nicht auf Apple.Deshalb....Aber ich habs aufgegeben.HTAB und VTAB kennt C64 nicht.Das ist Bedingugng um PAINT15 zu übersetzen! |
|
|
| |
|
|
|
|
|
basic-boy
|
|
|
Post subject: Ähmmmm...
Posted: Jan 07, 2011 - 11:05 AM
|
|
Retroanfänger
Joined: Oct 22, 2010
Posts: 68
Status: Offline
|
|
| Trotzdem....SIMON`s BASIC IST SCHEISS!!!! |
|
|
| |
|
|
|
|
|
Tormentor
|
|
|
Post subject:
Posted: Jan 07, 2011 - 01:29 PM
|
|
Darth Vaddi
Joined: Oct 20, 2006
Posts: 1.309
Status: Offline
|
|
Hier mal ein simples Paint Programm in Basic für den Apple 2
Code:
100 HOME : GR
110 X = 20 : Y = 20 : C = 9 : K = 160
120 COLOR = C: PLOT X, Y
130 GOSUB 2000
150 XP%=PDL(0): FOR PX = 1 TO 10 : NEXT: YP%=PDL(1): FOR PY =1 TO 10: NEXT
160 K = PEEK(-16384)
170 IF XP% > 130 THEN 300
180 IF XP% < 120 THEN 400
190 IF YP% > 130 THEN 500
200 IF YP% < 120 THEN 600
210 IF K = 155 THEN GOSUB 3000
220 GOTO 150
299 REM PLOT X MOVING LEFT
300 GOSUB 1000
310 IF X =39 THEN 150
320 X = X + 1: COLOR = C: PLOT X - 1, Y
330 COLOR = 9: PLOT X, Y
340 GOTO 150
399 REM PLOT X MOVING RIGHT
400 GOSUB 1000
410 IF X = 0 THEN 150
420 X = X -1: COLOR = C: PLOT X + 1, Y
430 COLOR = 9: PLOT X, Y
440 GOTO 150
499 REM PLOT Y MOVING DOWN
500 GOSUB 1000
510 IF Y = 39 THEN 150
520 Y = Y+ 1: COLOR = C: PLOT X, Y-1
530 COLOR = 9: PLOT X, Y
540 GOTO 150
599 REM PLOT Y MOVING UP
600 GOSUB 1000
610 IF Y = 0 THEN 150
620 Y = Y - 1: COLOR = C: PLOT X, Y + 1
630 COLOR = 9: PLOT X,Y
640 GOTO 150
999 END
1000 REM COLOR PICKER
1100 IF K = 177 THEN C = 1
1110 IF K = 178 THEN C = 2
1120 IF K = 179 THEN C = 3
1130 IF K = 180 THEN C = 4
1140 IF K = 181 THEN C = 5
1150 IF K = 182 THEN C = 6
1160 IF K = 183 THEN C = 7
1170 IF K = 184 THEN C = 8
1180 IF K = 185 THEN C = 9
1200 IF K = 209 THEN C = 11
1210 IF K = 215 THEN C = 12
1220 IF K = 197 THEN C = 13
1230 IF K = 210 THEN C = 14
1240 IF K = 212 THEN C = 15
1250 IF K = 160 THEN C = 0
1260 RETURN
2000 REM MENU OPTIONS
2100 PRINT "1=PRD 2=DBL 3=PRL 4=DGR 5=GR 6=MBL
7=LBL 8=BN 9=OR Q=PK W=GR E=YW R=AQ T=WT SBR=BK ESC=QUIT"
2200 K= PEEK (-16368)
2999 RETURN
3000 REM QUIT
3100 PRINT "ARE YOU SURE YOU WANT TO QUIT? "
3110 PRINT "TYPE 'Y' OR 'N'"
3200 INPUT N$
3300 IF N$= "Y" THEN 3700
3400 IF N$= "N" THEN 3800
3500 PRINT "PLEASE ENTER A 'Y' OR 'N'"
3600 GOTO 3100
3700 TEXT : HOME : GOTO 999
3800 GOSUB 2000
3900 RETURN
|
|
|
| |
|
|
|
|
|
basic-boy
|
|
|
Post subject:
Posted: Jan 07, 2011 - 09:52 PM
|
|
Retroanfänger
Joined: Oct 22, 2010
Posts: 68
Status: Offline
|
|
| SIMPLES paint15?!? das ist komplexer code! |
|
|
| |
|
|
|
|
|
Tormentor
|
|
|
Post subject:
Posted: Jan 07, 2011 - 10:18 PM
|
|
Darth Vaddi
Joined: Oct 20, 2006
Posts: 1.309
Status: Offline
|
|
| Öhm was ist daran bitte komplex, das ist Pille Palle |
|
|
| |
|
|
|
|
|
basic-boy
|
|
|
Post subject:
Posted: Jan 08, 2011 - 10:15 AM
|
|
Retroanfänger
Joined: Oct 22, 2010
Posts: 68
Status: Offline
|
|
| egal....Fall abgeschlossen! |
|
|
| |
|
|
|
|
|
basic-boy
|
|
|
Post subject:
Posted: Jan 12, 2011 - 02:58 PM
|
|
Retroanfänger
Joined: Oct 22, 2010
Posts: 68
Status: Offline
|
|
[quote:cb5a872af4="SirHenrythe3rd"]Ich hätte auch noch zwei Bücher "Apple Basic" und "Apple Basic - Advanced".
Für Apple-DOS 3.3 hätte ich auch noch ein Nachschlagewerk.
Yep! - Apple // forever ! 
Es gab da sogar mal eine Website des "Apple II Reunion-Rings"; kA ob es die noch gibt, ist schon etwas länger her.
I´ll take a look
Hast du diese Bücher zuhause?Wenn du die zuhause hast und du nicht faul bist, dann kannste das einscannen und auf filedude.com veröffentlichen!Ich brauch aber Link. |
|
|
| |
|
|
|
|
|
|
FAQ
Register
Log in to check your private messages
Log in
